以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  导入时有错误提示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171838)
--  作者：HANZHIGANG
--  发布时间：2021/9/11 13:44:00
--  导入时有错误提示
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel"
mg.SourceTableName = CurrentTable.name
mg.DataTableName = CurrentTable.name
mg.Merge()
end if

窗口全局事件中的单击中如上代码，出现如下错误提示
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2021.8.20.1
错误所在事件：
详细错误信息：
Microsoft Jet 数据库引擎找不到对象\'车辆管理\'。请确定对象是否存在，并正确地写出它的名称和路径。

请指导
--  作者：有点蓝
--  发布时间：2021/9/11 13:51:00
--  
1、execl文件里没有\'车辆管理\'这个sheet名称
2、试试
mg.SourceTableName = CurrentTable.name & “$”
3、
if dlg.FileName..endswith(".xls")
mg.Format = "excel"
else
mg.Format = "excel2007"
en dif
--  作者：HANZHIGANG
--  发布时间：2021/9/11 13:58:00
--  
第二条可以解决，多谢