程序的问题是出在excel工作薄里新建一个工作表，之前为了弄明白这个功能如何实现，单独编了一个小程序测试没问题了，复制到我要使用的程序里使用，就提示我“实时错误‘1004’。对象‘ADD’的方法‘sheets’失败”
语句如下

Set 对象_刷卡数据 = CreateObject("Excel.Application")            '创建EXCEL对象
Set 文件_刷卡数据 = 对象_刷卡数据.Workbooks.Open(刷卡数据名)     '打开已经存在的EXCEL工件簿文件
对象_刷卡数据.Visible = False                                    '设置EXCEL对象可见（或不可见）

'出问题的就是下面这句！！！！！！！！！！！！！！！！！！
文件_刷卡数据.Worksheets.Add after:=Worksheets(1) '在第一个工作表之后新建增加一个工作表，应该就是第二个了。

Set 表_异常记录 = 文件_刷卡数据.Worksheets(2) '设置第二个工作表为活动工作表
表_异常记录.Name = "差异记录" '给新建的工作表设置名字

这样的写法在别的程序里就没问题，可以正常运行。不知为什么在这个程序里就会出错，实在找不出问题所在了。求高手指教！谢谢

不是，就是用VB6编的。本人也是个二把刀，半懂不懂的，都是到网上现找教程，现抓现卖。头一次碰到这种问题。

非常感谢！！！您真是高手！！！我就没想到这里！！！！