以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导入excel.xls出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=61289)

--  作者:xjwangq
--  发布时间:2014/12/10 13:35:00
--  导入excel.xls出错

Dim mg As New Merger
mg
.SourcePath = "c:\\cb.xls"
mg
.Format = "excel" \'指定格式
mg
.SourceTableName = "cb" \'指定要合并的表
mg
.DataTableName = "cb" \'指定接收数据的表
mg
.Merge() \'开始合并


我把cb.xls复制到c:\\下点击按钮报错



Microsoft Jet 数据库引擎找不到对象\'cb\'。请确定对象是否存在,并正确地写出它的名称和路径。


--  作者:有点甜
--  发布时间:2014/12/10 14:05:00
--  

 改成这样,注意红色地方,excel的后缀名要写正确,里面的表名sheet1也要写正确

 

Dim mg As New Merger
mg.SourcePath = "c:\\cb.xls"
mg.Format = "excel" \'指定格式
mg.SourceTableName = "cb$" \'指定要合并的表
mg.DataTableName = "cb" \'指定接收数据的表
mg.Merge() \'开始合并


--  作者:xjwangq
--  发布时间:2014/12/10 14:14:00
--  
十分感谢问题解决。谢谢!