◾️Excel VBA 統合について Consolidateメソッドを使用する際、Excelブックを

◾️Excel VBA 統合について
Consolidateメソッドを使用する際、ExcelブックをActiveWorkbook的なもので指定できないでしょうか？

◾️実現したいこと
ブック名が意図せずして変更された際にも、作動させ
たい

◾️対象コード
Selection.Consolidate Sorces:="'［統合ファイル.xlsm］貼り付け'!R5C2:R508C4", Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False

上記コードの［統合ファイル.xlsm］の部分に変数化してThisWorkbook.Nameと試みてもエラーが帰ってきました。

以上VBAに詳しい方、ご教授願います。

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2018/06/23 19:06

Selection.Consolidate Sorces:="'[" & ThisWorkbook.Name & "]貼り付け'!R5C2:R508C4", Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False

ではなくて？

この回答へのお礼

素早いご返答ありがとうございました。
記載して頂いたコードを入力するとできました。
ちなみに&でThisWorkbook.Nameを挟んでいる理由はなんなのでしょうか？？
お手隙ならば、ご教授していただければ幸甚に存じます。

お礼日時：2018/06/24 08:56

No.2 回答者： ママチャリ 回答日時： 2018/06/23 19:10

変数化したコードを補足にアップできますか。

この回答へのお礼

ご返答ありがとうございます。
めぐみん様のコードで解決できました。
私が行っていたことは、
Dim FPath As String
FPath = ThisWorkbook.Name
でFPathを統合ファイル.xlsmに代入してました。。。

お礼日時：2018/06/24 08:59