怎样将代码写入工作表的事件中

兔年顶呱呱

怎样将代码写入当前（或特定）工作表的事件中？
将如下代码写入事件时，出现错误，程序中断运行，但是再次继续运行就成功了。
……
Sheets("新表").Activate
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule          '在这里提示【下标越界】。
.INSERTLINES 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
.INSERTLINES 2, "call heji"
.INSERTLINES 3, "call Calculate"
.INSERTLINES 4, "End Sub"
End With

如何解决这个问题？

兔年顶呱呱

这么快就沉下去了
请高手看看啊

excelflower

没看出代码有什么问题，最好上传附件来帮你测试。

兔年顶呱呱

原帖由 excelflower 于 2011-2-15 17:15 发表
没看出代码有什么问题，最好上传附件来帮你测试。

附件
复件 样稿.rar (20.49 KB, 下载次数: 148)

2011-2-16 07:58 上传

点击文件名下载附件

excelflower

我这里运行附件代码，没出现错误提示。

兔年顶呱呱

我是Win XP +Office XP 的环境，运行时在：
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule          '在这里提示【下标越界】。
点击【调试】，再点击vba编辑器上的运行，也是可以的。

jiulongpo

当第一次打开工作薄,并且第一次使用按钮时,会出现这样的情况.
在出错语句前加上以下代码(红色部份)检查,
Sheets(nm & "_" & "新表").Activate

For Each kk In Sheets
   MsgBox kk.CodeName
Next
mysh = Sheets(nm & "_" & "新表").CodeName
MsgBox mysh

With ActiveWorkbook.VBProject.VBComponents(mysh).CodeModule
可以发现第一次添加的工作表的CodeName属性为空,而第二次以后都有值了.

不知为什么???

jiulongpo

用了个笨办法,先激活一下VBA工程,
Sheets(nm & "_" & "新表").Activate

ActiveWorkbook.VBProject.VBComponents(1).Activate
mysh = Sheets(nm & "_" & "新表").CodeName

With ActiveWorkbook.VBProject.VBComponents(mysh).CodeModule

这样就不会出错了.在我的机器上通过.XP+Excel2003

兔年顶呱呱

原帖由 jiulongpo 于 2011-2-16 11:07 发表
用了个笨办法,先激活一下VBA工程,
Sheets(nm & "_" & "新表").Activate

ActiveWorkbook.VBProject.VBComponents(1).Activate
mysh = Sheets(nm & "_" & "新表").CodeName

With ActiveWorkbook.VBProject.VBC ...

我这里测试通过了，谢谢！

selfay

jiulongpo 发表于 2011-2-16 11:07
用了个笨办法,先激活一下VBA工程,
Sheets(nm & "_" & "新表").Activate

厉害！！研究了一下午，遇到同样的问题，用这个方法解决了，不过还是不明白为什么会出问题。