很神奇的问题，ActiveWorkbook.VBProject.VBComponents语句

selfay

很神奇，我在按钮里面放了下面的语句，意思是新生产一个sheet，同时往新生成的sheet里面添加VBA语句。调试的时候一点问题都没有，但是关掉，单独点击按钮就不行。然后进入到调试模式，无论是点运行的按钮，还是直接点excel表格里面的按钮，都一点问题没有。这到底是什么问题啊。

test.rar (15.48 KB, 下载次数: 62)

2012-6-27 16:13 上传

点击文件名下载附件
excel文件

Sub 按钮2_Click()
Dim TempFEReport As Worksheet
Set TempFEReport = ActiveWorkbook.Sheets.Add(after:=Worksheets(1))
With ActiveWorkbook.VBProject.VBComponents(TempFEReport.CodeName).CodeModule
      .InsertLines 1, "Private Sub Worksheet_Change(ByVal Target As Range)"
      .InsertLines 2, "Target.Font.Bold = True"
      .InsertLines 3, "Target.Interior.ColorIndex = 6"
      .InsertLines 4, "Target.Font.Color = vbRed"
      .InsertLines 5, "End Sub"
End With
End Sub

错误截图

俯视姚明

我也遇到这个问题了，不知道楼主是如何解决的！

fanjia

试试这个：
a = ActiveWorkbook.VBProject.VBComponents(1)
With ActiveWorkbook.VBProject.VBComponents(TempFEReport.CodeName).CodeModule
      .InsertLines 1, "Private Sub Worksheet_Change(ByVal Target As Range)"
      .InsertLines 2, "Target.Font.Bold = True"
      .InsertLines 3, "Target.Interior.ColorIndex = 6"
      .InsertLines 4, "Target.Font.Color = vbRed"
      .InsertLines 5, "End Sub"
End With

End Sub

俯视姚明

感谢楼上，我也发现了一个解决方案：http://club.excelhome.net/forum.php?mod=viewthread&tid=681826

feisail

Set a = ActiveWorkbook.VBProject.VBComponents(1)或 ActiveWorkbook.VBProject.VBComponents(1).Activate
先激活一下VBA工程

风筝那根线

feisail 发表于 2017-1-29 15:21
Set a = ActiveWorkbook.VBProject.VBComponents(1)或 ActiveWorkbook.VBProject.VBComponents(1).Activate ...

谢谢  总算找到解决办法了

思而学CPA梁

这要前期绑定个什么东西吧