求助VB转C#

[wyw9982006]

各位好，新手刚接触C#，有份VB版的小程序代码，需要转换成C#，需要寻求帮助，可适当付费，麻烦大家看看，多谢

部分代码如下：
Dim Input_Data_APP As Excel.Application
Dim Input_Data_WB As Excel.Workbook
Dim Input_Data_WS Data1 As Excel.Worksheet
Dim Input_Data_WS_Data2AsExcel.Worksheet
Dim Output_Data WS A sExcel.Worksheet
Set Input_Data_APP = CreateObject("Excel.Application")
Set Input_Data_WB = Input_Data_APP.Workbooks.Open(LOCA_DIF_Path)
Set Input_Data_WS_Data1 = Input_Data_WB.Worksheets(1)
Set Input_Data_WS_Data2 = Input_Data_WB.Worksheets(2)
Input_Data_APP.Visible = True
Dim V(1 To 9,1 To 2)
Dim L(1 To 100,1 To 31)
Dim D_Ele(1 To 100,1 To 2)
Dim D_Par(1 To 100,1 To 2)
Dim R(1 To 100,1 To 9)
Dim Rate_I_Ele
Dim Rate_I_Par
Dim Rate_I_Org
Dim Name_Ele(1 To 200)
Dim Style_Ele(1 To 200)
Dim Lamda(1 To 200)
Dim A_Core(1 To 200)
Dim A_Start(1 To 200)
Dim T_Start
Dim NO_Ele
Dim V_CODE(1 To 9)
Dim L_CODE(1 To 9, 1 To 9, 1 To 730)
Dim L_Out_Total(1 To 9, 1 To 730)
Dim D_Ele_CODE(1 To 7300)
Dim D_Par_CODE(1 To 7300)
Dim R_C0DE(1 To 8,1 To 7300)
Dim T_Fenduan(0 To 20000)
Dim A_Node(1To200,1To9)
Dim A_Ele_Node(1 To 200, 1 To 9)
Dim A_Org_Node(1 To 200, 1 To 9)
Dim A_Par_Node(1 To 200, 1 To 9)
For i = 1 To 9
For j = 1 To 2
V(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 1)
Next j
Next i
For i = 1 To 100
For j = 1 To 31
L(i,j) = Input_Data_WS_Data1.Cells(i + 4, j + 24)
Next j
Next i
For i = 1 To 100
For j = 1 To 2
D_Ele(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 5)
Next j
Next i
For i = 1 To 100
For j = 1 To 2
D_Par(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 9)
Next j
Next i
For i = 1 To 100
For j = 1 To 9
R(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 13)
Next j
Next i
Rate_I_Ele = Input_Data_WS_Data1.Cells(l, 6)
Rate_I_Org = Input_Data_WS_Data1.Cells(2, 6)
Rate_I_Par = Input_Data_WS_Data1.Cells(3, 6)
NO_Ele = 0
For i = 4 To 203
If Input_Data_WS_Data2.Cells(i, 3) <> "" Then
NO_Ele = NO_Ele + 1
Name_Ele(NO_Ele) = Input_Data_WS_Data2.Cells(i, 3)
Style_Ele(NO_Ele) = Input_Data_WS_Data2.Cells(i, 4)
Lamda(NO_Ele) = Input_Data_WS_Data2.Cells(i, 5)
A_Core(NO_Ele) = Input_Data_WS_Data2.Cells(i, 6)
A_Start(NO_Ele) = Input_Data_WS_Data2.Cells(i, 7)
End if

[Tian戊辰]

[mjp1234airen4385]

找个vb转换成C#的工具，找不到，就先转成vb.net再转C#。 剩下的自己改改吧

[jsjhcccn]

具体实现什么功能，可以按照代码重写一个c#版本的给你

[wyw9982006]

引用 2 楼 mjp1234airen4385 的回复:

找个vb转换成C#的工具，找不到，就先转成vb.net再转C#。 剩下的自己改改吧

尝试过转换但效果不大好，主要我一点基础没有

[wyw9982006]

引用 3 楼 jsjhcccn 的回复:

具体实现什么功能，可以按照代码重写一个c#版本的给你

需要实现的功能比较简单，以一个excel为总的输入文件，根据需要从中提取相应的参数，然后按照数学公式计算，输出结果。 你看是否有意我们详谈？

[jsjhcccn]

string LOCA_DIF_Path = "";//替换你的全局变量 Microsoft.Office.Interop.Excel.Application Input_Data_APP; Microsoft.Office.Interop.Excel.Workbook Input_Data_WB; Microsoft.Office.Interop.Excel.Worksheet Input_Data_WS_Data1; Microsoft.Office.Interop.Excel.Worksheet Input_Data_WS_Data2; Microsoft.Office.Interop.Excel.Worksheet Output_Data_WS; Input_Data_APP = new Microsoft.Office.Interop.Excel.Application(); Input_Data_WB = Input_Data_APP.Workbooks.Open(LOCA_DIF_Path); Input_Data_WS_Data1 = Input_Data_WB.Worksheets[1]; Input_Data_WS_Data2 = Input_Data_WB.Worksheets[2]; Input_Data_APP.Visible = true; var V = new Range[9,2]; var L = new Range[100,31]; var D_Ele = new Range[100,2]; //D_Ele(1 To 100,1 To 2) var D_Par = new Range[100, 2]; //Dim D_Par(1 To 100,1 To 2) var R = new Range[100, 9]; //Dim R(1 To 100,1 To 9) Range Rate_I_Ele; //Dim Rate_I_Ele Range Rate_I_Par; //Dim Rate_I_Par Range Rate_I_Org; //Dim Rate_I_Org var Name_Ele = new Range[200]; var Style_Ele = new Range[200]; var Lamda= new Range[200]; var A_Core= new Range[200]; var A_Start = new Range[200];

[jsjhcccn]

引用 5 楼 wyw9982006 的回复:

[quote=引用 3 楼 jsjhcccn 的回复:] 具体实现什么功能，可以按照代码重写一个c#版本的给你

需要实现的功能比较简单，以一个excel为总的输入文件，根据需要从中提取相应的参数，然后按照数学公式计算，输出结果。 你看是否有意我们详谈？ [/quote]私信你了