|
LIFE さん、おはようございます。
>ディレクトリとファイル名を入力したセルがあり、そのディレクトリの中からそのFileを検索して存在すればFileを開き、なければそのセルの1つ左のセルに
>Not Foundと表示させたいのですが、
C1にフルパスファイル名(例:C:\Test\Book1.xls)が入っているとして。
Sub test()
Dim Ifile As String
With Worksheets("Sheet1")
Ifile = .Cells(1, 3).Value
.Cells(1, 2).ClearContents '初期化
'分岐
If Trim(Ifile) = "" Then
MsgBox "Empty", vbExclamation
Else
If Dir(Ifile) = "" Then
.Cells(1, 2).Value = "File Not Found"
MsgBox "Failure", vbExclamation
Else
Workbooks.Open FileName:=Ifile
MsgBox "Done", vbInformation
End If
End If
End With
End Sub
こんな感じです。
Dir関数は、はじめの1回は引数が必要なので、""という文字列を送らないように2段の分岐になっています。
ファイル名を・・
├指定してない → エラー
└指定してある → ファイルをチェック(Dir)
├そういう名前のファイルがない → 失敗
└そういう名前のファイルがある → ブックを開く
関数やプロパティなどの詳細についてはヘルプを見てください。
|
|