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的表要怎样对应

你代码怎么写？怎么失败？

帮助文档的意思是，在c:\\data文件夹下，取出全部的excel文件，然后提取里面的单元格数据。

取值的坐标你要弄争取，才行

sheet(3,1).Text

sheet(3,3).Text