投稿時間：2007/04/25(Wed) 13:55
投稿者名：エニックス
Ｅメール：
ＵＲＬ ：
タイトル：印刷から３分経過後にフォルダ内に書き込んだデータを消去
'xlBook2を別のフォルダに保存
ChDir "\\Fs_kan_13\vol1\PrivateFolder\Nomura開発\Dataフォルダ"
ActiveWorkbook.SaveAs FileName:= _
"\\Fs_kan_13\vol1\PrivateFolder\Nomura開発\Dataフォルダ\xlBook2", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
'xlSheet2を印刷
xlSheet2.PrintOut
xlBook2.Close
Set xlSheet2 = Nothing
Set xlBook2 = Nothing
'印刷から３分経過後にxlBook2のデータをフォルダ内から消去
＜ここに処理をかきこむ＞
お世話になります。印刷から３分経過後にxlBook2のデータをフォルダ内から消去したいのです。
簡潔に述べますとDataフォルダに残ったxlBook2のデータを印刷から３分経過後に消去する処理を
後につなげたいわけです。＜ここに処理をかきこむ＞に入る具体的なコードがわかりません。
教えてください。
|