回答受付が終了しました

ExcelのVBAに関しての質問です。 csvファイルのデータの一部を、まとめ用のExcelに転記するVBAを作りました。

Visual Basic | Excel16閲覧xmlns="http://www.w3.org/2000/svg">50

回答(1件)

0

'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