|
こんちには。かみちゃん です。
>2回目のエラーを回避したらよろしいでしょうか?
ファイルの存在チェックをDir関数を使ってすればいかがでしょうか?
Option Explicit
Sub File1_Open()
Dim ファイル1 As String, FN1 As String, FN2 As String
'Dim File_Path1, File_Path2 As Path ← データ型Pathとは?
Dim File_Path1, File_Path2 As String
FN1 = File_Path1 & "\" & ファイル1
'FN1が存在しない場合
If Dir(FN1) = "" Then
FN1 = File_Path2 & "\" & ファイル1
End If
'Path1または、Path2にファイル1が存在する場合
If Dir(FN1) <> "" Then
Workbooks.OpenText Filename:=FN1, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=True, _
Semicolon:=False, _
Comma:=True, _
Space:=True, _
Other:=False
作業マクロ '(モジュール参照)
End If
End Sub
|
|