|
▼かみちゃん さん:
テストしてみました。
>1・ThisWorkbookのモジュールのコードを消去するには?
>2・標準モジュールのコードを消去するには?
>3・シートのモジュールのコードを消去するには?
>4・ブック内のすべてのマクロを消去・削除するには?
>上記のURLの中の「ブック内のすべてのマクロを消去・削除する」のコードを参
>考にすると、シートモジュール、標準モジュール等すべてが消えますので、今回の
>場合は、このコードがいいかと思います。(最初からこれを紹介しておけばよかっ
>た)
テストを1はしていないのですが、2、3、4をしてみました。
2と4は美味く行きました。ご指摘のように今後4を使うようにします。
標準モジュールは何か私には相性が悪いのでしょうか、今回もトラブッて
しまいます。コードは下の通りです。
Sub Test01()
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="日報" & Format(Date, "mm" & "-" & "dd")
On Error GoTo 0
Dim W_Book As Workbook
Set W_Book = Workbooks("日報" & Format(Date, "mm" & "-" & "dd") ".xls")
With W_Book.VBProject.VBComponents.Item("MyModule").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
下から4行目("MyModule")の行でイエローラインがでて、「実行時エラー'9': インデックスが有効ではありません。」と出ます。
コードで問題がありましたらご指摘いただければ幸いです。
でも、使えるようになり本当に嬉しく思います。ありがとうございました。
|
|