Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


47206 / 76737 ←次へ | 前へ→

【34492】Re:Excelを起動してる間、マクロを動かし...
質問  岡田  - 06/2/3(金) 20:29 -

引用なし
パスワード
   ▼Kein さん、やっちんさん ありがとうございます。
テストとして動き続けることは確認できましたが
現在使用しているMacro1に
MyTime = MyTime + TimeValue("1:00:00")
  Application.OnTime MyTime, "Macro1"
をどこに入れていいのかがわかりませんでした。


Sub Macro1() 'Webクエリを使用

Application.DisplayAlerts = False
  With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://www.abc.html", Destination:=Range("A1"))
    〜〜〜
    省略
    〜〜〜
      End With
  ActiveWorkbook.SaveAs Filename:= _
    "C:\Documents and Settings\abc.htm", FileFormat:= _
    xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False

With Selection.QueryTable
    .Connection = "URL;http://www.123.html"
    〜〜〜    
    省略
    〜〜〜
  End With
  ActiveWorkbook.SaveAs Filename:= _
    "C:\Documents and Settings\123.htm", FileFormat:= _
    xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
End Sub


Sub Macro2()
MyTime = TimeSerial(20, 0, 0)
 Application.OnTime MyTime, "Macro1"
End Sub


Sub Auto_Close()
  Application.OnTime MyTime, "Macro1", , False
End Sub
0 hits

【34456】Excelを起動してる間、マクロを動かし続... 岡田 06/2/3(金) 3:46 質問
【34459】Re:Excelを起動してる間、マクロを動かし続... やっちん 06/2/3(金) 8:06 発言
【34474】Re:Excelを起動してる間、マクロを動かし続... Kein 06/2/3(金) 13:05 回答
【34492】Re:Excelを起動してる間、マクロを動かし... 岡田 06/2/3(金) 20:29 質問
【34495】Re:Excelを起動してる間、マクロを動かし... Kein 06/2/3(金) 21:14 発言
【34498】Re:Excelを起動してる間、マクロを動かし... 岡田 06/2/3(金) 22:31 お礼
【34512】Re:Excelを起動してる間、マクロを動かし... gako 06/2/4(土) 15:15 質問
【34514】Re:Excelを起動してる間、マクロを動かし... Kein 06/2/4(土) 15:36 発言

47206 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free