目前以下代码已解决“”sheet1“”的导入，如何将Excel中所有sheet都导入进去？
导入代码
For Each fl As String In dlg.FileNames
Dim mg As New Merger
mg.SourcePath = fl
if fl.EndsWith(".xls")
mg.Format = "excel" '指定格式
else
mg.Format = "excel2007" '指定格式
end if
mg.SourceTableName = "sheet1$" '指定要合并的表
mg.DataTableName = "sheet1" '指定接收数据的表
mg.Merge() '开始合并
Next
历遍代码
Dim Book As New XLS.Book(fl)
for each Sheet As XLS.Sheet in Book.Sheets
Dim mg As New Merger
mg.SourcePath = fl
mg.Format = "excel2007" '指定格式
mg.SourceTableName = Sheet.name & "$" '指定要合并的表
mg.DataTableName = "sheet1" '指定接收数据的表
mg.Merge() '开始合并
Next
加好友 
发短信
Post By：2024/5/30 0:22:00 [显示全部帖子]
