程序的问题是出在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 = "差异记录" '给新建的工作表设置名字

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

这是从dephli转过来的吧。

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

出错的语句做如下修改即可：
文件_刷卡数据.Worksheets.Add after:=文件_刷卡数据.Worksheets(1)

我也没用这种方式操作过excel，看到“:=”就以为是dephli里面的赋值方式你直接复制过来的。我无知了，学无止境啊！

[ 本帖最后由 lowxiong 于 2014-5-9 13:38 编辑 ]

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