下面代码是指定位置的读取

根据表头 向下读取所有的数据怎么编程
此主题相关图片如下：微信截图_20180119111005.png

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(4,1).Text
dr("部门") = sheet(5,1).text
dr("出生日期") = sheet(4,3).text
dr("雇佣日期") = sheet(5,3).text
dr("性别") = sheet(6,1).text
dr("职务") = sheet(6,3).text
dr("地址") = sheet(7,1).text
dr("家庭电话") = sheet(8,1).text
dr("办公电话") = sheet(8,3).text
dr("备注") = sheet(9,0).text
Dim fl As String = ProjectPath & "Attachments\\" & dr("姓名") & ".jpg"
If Sheet(4,4).SaveImage(fl) Then \'如果照片保存成功
dr("照片") = fileSys.GetName(fl)
End If
End If
Next

参考

http://www.foxtable.com/webhelp/scr/2334.htm

如果有问题，实例发上来测试

Dim Book As New XLS.Book("D:\\test\\第1批.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("表A").StopRedraw()
\'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = {"序号","楼层","区域","图例","名称","长","宽","厚","材质说明","单位","数量","单价","合价元","备注"}
\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As Row = Tables("表A").AddNew()
    For m As Integer = 0 To nms.Length - 1
        r(nms(m)) = Sheet(n,m).Value
    Next
    Dim fl As String = ProjectPath & "Attachments\\" & r("图例") & ".jpg"
    If Sheet(n,4).SaveImage(fl) Then \'如果照片保存成功
        r("图例") = fileSys.GetName(fl)
    End If
Next
Tables("表A").ResumeRedraw()