以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Microsoft Access 数据库引擎找不到对象  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105957)

--  作者:love_1311886
--  发布时间:2017/8/29 22:47:00
--  [求助]Microsoft Access 数据库引擎找不到对象
在做窗口设计的时候,导入文件提示【Microsoft Access 数据库引擎找不到对象“项目录入”。请确保该对象存在,并正确拼写其名称和路径名。如果“项目录入”不是本地对象,请检查网络连接或与服务器管理员联系。】

代码是:Dim mg As New Merger
mg.SourcePath = "F:\\项目录入.xlsx"
mg.Format = "Excel" \'指定格式
mg.SourceTableName = "项目录入" \'指定要合并的表
mg.DataTableName = "项目录入表" \'指定接收数据的表
mg.Merge() \'开始合并

路径和文件名是没有问题的,也尝试过在名字后面面&直接提示文件名过长,在F的前面加了本地磁盘,提示创建文件失败

Dim mg As New Merger
mg.SourcePath = "本地磁盘F:\\项目录入.xlsx"
mg.Format = "Excel" \'指定格式
mg.SourceTableName = "项目录入" \'指定要合并的表
mg.DataTableName = "项目录入表" \'指定接收数据的表
mg.Merge() \'开始合并

[此贴子已经被作者于2017/8/29 22:48:32编辑过]

--  作者:有点蓝
--  发布时间:2017/8/29 22:49:00
--  
Dim mg As New Merger
mg.SourcePath = "F:\\项目录入.xlsx"
mg.Format = "Excel" \'指定格式
mg.SourceTableName = "项目录入$" \'指定要合并的表
mg.DataTableName = "项目录入表" \'指定接收数据的表
mg.Merge() \'开始合并

Dim mg As New Merger
mg.SourcePath = "F:\\项目录入.xlsx"
mg.Format = "Excel" \'指定格式
mg.SourceTableName = "sheet1" \'指定要合并的表
mg.DataTableName = "项目录入表" \'指定接收数据的表
mg.Merge() \'开始合并

Dim mg As New Merger
mg.SourcePath = "F:\\项目录入.xlsx"
mg.Format = "Excel" \'指定格式
mg.SourceTableName = "sheet1$" \'指定要合并的表
mg.DataTableName = "项目录入表" \'指定接收数据的表
mg.Merge() \'开始合并

--  作者:love_1311886
--  发布时间:2017/8/29 22:53:00
--  
最后一个对了!!!谢谢楼上!!!