以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62712)
--  作者：zdq_1230
--  发布时间：2015/1/6 21:52:00
--  求助

按照示例粘贴如下代码：

Dim mg As New Merger
mg.SourcePath = "C:\\Users\\My\\Desktop\\福彩双色球开奖历史数据.xls"
mg.Format = "excel" \'指定格式
mg.SourceTableName = "Sheet4" \'指定要合并的表
mg.DataTableName = "双色球开奖号" \'指定接收数据的表
mg.Merge() \'开始合并

 

出现附件错误
图片点击可在新窗口打开查看此主题相关图片如下：360截图-533022859.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2015/1/6 21:56:00
--  

试试

 

Dim mg As New Merger
mg.SourcePath = "C:\\Users\\My\\Desktop\\福彩双色球开奖历史数据.xls"
mg.Format = "excel" \'指定格式
mg.SourceTableName = "Sheet4$" \'指定要合并的表
mg.DataTableName = "双色球开奖号" \'指定接收数据的表
mg.Merge() \'开始合并

 
--  作者：zdq_1230
--  发布时间：2015/1/6 21:58:00
--  
还是一样
--  作者：zdq_1230
--  发布时间：2015/1/6 22:05:00
--  
文件也有
图片点击可在新窗口打开查看此主题相关图片如下：2015-01-06_220619.jpg
图片点击可在新窗口打开查看
--  作者：zdq_1230
--  发布时间：2015/1/6 22:06:00
--  
我是win10系统，office2013
--  作者：有点甜
--  发布时间：2015/1/6 22:16:00
--  

 你的是不是MS Office2013 ？

 

 如果是，就肯定是你文件的路径写错了。

--  作者：有点甜
--  发布时间：2015/1/6 22:16:00
--  
 注意后缀名
--  作者：zdq_1230
--  发布时间：2015/1/6 22:24:00
--  

刚才看了，是后缀的问题，先那个后缀是.xlsx,换成.xls可以了