[已解决]怎样批量向本文件夹下的所有文件中的"thisWorkbook"中添加相同的代码？

wqsk001

论坛里相关代码还有这个，这个代码同样可用。也同样缺少更新子目录下文件代码的功能。如果同一文件更新2次的话，原来的代码是删除不了的。测试结果是更新一次代码，会加上一次的代码。希望大神帮着改进下，谢谢。

Sub test()
    p = "C:\指定文件夹\"
    f = Dir(p & "*.xls")
    Do While f <> ""
        Workbooks.Open p & f
        With ActiveWorkbook.VBProject.VBComponents("thisworkbook").CodeModule
            .InsertLines 1, "sub test()"
            .InsertLines 2, "msgbox ""just a test""" '双引号中的双引号,2个代表1个.
            .InsertLines 3, "end sub"
        End With
        ActiveWorkbook.Close True
        f = Dir
    Loop
End Sub

zjdh

Book2.rar (49.63 KB, 下载次数: 8)

2020-2-26 21:12 上传

点击文件名下载附件

wqsk001

zjdh 发表于 2020-2-26 21:13

程序假死，写入失败，没有代码

zjdh

wqsk001 发表于 2020-2-26 22:07
程序假死，写入失败，没有代码

忘了说明了，我的附件不要放在待测试目录中，再运行该文件。

HR0128

wqsk001 发表于 2020-2-24 20:59
谢谢大神！这个刚才测试了一下，可以用。不过只能用于当前目录下的文件，看能不能帮着再改进一下，把子目 ...

你这个问题解决了吗？怎么批量向文件夹内所有文件添加Thiswrokbook，