| |
毎度スイマセン。
ファイル1を開くマクロを作ったのですが、対象のファイルと同じフォルダ内にある場合のパスをFile_Path1、同じフォルダに無い場合、対象のファイルのある場所をFile_Path2としました。
対象ファイルが無い場合、
On Error GoToでエラー回避で次の操作に移ろうと思ったのですが、この操作だと、1番目に回避出来ても、2番目に同じエラーが発生(対象ファイルが結局なかった場合)した時は回避出来ませんでした。
ちなみに作ったマクロは以下の通りです。
'-----------------------------------------------------------------
Sub File1_Open()
Dim ファイル1 As String
Dim FN1, FN2 As Variant
Dim File_Path1 ,File_Path2 As Path
'対象ファイルと同じフォルダに存在する
FN1 = File_Path1 & "\" & ファイル1
On Error GoTo Tugi1
Workbooks.OpenText Filename:=FN1, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=True, _
Semicolon:=False, _
Comma:=True, _
Space:=True, _
Other:=False
GoTo Tugi2
'-----------------------------------------------------------------
Tugi1:
'対象ファイルと同じフォルダ内にない場合
FN2 = File_Path2 & "\" & ファイル1
On Error GoTo FIN
Workbooks.OpenText Filename:=FN2, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, _
Tab:=True, _
Semicolon:=False, _
Comma:=True, _
Space:=True, _
Other:=False
Tugi2:
作業マクロ '(モジュール参照)
FIN:
End Sub
'-----------------------------------------------------------------
2回目のエラーを回避したらよろしいでしょうか？
|
|
VBA初心者
- 05/3/8(火) 23:27 -
