[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ファイルが存在しません、と出したい』(勉強中)
お世話になります。
この様に書きました。
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
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.