主题：[求助]能按列从Excel报表提取数据吗？

从Excel报表提取数据

代码是很简单的，只是将Excel各单元格的内容写入新增行对应列而已：

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
    End If
Next

委列3...,可以实现吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:评委登分表.xls

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:评分报表导入.table