|
PONDOG さん、おはようございます。
>教えていただきましたログからDir関数を使うことはわかったのですが、初心者のためどのように活用したらいいのかわからず悩んでいます。
> 初心者なりに、なんとかしようと試行錯誤したのですが、「型が一致しません」とエラーが出てしまいます。大変申し訳ございませんが、もう少し詳しく教えてください(>_<)
Dir関数のヘルプより
『Dir 関数は、引数 pathname と一致する最初のファイル名を返します。一致するファイル名がない場合は、Dir 関数は長さ 0 の文字列を返します。』
ということなので、たとえばこんな分岐。
Pathname = ThisWorkbook.Path 'フォルダを取得
If Right(Pathname, 1) <> "\" Then Pathname = Pathname & "\" 'ルートフォルダ以外
Pathname = Pathname & "データ.xls" 'データのファイル名
'ここで分岐
If Dir(Pathname) <> "" Then
Workbooks.Open (Pathname)
' 開いた時の処理が他にあれば
' ここに追加する
Else
'ファイルがない場合はメッセージを表示する場合
MsgBox Pathname, vbInformation, "ファイルなし"
End If
こんな感じです。
|
|