[[20230324143018]]　『VBAでのXLOOKUP関数内のブック名・シート名の記述』（たけぼん）　ページの最後に飛ぶ

『VBAでのXLOOKUP関数内のブック名・シート名の記述』（たけぼん）

 いつも勉強させていただいています。
 以下について教えてください。
 あるブックから別ブックのデータに対してXLOOKUPしたいのですが、ブック名・シート名の記述の仕方が分かりません。
 参照するブック名とシート名はA1セルとB1セルにセットしてあります。

 sansyou_dt = Range("A1")
 sansyou_st = Range("B1")

 Range("C3").Select
 ActiveCell.Formula = "=XLOOKUP(A3,'[sansyou_dt]sansyou_st'!$A:$A,'[sansyou_dt]sansyou_st'!$B:$B,"""")"

 上記のように記述してみたのですが、エラーにはならないもののうまく実行されず、なぜか"値の更新：sansyou_dt"というダイアログが2回表示されます。

 ActiveCell.Formula = "=XLOOKUP(･････ の行はどのように記述すればいいでしょうか？
 ご教示ください。よろしくお願いいたします。

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

 言い忘れましたが、参照するブック（sansyou_dt）はオープンしてある状態です。
 よろしくお願いいたします。

（たけぼん） 2023/03/24(金) 14:37:58

""の中に括ってあるので変数が変数として働いていません。""の括りから外してください。
（火災報知器） 2023/03/24(金) 14:59:17

 ActiveCell.Formula = "=XLOOKUP(A3,'[" & sansyou_dt & "]" & sansyou_st & "'!$A:$A,'[" & sansyou_dt & "]" & sansyou_st & "'!$B:$B,"""")"

機械的にあてはめただけなのでこれで動くかわかりませんが、とりあえず。
（火災報知器） 2023/03/24(金) 15:02:01

 火災報知器さん

 有難うございます。
 試してみましたがダメでした。同じ挙動（ダイアログ表示）でした。

（たけぼん） 2023/03/24(金) 15:09:07

火災報知器さん

すみません。勘違いでした。
うまくいきました。
有難うございました。

（たけぼん） 2023/03/24(金) 15:14:14

コメント返信：