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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎样把多个excel台账进行汇总

共有3739人关注过本帖树形打印复制链接主题：[求助]怎样把多个excel台账进行汇总

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/2 23:15:00 [显示全部帖子]

Dim dr As DataRow

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 bm As String = sheet(0 ,0).text.SubString(0,6)

For i As Integer = 4 To Sheet.Rows.Count -1

If sheet(i,1).Text.trim() > ""

dr = DataTables("台账汇总").AddNew

dr("部门") = bm

dr("业务类型") = sheet(i,1).Text

dr("号牌种类") = sheet(i,2).Text

dr("号牌号码") = sheet(i,3).Text

dr("档案编号") = sheet(i,4).Text

dr("办结日期") = sheet(i,5).Text

End If

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/4 22:38:00 [显示全部帖子]

For i As Integer = 4 To Sheet.Rows.Count -1

If sheet(i,1).Text.trim() > ""

dr = DataTables("台账汇总").AddNew

dr("部门") = bm

dr("业务类型") = sheet(i,1).Text

dr("号牌种类") = sheet(i,2).Text

dr("号牌号码") = sheet(i,3).Text

dr("档案编号") = sheet(i,4).Text

dr("办结日期") = sheet(i,5).Text

dr = DataTables("台账汇总").AddNew

dr("部门") = bm

dr("业务类型") = sheet(i,7).Text

dr("号牌种类") = sheet(i,8).Text

dr("号牌号码") = sheet(i,9).Text

dr("档案编号") = sheet(i,10).Text

dr("办结日期") = sheet(i,11).Text

End If

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110587 积分：562831 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/7 22:33:00 [显示全部帖子]

基础问题：http://www.foxtable.com/webhelp/topics/0223.htm、http://www.foxtable.com/webhelp/topics/0224.htm。多看看基础语法

这个是一个顺序执行的逻辑，不是条件分支处理。至于空行可以删除不需要，添加空行的目的只是为了让代码好看一点

下一主题 >> << 上一主题

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