|
こんにちは よろしくお願いします
既配布ブックのモジュール修正したいと思っています
動作的には
登録済みブックを開くブックから、ブック指定で開いたとき
旧版であれば、モジュール書き換えをしたいと思っています
このとき、
Option Explicitが自動付加設定になっていると
下記実行後、Option Explicitが最後に付加されてしまいます
Sub set011_ThisWrkBK_Mdl_Code()
'Sub set011_ThisWrkBK_Mdl_Code(TG As String)
Dim W_Book As Workbook
'TG = "Book1.xls"
Set W_Book = Workbooks(TG)
With W_Book.VBProject.VBComponents.Item("ThisWorkbook").CodeModule
.InsertLines 1, "Private Sub Workbook_Open()"
.InsertLines 2, ""
.InsertLines 3, " Msgbox""ブックが開かれましたよ!"""
.InsertLines 4, ""
.InsertLines 5, "End Sub"
End With
'W_Book.Save '上書き保存
End Sub
コード上で
Option Explicit の チェックはずし チェック付け が
出来れば
いいような気がしますがよくわかりません
アドバイスよろしくお願いいたします
|
|