[求助]Excel里面有多个sheet，如何一次性导入合并 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]Excel里面有多个sheet，如何一次性导入合并

共有3272人关注过本帖树形打印复制链接主题：[求助]Excel里面有多个sheet，如何一次性导入合并

gengwvi

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

等级：幼狐帖子：64 积分：939 威望：0 精华：0 注册：2015/10/20 15:44:00

[求助]Excel里面有多个sheet，如何一次性导入合并 发帖心情

Post By：2023/9/17 12:06:00 [只看该作者]

[求助]Excel里面有多个sheet，如何一次性导入合并；

有点蓝

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

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

Post By：2023/9/17 20:43:00 [只看该作者]

遍历所有sheet，比如

Dim Book As New XLS.Book("c:\reports\test.xls")

Dim lst As New List(Of String)

For Each sheet As XLS.Sheet In Book.Sheets

lst.Add(sheet.Name & "$")

For Each s As String In lst

Dim mg As New Merger

mg.SourcePath = "c:\reports\test.xls"

mg.Format = "excel" '指定格式

mg.SourceTableName = s '指定要合并的表

mg.DataTableName = "订单" '指定接收数据的表

mg.Merge() '开始合并

主题：[求助]Excel里面有多个sheet，如何一次性导入合并