[[20171011140903]]　『ファイルが存在しません、と出したい』（勉強中）　ページの最後に飛ぶ

『ファイルが存在しません、と出したい』（勉強中）

お世話になります。
この様に書きました。
Workbooks.Open Range("B1").Value & ":\" & Range("B2").Value & "\" & Range("B3").Value & ".xls"
このコードを下記のサンプルの様に無いときはMsgBoxで出したいのですがエラーになります。
"C:\Book1.xls"の箇所をどのようになおせばよいのでしょうか。

Sub Sample3()

    If Dir("C:\Book1.xlsx") <> "" Then
        Workbooks.Open "C:\Book1.xls"
    Else
        MsgBox "ファイルが存在しません。", vbExclamation
    End If
End Sub

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 Range("B1").Value & ":\" & Range("B2").Value & "\" & Range("B3").Value & ".xls" 
 の結果を変数に入れてその変数を使ってはどうか。

 Sub Sample3()
    Dim WK_FILE     As String
    WK_FILE = Range("B1").Value & ":\" & Range("B2").Value & "\" & Range("B3").Value & ".xls"
    If Dir(WK_FILE) <> "" Then
        Workbooks.Open WK_FILE
    Else
        MsgBox "ファイルが存在しません。", vbExclamation
    End If
End Sub

（ねむねむ） 2017/10/11(水) 14:25

ねむねむさん
なるほど！！と感心しています。
ありがとうございました。
（勉強中） 2017/10/11(水) 14:38

お世話になります。
現在は以下のコードに進展しているのですがわからなりました。
Workbooks.Open Filename:=WK_FILE2で止まってしまいます。
どなたか教えてください。

      Dim WK_FILE1  As String
      Dim WK_FILE2  As String
      Dim WK_FILE3  As String

            WK_FILE1 = Range("B1").Value & ":\" & Range("B2").Value & "\" & Range("B3").Value & ".xls"
         If Dir(WK_FILE1) <> "" Then
             Workbooks.Open Filename:=WK_FILE1

          ElseIf Dir(WK_FILE2) <> "" Then
            WK_FILE2 = Range("C1").Value & ":\" & Range("B2").Value & "\" & Range("B3").Value & ".xls"
             Workbooks.Open Filename:=WK_FILE2

          ElseIf Dir(WK_FILE3) <> "" Then
            WK_FILE3 = Range("D1").Value & ":\" & Range("B2").Value & "\" & Range("B3").Value & ".xls"
             Workbooks.Open Filename:=WK_FILE3
        End If

（勉強中） 2017/10/12(木) 13:58

解決しました
（勉強中） 2017/10/12(木) 14:56

コメント返信：

[ 一覧(最新更新順) ]

[[20171011140903]] 『ファイルが存在しません、と出したい』（勉強中） ページの最後に飛ぶ

[[20171011140903]]　『ファイルが存在しません、と出したい』（勉強中）　ページの最後に飛ぶ