前提・実現したいこと
ブックAを開いてA1セルの文字列を取得
取得した文字列を含むファイルのパスを取得したい
発生している問題・エラーメッセージ
エラーメッセージ
該当のソースコード
VBA
1Option Explicit 2 3Sub ファイルを探す() 4 5Dim ex As New Excel.Application 6Dim wb As Workbook 7Dim sPath 8Dim r As String 9Dim sht As Worksheet 10 11 'ブック「A」を開く 12 sPath = ThisWorkbook.Path & "\A.xls" 13 Set wb = ex.Workbooks.Open(Filename:=sPath) 14 15 '「sheet1」の「A1」セルを取得 16 r = wb.Worksheets("sheet1").Cells(1, 1).Value 17 Debug.Print r 18 19 'ブック「A」を閉じる 20 Call wb.Close 21 22 'フォルダ「B」から文字列rを含むファイルを検索 23 Call FileSearch(ThisWorkbook.Path & "\B", "*" & r & "*") 24 25End Sub 26 27Sub FileSearch(Path As String, Target As String) 28 29 Dim FSO As Object, Folder As Variant, File As Variant 30 Set FSO = CreateObject("Scripting.FileSystemObject") 31 32 For Each Folder In FSO.GetFolder(Path).SubFolders 33 34 Call FileSearch(Folder.Path, Target) 35 36 Next Folder 37 38 For Each File In FSO.GetFolder(Path).Files 39 40 If File.Name Like Target Then 41 Debug.Print File.Path 42 End If 43 44 Next File 45 46End Sub 47
試したこと
上記のコードで、
・ブックAを開く
・A1セルの文字列を取得
・フォルダBの中から、取得した文字列をファイル名に含むファイルのパスを取得
は出来たのですが、ファイル名やシート名ではなく、
セル内に文字列を含むかどうかを判別したいです。
[If File.Name Like Target Then]でファイル名で検索しているのは分かるのですが、
Excel内のセルを対象にする方法が分からずに困っています。
補足情報(FW/ツールのバージョンなど)
Excel2013/Windows 7
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/10/23 08:55