引用:
ダイアログがでて、きちんと選択すれば
問題ないのですが、ｷｬﾝｾﾙしたときの
分岐をどうすればよいかがわかりません。
引用:
もしｷｬﾝｾﾙをした時には、”終了してもよいですか？”
とメッセージを出して
”はい”なら、何もせずに（…部分も実行しない）終了して
”いいえ”なら、再度ダイアログを表示する
（標準モジュール）
-------------------------------------------------------------------
Sub ImportTextFile()
Dim TextFilePath As Variant
Dim Response As Long
ChDir "C:\Users"
Do
TextFilePath = Application.GetOpenFilename("テキストファイル (*.txt),*.txt")
If TextFilePath = False Then
Response = MsgBox("終了してもよいですか？", _
vbQuestion + vbYesNo + vbDefaultButton2, _
"ファイルが選択されませんでした")
If Response = vbYes Then
Exit Sub
End If
End If
Loop Until TextFilePath <> False
Debug.Print TextFilePath
'以下 TextFilePath が示すパスにあるファイルをインポートする処理
End Sub
-------------------------------------------------------------------
以上のようなコードを実行できればよい、ということでしょうか。
