|
▼かみちゃん さん:
色々と教えていただき日時が経過していますが・・・最終的にはご指定いただいた4番目のコードを選択して、やっています。(おかげさまで4種類の違いも理解できました)
でもまた、問題が出ています。もしお分かりでしたらよろしくお願いします。
モジュール内のコードを削除して日報12-21が作成できるのですが・・・
「日報12-21.xls'への変更を保存しますか?」・・・→
「はい、いいえ、キャンセル」
この選択を聞いてきます。「はい」にすると、毎日の日報がコード無しで綺麗に仕上がります。が・・・毎回「はい」をクリックするのは脳が無いと思います。
そこで以前にも質問しましたが。
貴殿のご回答・・・では
「日報12-21.xls}は、コードがないブックであれば、閉じる前というか、コードを消したあとに上書き保存のコードを書けばいいだけだと思います。
Sub Macro1()
ActiveWorkbook.Save
End Sub
とご指導を受けましたが、このActiveworkbook.Saveを入れると、「日報12-21」は保存で切るのですが、モジュールにコードが復活してきます。何か良い方法がないでしょうか。
Sub Test04()
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="U:\日報ホルダー\日報" & Format(Date, "mm" & "-" & "dd")
On Error GoTo 0
Dim myVBComp
For Each myVBComp In ThisWorkbook.VBProject.VBComponents
If myVBComp.Type = 100 Then
'Documentモジュール(ThisWorkbokやSheet)なら消去
With myVBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Else
'Documentモジュール(標準モージュール、クラスモジュール、Formなど)以外なら削除
Application.VBE.ActiveVBProject.VBComponents.Remove myVBComp
End If
Next myVBComp
これも入れてみましたが、コードが復活します。
'Application.DisplayAlerts = False
' Application.Quit
End Sub
何か良いヒントがありましたら、ご教授の程お願いいたします
|
|