Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58498 / 76732

←次へ　｜　前へ→


	【22961】ファイルを開く時のエラー回避

VBA初心者 - 05/3/8(火) 23:27 -


	引用なし

	パスワード

毎度スイマセン。

ファイル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回目のエラーを回避したらよろしいでしょうか？

0 hits

▼

【22961】ファイルを開く時のエラー回避 VBA初心者 05/3/8(火) 23:27

≪