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

1楼

gengwvi 发表于：2023/9/17 12:06:00

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

2楼

有点蓝 发表于：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() '开始合并

共2 条记录, 每页显示 10 条, 页签: [1]