|
▼かみちゃん さん:
おはようございます。昨日はありがとうございました。
「日報.xls」を動作しますと、「日報12-12.xls」がきっちりと作成されています。
「日報12-12.xls」にも全く同じのモジュールが残っています。
>以下のコードでは、少なくともSheet1のコードは消えていますよね?
>Set W_Book = Workbooks("日報" & Format(Date, "mm" & "-" & "dd")& ".xls")
>With W_Book.VBProject.VBComponents.Item("Sheet1").CodeModule
>Sheet1のコードも消えていないのでしょうか?
消えていません、この部分だけ消えるという事もあるのでしょうか、「日報12-12.xls」
のModule1に残っているコードを下にそのまま、貼り付けました。
>自宅のはExcel2002ですが、きちんと消えます。
>会社では、Excel2000ですので、一度動作確認してみます。
是非よろしくお願いします。
>未解決のまま閉じられるのは、「なんだかなぁ」と思いますので、さらにコメント書かせていただきました。
Sub test()
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("Sheet1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
|
|