投稿時間：2007/04/24(Tue) 15:40
投稿者名：カズ
Ｅメール：
ＵＲＬ ：
タイトル：xlSheet2を消去
'保存したxlSheet2を印刷
' xlSheet2.PrintOut
印刷から３分経過後に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
上記の処理は印刷から３分経過後にxlSheet2をフォルダ内から消去する処理です。
私が作成したのですがどこかおかしいコード等がありましたら教えてください。
|