ここから本文です

セルに入力された値がファイルのフルパスかどうか確認することをVBAでやりたいです...

アバター

ID非公開さん

2020/5/1701:46:30

セルに入力された値がファイルのフルパスかどうか確認することをVBAでやりたいです。

イベント中に、例えば、「そのセルに入力があるか」「フォルダ名やファイル名だけでなくちゃんとフルパスで入力されているか」「そのファイルは存在しているのか」を確認し、もし適切ではなかった場合ExitSubします。
ぱっと思いつかないのですが、いい方法はありますか?

閲覧数:
21
回答数:
2

違反報告

回答

1〜2件/2件中

並び替え:回答日時の
新しい順
|古い順

mik********さん

2020/5/1708:02:36

》 セルに入力された値がファイルのフルパスかどうか確認する
當該ファイルが既に[名前を付けて保存]されて居る事が前提ですが、次式がフルパス名にならうかと。御試し下さい。
因みに、パスの区切り記号は「\」で、パスの末尾も「\」です。
=LEFT(CELL("filename",A1),FIND("\\",SUBSTITUTE(CELL("filename",A1),"\","\\",LEN(CELL("filename",A1))-LEN(SUBSTITUTE(CELL("filename",A1),"\","")))))

.....さん

2020/5/1703:49:14

Dir関数に渡して結果が帰ってこなければ存在していないパスということでいいんじゃないでしょうか?

Sub testttttt()
If Dir(Range("A1").Value) = "" And Dir(Range("A1").Value, vbDirectory) = "" Then
MsgBox "存在しません"
Exit Sub
Else
'存在するときの処理
End If
End Sub

これはパスの存在確認ですがIF分のvbDirectoryの方の条件を消してしまえばファイルが存在しない場合Exitします

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる