主题：求助

试试

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

 你的是不是MS Office2013 ？

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