Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29146 / 76738

←次へ　｜　前へ→


	【52878】既配布ブックのモジュール修正

ウーロン - 07/12/7(金) 15:23 -


	引用なし

	パスワード

こんにちは　よろしくお願いします

既配布ブックのモジュール修正したいと思っています

動作的には
登録済みブックを開くブックから、ブック指定で開いたとき
旧版であれば、モジュール書き換えをしたいと思っています

このとき、
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　の　チェックはずし　チェック付け　が
出来れば
いいような気がしますがよくわかりません

アドバイスよろしくお願いいたします

0 hits

▼

【52878】既配布ブックのモジュール修正 ウーロン 07/12/7(金) 15:23

≪