|
少しずつ完成に近づいています。ありがとうございます。
実時間を指定する際のコードですが
TAry = Array("00:00:00", "06:00:00", "12:00:00", "18:00:00", "00:00:00", "06:00:00", "12:00:00", "18:00:00", "00:00:00")
For i = 0 To 8
Application.OnTime TimeValue(TAry(i)), "Test_T"
Next i
こんな感じで記述するとマクロを実行してExcelを起動してる間は
3回目の0時になるまで動くと理解していいのでしょうか?
それとも5時から起動したら6時から開始するという意味になりますか?
上書きする時にメッセージを表示させないで上書きする方法を質問しようと
思いましたが
Sub Test_T()
Worksheets("Sheet1").QueryTables(1).ResultRange.Copy
With Workbooks.Add(xlWBATWorksheet)
.Worksheets(1).Range("A1").PasteSpecial xlPasteValues
Application.DisplayAlerts = False 'この行を追加
.SaveAs ThisWorkbook.Path & "\hujio" & _
Format(Date, "yy") & ".csv", xlCSV
.Close False
End With
Application.CutCopyMode = False
End Sub
で解決しました。
何かおかしい部分があったら訂正をお願いします。
|
|