以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用代码高速合并  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88644)
--  作者：nothing
--  发布时间：2016/8/6 16:54:00
--  用代码高速合并
有个文件里面有很多SHEET要合并到表里，可以用代码实现么
Syscmd.Table.QuickMerge()
这个可以加参数么

c:\\要导入的文件.XLS
sheet1/sheet2/.....sheet100
--  作者：Hyphen
--  发布时间：2016/8/6 17:06:00
--  
Dim sheets() As String = { "Sheet1$","Sheet2$","Sheet3$" }

For Each s As String In sheets
    Dim mg As New Merger
    mg.SourcePath = "f:\\a.xls"
    mg.Format = "excel" \'指定格式
    mg.DataTableName = "表A" \'指定接收数据的表
    mg.SourceTableName = s \'指定要合并的表
    mg.Merge() \'开始合并
Next
--  作者：nothing
--  发布时间：2016/8/6 17:13:00
--  
感谢