以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有批量导入的例子供学习吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88802)
--  作者：大红袍
--  发布时间：2016/8/10 0:12:00
--  
 参考

 

下载信息  [文件大小：31.3 KB  下载次数：7]
图片点击可在新窗口打开查看点击浏览该文件:导入excel文件.zip

 

 参考

 

http://www.foxtable.com/webhelp/scr/0685.htm
--  作者：cmj584
--  发布时间：2018/8/1 1:26:00
--  
您好，例子导入的是xls文件，如果我要导入的是xlsx,应该如何修改，请问有源代码吗？
--  作者：有点甜
--  发布时间：2018/8/1 8:49:00
--  

dlg.Filter = "Excel文件|*.xls"

改成

 

dlg.Filter = "Excel文件|*.xls;*.xlsx"
--  作者：狐狸爸爸
--  发布时间：2018/8/1 9:17:00
--  
Dim mg As New Merger
mg.SourcePath = "c:\\data\\销售管理.xlsx"
mg.Format = "excel2007" \'指定格式
mg.SourceTableName = "订单" \'指定要合并的表
mg.DataTableName = "订单" \'指定接收数据的表
mg.Merge() \'开始合并