最下層のエクセルを開いて処理するマクロ

Question

Excelのマクロについて質問です。
下記のなマクロを組みました。これ自体は正常に動いています。
今後、汎用性を持たせるために
パス部分の A のフォルダ名が変更されても B.xlsxが開くようにしたがです。
A以外の部分は固定になります。
ワイルドカードなどでできるかと思ったのですが
うまくマクロが実行されず、、。
どのように変えればいいか、ご教示いただきたいです。

CopyPaste()

Dim FilePath
FilePath = ThisWorkbook.Path & "¥Results¥A¥B.xlsx"

Workbooks.Open FilePath

Workbooks ("B.xlsx").Sheets("Summary").Range ("A2:A583").Copy
Workbooks ("macro.xlsm").Sheets("Sheet 1").Range("A1").PasteSpecial xIPasteValues

Workbooks("B.xlsx").Sheets("Summary").Range("J2:J583").Copy
Workbooks ("macro.xlsm").Sheets("Sheet 1").Range("B1").PasteSpecial xIPasteValues

Workbooks("B.xlsx").Close SaveChanges:=False

End Sub

Comments

[tatsu99]

提示されたマクロはコンパイルエラーになります。そもそも、動きません。
CopyPaste()
Dim FilePath = ThisWorkbook.Path & "¥Results¥A¥B.xlsx"
は
Sub CopyPaste()
Dim FilePath
FilePath = ThisWorkbook.path & "\Results\A\B.xlsx"
ではないでしょうか。

[macro123]

ご質問ありがとうございます。
私の環境では¥で正常に動いております。
WindowsやLinux等の違いで
その部分は変えないといけないと思います。

[macro123]

すみません、最初の部分は記載ミスです。
記載いただいた通り
Dim FilePath
FilePath = ThisWorkbook〜
が正しい内容になります。

Answer 1

FilePath = ThisWorkbook.Path & "¥Results¥*¥B.xlsx"
のワイルドカードを展開するよるような処理は自前でつくるしかないです。
プロシージャ：ExPathを作成し、
FilePath = ExPath(ThisWorkbook.path & "\Results", "B.xlsx")
で呼び出してください。
なお、
ThisWorkbook.path & "\Results"　下にフォルダが１件もない場合
ThisWorkbook.path & "\Results"　下にフォルダがあっても、B.xlsxがない場合
は、FilePathは""になりますのでご注意ください。
ThisWorkbook.path & "\Results"　下にフォルダ複数あって、いずれのフォルダにもB.xlsxがある場合は、
最初にみつかったB.xlsxのパスがかえります。
フォルダ：Resultsがない場合は、エラーになります。

Sub CopyPaste()

Dim FilePath

'FilePath = ThisWorkbook.path \A\B.xlsx"
FilePath = ExPath(ThisWorkbook.path & "\Results", "B.xlsx")

Workbooks.Open FilePath
'以降省略

End Sub

Public Function ExPath(ByVal pair_path As String, ByVal book_name) As String
    ExPath = ""
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim fols As folders
    Dim fol As Folder
    Dim fname As String
    Set fols = FSO.GetFolder(pair_path).SubFolders
    For Each fol In fols
        fname = pair_path & "\" & fol.Name & "\" & book_name
        If FSO.FileExists(fname) = True Then
            ExPath = fname
            Exit Function
        End If
    Next
End Function

Comments

[macro123]

大変参考になりました。
この度はありがとうござます。