質問: ExcelのVBAに関しての質問です。 csvファイルのデータの一部を、まとめ用のExcelに転記するVBAを作りました。
回答: 'OnTimeでの処理を一度起動すると一分毎に自分をタイマー起動してくれるので 'その中で CSV取り込み処理 を呼んでCSVファイルが有れば処理する方法 Public wOnTime As Date Sub CSV取り込み処理() Dim wCsvFileName as String wCsvFileName = "C:\DataFolder\Data1.csv") If Dir(wCsvFileName) <> "" Then 'CSVファイルが見つかった時の処理 End If End Sub '===================== Sub OnTimeでの処理() Call CSV取り込み処理 wOnTime = Now() + TimeSerial(0, 1, 0) '現在の一分後 Call Application.OnTime(wOnTime, "OnTimeでの処理") 'wOnTimeの時刻に[OnTimeでの処理]を実行 End Sub '===================== Sub OnTimeStop() On Error Resume Next Call Application.OnTime(wOnTime, "OnTimeでの処理", , False) End Sub