以下是引用fubblyc在2014-1-20 14:00:00的发言：
我尝试这样子：
我将dlg.Filter= "Access文件|*.mdb" '设置筛选器
改为：dlg.Filter= "Excel文件|*.xls" '设置筛选器
导入时的错误信息是：不可识别的数据库格式
不知道是不是不能直接那样改，还是Excel不能这样从文件夹中选择。。。。
你要设置格式，看看Merger是如何合并Excel文件的：
http://www.foxtable.com/help/topics/0685.htm
示例七
合并Excel文件:
Dim mg As New
Merger
mg.SourcePath = "c:\data\销售管理.xls"
mg.Format = "excel"
'指定格式
mg.SourceTableName = "订单"
'指定要合并的表
mg.DataTableName = "订单"
'指定接收数据的表
mg.Merge() '开始合并
一些Excel文件，可能需要在表名后加上符号$才能正常导入，例如：
Dim mg As New
Merger
mg.SourcePath = "c:\data\销售管理.xls"
mg.Format = "excel"
'指定格式
mg.SourceTableName = "订单$"
'指定要合并的表
mg.DataTableName = "订单"
'指定接收数据的表
mg.Merge() '开始合并
加好友 
发短信
Post By：2014/1/20 14:25:00 [显示全部帖子]
