回答受付が終了しました

tjy********

2021/1/22 1:50

11回答

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

ExcelのVBAに関しての質問です。 csvファイルのデータの一部を、まとめ用のExcelに転記するVBAを作りました。 作業としては ・マクロ起動 ・csvファイルを選択 ・まとめ用のExcelのテンプレートシートをコピー ・コピーしたシートの名前をcsvファイルの名前と同名に ・コピーしたシートの任意の場所にcsvファイルの一部を張り付け ・Excel保存&閉じる という形です。 頻繁にデータが追加されるので、作業効率の向上のために、指定のフォルダにcsvファイルが追加された場合に上記のマクロが勝手に実行するようにしたいのですが、そのようなコードはありますでしょうか？ 調べたのですが自分で実装は出来ませんでした。

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

回答（1件）

0

草食系のトラ

2021/1/22 22:27

'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