[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2007/04/24(Tue) 12:51
投稿者名：カズ
Ｅメール：
ＵＲＬ　：
タイトル：PrintOutから３分経過後の処理
’xlSheet2をフォルダに保存
   　　ChDir "C:\フォルダ"
    　 ActiveWorkbook.SaveAs FileName:="C:\フォルダ\xlSheet2.xls", FileFormat:= _
       xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
       CreateBackup:=False
'保存したxlSheet2を印刷
    　 xlSheet2.PrintOut


　上記コードはフォルダに保存したxlSheet2を印刷するコードです。今回はこれに続く
次の処理をご質問したいのです。xlSheet2.PrintOutが終わったあと、３分経過後にフォ
ルダ内からxlSheet2を消去したいのです。そうするにはxlSheet2.PrintOutの後にどのよ
うなアルゴリズムを挿入すればよいのでしょうか？教えてください。

投稿時間：2007/04/24(Tue) 13:31
投稿者名：カズ
Ｅメール：
ＵＲＬ　：
タイトル：Re: PrintOutから３分経過後の処理
> ’xlSheet2をフォルダに保存
>    　　ChDir "C:\フォルダ"
>     　 ActiveWorkbook.SaveAs FileName:="C:\フォルダ\xlSheet2.xls", FileFormat:= _
>        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
>        CreateBackup:=False
>  '保存したxlSheet2を印刷
>     　 xlSheet2.PrintOut
>  'エクセルファイル閉じる
     xlSheet2.Close
'    xlBook2.Close
'    Set xlSheet2 = Nothing
'    Set xlBook2 = Nothing
   '印刷から３分経過後にxlSheet2をフォルダ内から消去
     ＜ここにコードを入れる＞
>
> 　上記コードはフォルダに保存したxlSheet2を印刷するコードです。今回はこれに続く
> 次の処理をご質問したいのです。xlSheet2.PrintOutが終わったあと、３分経過後にフォ
> ルダ内からxlSheet2を消去したいのです。そうするには＜ここにコードを入れる＞にどの
ようなアルゴリズムを挿入すればよいのでしょうか？教えてください。

投稿時間：2007/04/24(Tue) 14:08
投稿者名：戸豚
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: PrintOutから３分経過後の処理
Time関数で時間を見ながら180秒待つループじゃダメですか？
Formを持っているならTimerコントロール使うとかもでも良さそうな気がします.

投稿時間：2007/04/24(Tue) 14:16
投稿者名：カズ
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: PrintOutから３分経過後の処理
> Time関数で時間を見ながら180秒待つループじゃダメですか？
> Formを持っているならTimerコントロール使うとかもでも良さそうな気がします.

アドバイスありがとうございます。
Time関数で時間を見ながら180秒待つループをこの場合にあてはめて具体的なコードを
教えてください。