読み込んだファイルを画面に表示されるのを確認してから、

質問

読み込んだファイルを画面に表示されるのを確認してから、
読み込んだファイルを削除したいと思います。
数秒間処理の実行を中断する方法を教えて下さい。

回答No.1

hige_082 · ベストアンサー

wait を使用した例です

Sub test()
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
MsgBox "実行から、10秒たちました"
End Sub

参考まで

お礼

お忙しい中、ご回答頂きありがとうございました。
以下のコードの時、最終行にブレークポイントを設けると、
読み込み中の表示が残ったままになってしまいますが、
完全に読み込みが終了してから、最終行を実行することは
できないのでしょうか？
すみませんが、よろしくお願いします。

Worksheets("test").Select
DirPath = "C:\test\"
Filename = "aaa.csv"
myCnc1 = "ODBC;"
myCnc2 = "DBQ=" & DirPath & ";"
myCnc3 = "Driver={Driver da Microsoft para arquivos texto (*.txt; *.csv)};"
myCmd = "SELECT * FROM C:\test\aaa.csv"
With ActiveSheet.QueryTables.Add(Connection:=myCnc1 & myCnc2 & myCnc3, Destination:=Worksheets("test").Range("A1"))
.CommandText = myCmd
.Refresh
End With
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
Kill DirPath & "\" & Filename