关于代码操作代码，Excel难道存在bug？

leroy

运行文件A标准模块中的代码时，
文件B中无法被写入代码（文件B中的代码会在运行过后自动删除）；

如果在文件B中插入一个标准模块，
或者预先在文件B的某个模块写入代码，
再运行文件A标准模块中的代码，
则可以顺利将代码写入文件B。

我无法理解这一现象，现上传附件，盼老师们指点，谢谢！！

山菊花

确实存在该现象，显式声明变量wb情况下不会这样：

Sub 向文件B写入代码()
Dim WBstr$, WB As Workbook
    With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
        For i = 1 To .CountOfLines
            WBstr = WBstr & .Lines(i, 1) & Chr(10)
        Next
    End With
    Set WB = Workbooks.Open(ThisWorkbook.Path & "/文件B.xls")
    WB.VBProject.VBComponents("ThisWorkbook").CodeModule.InsertLines 1, WBstr
    WB.Close True
End Sub

leroy

山菊花 发表于 2015-8-15 15:03
确实存在该现象，显式声明变量wb情况下不会这样：

Sub 向文件B写入代码()

谢谢山版，
没想到显示声明还有这等神通！！！

lujkhua

看来一定要养成声明变量的习惯！