求助VB转C#
各位好,新手刚接触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