以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数据合并如何避免重复导入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95310)
--  作者：linswcfr
--  发布时间：2017/1/16 14:54:00
--  [求助]数据合并如何避免重复导入
Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "excel" \'指定格式
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    mg.SourceTableName = ws.name & "$"
    mg.DataTableName = "明细表" \'指定接收数据的表
    mg.Merge() \'开始合并
End If
--  作者：有点色
--  发布时间：2017/1/16 15:00:00
--  

 要用这种方法合并

 

http://www.foxtable.com/webhelp/scr/2334.htm