前提・実現したいこと
VBAに対する知識が浅いため、質問させてください。
今回作成予定のVBAにあるセルに入力されたファイル名からパス、サイズ、日付などを取得したい。
また、パスを指定する際にワイルドカードなどを用いて検索対象を広げたい。
"C\フォルダ\フォルダA\フォルダB" & Range("D10").Value
→フォルダB等をワイルドカードに変更したい
発生している問題・エラーメッセージ
ファイル名または番号が不正ですと出力
該当のソースコード
VBA
1Sub Execution() 2 3 Dim myName As String '名前 4 Dim myFileSize As Long 'ファイルサイズ 5 Dim myFilePath As String 'ファイルの日付 6 Dim myPath As String 'パス 7 8'名前の取得と出力 9 myName = Dir("C\フォルダ\フォルダA\" & "*\" & Range("D10").Value) 10 Range("F2").Value = KName 11 12 'サイズの取得と出力 13 myFileSize = FileLen("C\フォルダ\フォルダA\" & "*\" & Range("D10").Value) 14 Range("G2").Value = myFileSize 15 16 '日付の取得と出力 17 Range("H2").Value = FileDateTime("C\フォルダ\フォルダA\" & "*\" & Range("D10").Value) 18 19 'パスの取得と出力 20 myPath = ("C\フォルダ\フォルダA\" & "*\" & Range("D10").Value) 21 Range("I2").Value = myPath 22 23End Sub
試したこと
BookA.xlmsのセル"D10"に入力されたファイル名を用いて
("C\フォルダ\フォルダA\フォルダB" &Range("D10").Value)
→パス名にワイルドカードを用いらなければ値が取得できることは確認しました。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/07/05 12:39