Excel VBA質問箱 IV

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

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


58494 / 76732 ←次へ | 前へ→

【22965】Re:ファイルを開く時のエラー回避
回答  かみちゃん  - 05/3/9(水) 6:46 -

引用なし
パスワード
   こんちには。かみちゃん です。

>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
2 hits

【22961】ファイルを開く時のエラー回避 VBA初心者 05/3/8(火) 23:27 質問
【22965】Re:ファイルを開く時のエラー回避 かみちゃん 05/3/9(水) 6:46 回答
【23016】Re:ファイルを開く時のエラー回避 VBA初心者 05/3/10(木) 0:10 お礼
【23021】Re:ファイルを開く時のエラー回避 かみちゃん 05/3/10(木) 7:20 発言
【23067】Re:ファイルを開く時のエラー回避 ちゃっぴ 05/3/12(土) 2:10 発言
【23071】Re:ファイルを開く時のエラー回避 かみちゃん 05/3/12(土) 8:05 発言
【23074】Re:ファイルを開く時のエラー回避 ichinose 05/3/12(土) 9:07 発言
【23075】Re:ファイルを開く時のエラー回避 G-Luck 05/3/12(土) 9:24 発言
【23087】Re:ファイルを開く時のエラー回避 ちゃっぴ 05/3/12(土) 19:06 回答
【23089】Re:ファイルを開く時のエラー回避 かみちゃん 05/3/12(土) 19:25 発言
【23090】Re:ファイルを開く時のエラー回避 ちゃっぴ 05/3/12(土) 19:59 発言

58494 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free