| |
▼ウーロン さん：
こんばんは。
難しいことをされようとしているだけあって、
記述がわかりやすいですね！！
Excel2002で確認しましたが、
>
>既配布ブックのモジュール修正したいと思っています
>
>動作的には
>登録済みブックを開くブックから、ブック指定で開いたとき
>旧版であれば、モジュール書き換えをしたいと思っています
>
>このとき、
>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
.DeleteLines 1, .CountOfLines
.InsertLines 1, "Option Explicit"
.InsertLines 2, "Private Sub Workbook_Open()"
.InsertLines 4, ""
.InsertLines 5, " Msgbox""ブックが開かれましたよ！"""
.InsertLines 6, ""
.InsertLines 7, "End Sub"
> End With
>
> 'W_Book.Save '上書き保存
>
>End Sub
として見てください。きちんとOption Explicitは、先頭に入りました。
自動添付の「Option Explicit」は、一度削除して、再度コードで設定する
ということです。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
