|
▼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
|
|