Excelで、ファイルを開いたときに、そのファイルのモジュールシートの内容を自動的に更新するVBAを書きたいのです。
gooで質問しながらも、とりあえず自分で以下のように作ってみました。どのような方法にしたかというと、Auto_Openでファイルを開いたときに、まず対象となる更新前のモジュールシートを削除（更新前が存在しない場合はエラーになるのでOnErrorGotoで回避）し、その後、あらかじめ更新後の内容を記述しておいたC:\定義.txtというファイルを更新後のモジュールシートとして付け加えるというものです。
とりあえずはうまく内容更新できたのですが、ファイルを開いた際に自動的同時に開かれるBook1.xlsなどのファイルにも更新後のモジュールシートが付け加わってしまうのです。つまり、更新させたいファイルだけでなく、その他のファイルも更新の対象となってしまう場合があるのです。
いろいろ試してみると、すでにExcelを立ち上げた状態で当ファイルを開いた場合は、それ以前に開いていたファイルが更新対象になることはないようです。Excelを立ち上げていない状態からエクスプローラなどで当ファイルを開き、同時に自動的にExcelやBook1などのファイルも立ち上がる際に、Book1なども更新対象となってしまうようです。
更新させたいファイルのモジュールシートだけを更新するには、どのようにVBAを書いたらいいのか、ヒントくらいでも結構ですのでご教授ください。
Sub Auto_Open()
削除
追加
End Sub
Sub 追加()
With Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_StdModule)
.Name = "定義"
.CodeModule.AddFromFile ("C:\定義.txt")
End With
End Sub
Sub 削除()
On Error goto trap
Application.VBE.ActiveVBProject.VBComponents.Remove _
Application.VBE.ActiveVBProject.VBComponents("定義")
Trap:
End Sub
ＶＢＡ初心者です。Xｐ,Ｅｘｃｅｌ2000を使用しています。
シフト者のカレンダー作成しており、動作していたＶＢＡのコピーを利用しています。
何回かループを回った後表記エラーとなります。アドバイスをお願いいたします。
A B C D E
--------------------------
1 2 3 4 ...... <-- 日付
2 2 0 1 ...... <-- シフト(ln_1の範囲名)
7 8 9 10 ...... <-- 日付
1 0 3 3 ..... <-- シフト(ln_2の範囲名)
....................
For i = 1 To 6 <-- 最大６週にわたる
Set r = Range("ln_" & LTrim$(Str$(i)))
cpos = r.Column
rpos = r.Row
For n = 1 To r.Columns.Count
With Cells(rpos - 1, cpos + n - 1)
m = .Characters.Count <-- 数回ループ後ここでエラーとなる！
s = Cells(rpos, cpos + n - 1) <-- シフト情報
Select Case s
Case "" '- Blank -
........ 日付セルの装飾
Case "0" '- Holiday -
......... 日付セルの装飾
Case "1" '- shift1 -
........... 日付セルの装飾
