投稿日 | : 2007/04/24(Tue) 15:40 |
投稿者 | : カズ |
Eメール | : |
URL | : |
タイトル | : xlSheet2を消去 |
'保存したxlSheet2を印刷
' xlSheet2.PrintOut
印刷から3分経過後にxlSheet2をフォルダ内から消去
' Dim vTIME_NOW As Variant
' vTIME_NOW = Time
' Do While DateDiff("s", vTIME_NOW, Time) < 180
' DoEvents
' Loop
' xlSheet2.Close
' xlBook2.Close
' Set xlSheet2 = Nothing
' Set xlBook2 = Nothing
上記の処理は印刷から3分経過後にxlSheet2をフォルダ内から消去する処理です。
私が作成したのですがどこかおかしいコード等がありましたら教えてください。