用程序写在excel中复制的问题

Question

我用excel的宏录制了一段复制的代码，在程序运时，登陆第一次运行没有问题，第二次运行就会提示:
实时错误'91'
对象变量或with块变量未设置
但当退出程序，重新登陆还是第一次可以运行
是不是语句上需要关闭什么东西
exsheet.Range("A1:I12").Select    '复制
Selection.Copy
exsheet.Range("A" & i + 22).Select
ActiveSheet.Paste

Answer 1

创建新对象前用set xxx=Nothing销毁旧对象

Answer 2

Set ex = CreateObject("Excel.Application")
Set exwbook = Nothing
Set exwbook = ex.Workbooks().Add
Set exsheet = Nothing
Set exsheet = exwbook.Worksheets("sheet1")
已经作了

Answer 3

这里有Excel的操作
http://topic.csdn.net/u/20080919/17/5c6d551f-91c3-4d44-9bc8-0c30c87afbd5.html