以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  高速合并功能 如何多选模板相同的多个文件批量合并  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171847)

--  作者:夜点蚊香
--  发布时间:2021/9/11 21:41:00
--  高速合并功能 如何多选模板相同的多个文件批量合并
高速合并功能 如何多选模板相同的多个文件批量合并 文件数有可能超过10000以上
--  作者:有点蓝
--  发布时间:2021/9/12 20:20:00
--  
参考:http://www.foxtable.com/webhelp/topics/0685.htm,示例八
--  作者:夜点蚊香
--  发布时间:2021/11/9 12:19:00
--  
Dim dlg As New OpenFileDialog
dlg
.Filter = "Access文件|*.mdb"
dlg
.MultiSelect = True \'允许选择多个文件
If 
dlg.ShowDialog =DialogResult.OK Then
    For Each 
fl As String In dlg.FileNames
        Dim 
mg As New Merger
        
mg.SourcePath = fl
        
mg.SourceTableName = "订单"
        
mg.DataTableName = "订单"
        
mg.Merge()
    Next
End If

多选选文件的时候,如果Excel表里的订单表名不一样,但是数据列名一样,怎么修改代码。请指教。

--  作者:有点蓝
--  发布时间:2021/11/9 13:36:00
--  
换种方式:http://www.foxtable.com/webhelp/topics/2334.htm