For Each
file As String In filesys .GetFiles("c:\data")
If file.EndsWith(".xls")
OrElse file.EndsWith(".xlsx")
Then
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dr As DataRow = DataTables("融资项目情况表").AddNew
dr("借款单位")
= sheet(3,1).Text
dr("主管部门")
= sheet(3,3).text
dr("融资机构")
= sheet(5,1).text
dr("合同名称")
= sheet(4,1).text
dr("借款用途")
= sheet(5,3).text
dr("合同编号")
= sheet(4,3).text
dr("融资期限")
= sheet(9,1).text
dr("抵质押物担保人")
= sheet(13,1).text
dr("融资额度")
= sheet(12,1).text
dr("合同利率")
= sheet(9,0).texT
End If
Next
提取的数据不知是哪里来的,不知何故?请问excel表和fox的表要怎样对应