[求助]怎样把多个excel台账进行汇总 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:博世通档案移交台账.xlsx

下载信息 [文件大小：下载次数： ]
点击浏览该文件:水寨档案移交台账.xlsx

各位专家们

大家好，我现在想请教一个问题，在我上传的附件中，有多个excel,其中的两个分别是“博世通档案移交台账”和“水寨档案移交台账”，我现在想把所有的excel台账都汇总到“台账汇总.foxtable”中的表“台账汇总”里。其中，foxtable中“部门”这一列就是每个excel的第1行第1列的“XX服务站”的这几个汉字提取之后的值，foxtable中“号牌号码”等其他列就是把所有excel表格中的对应号牌号码、号牌种类、办结日期等相对行和列保持不变地

下载信息 [文件大小：下载次数： ]
点击浏览该文件:台账汇总.table

复制粘贴过去。我试着写出的代码如下，但预想结果出不来，请问需怎么修改代码

For Each file As String In filesys .GetFiles("f:\档案移交台账汇总")

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(0 To Sheet.Rows.Count -1,1).Text

dr("号牌种类") = sheet(0 To Sheet.Rows.Count -1,2).Text

dr("号牌号码") = sheet(0 To Sheet.Rows.Count -1,3).Text

dr("档案编号") = sheet(0 To Sheet.Rows.Count -1,4).Text

dr("办结日期") = sheet(0 To Sheet.Rows.Count -1,5).Text

Else dr("部门") =sheet(0 ,0)Substring(0,0,1,6).Text

End If

主题：[求助]怎样把多个excel台账进行汇总