変数を使ってセルの参照

質問

初歩的な質問ですいません。
セルの参照で
　　　Ａ　　　　　Ｂ　　　Ｃ
１　　あ　　　　　い
２　　う　　　　　え

='D:\A￥B\[B1.xlsx]Sheet1'!合計

のフォルダBとファイルB1を変数にして
Ｃ１に
='D:\A￥あ\[い.xlsx]Sheet1'!合計

Ｃ２に
='D:\A￥う\[え.xlsx]Sheet1'!合計
としたいのですが、

その場合どう表記すればいいのですか？
ＩＮＤＩＲＣＴ関数の場合も教えていただければありがたいです。

回答No.2

keithin · ベストアンサー

こんばんは。

作成例：
sub macro1()
　dim b as string
　dim b1 as string
　b = range("A1").value
　b1 = range("B1").value
　range("C1").formula = "='D:\A\" & b & "\[" & b1 & ".xlsx]Sheet1'!合計"
end sub

作成例：応用
sub macro2()
　range("C2").formula = "='D:\A\" & range("A2").value & "\[" & range("B2").value & ".xlsx]Sheet1'!合計"
’以下オプション
’range("C2").value = range("C2").value
end sub

作成例：INDIRECT関数を使う場合
sub macro3()
　dim myPath as string
　dim myFile as string
　dim w as workbook
　mypath = "D:\A\" & range("A1").value & "\"
　myfile = range("B1").value & ".xlsx"
　set w = activeworkbook
　workbooks.open mypath & myfile
　w.select
　range("C1").formula = "=INDIRECT([" & myfile & "]Sheet1!合計)"
　workbooks(myfile).close false
end sub

＃補足
INDIRECT関数では、「閉じたブック」への参照を可変にすることは「できません」。

お礼

ありがとうございます。
やはりマクロしかありませんか？！

回答No.3

keithin

ん？
＞やはりマクロしかありませんか？！

別に出し惜しみやイジワルをしてるワケではありません。そういう便利な方法があれば、さっさとそう回答しています。
ご相談に書かれた「その通りの事」をしたければ、こうしますと回答しているのです。

どうしてもＩＮＤＩＲＥＣＴ関数が使いたいなら、回答したマクロの３番目でやっているのと全く同じく、手動でブックを開いてください。
その場合は「どこのブック」は手で開いた時点で確定していますから、ブック名だけが可変になります。

回答No.1

K Kazz（@JazzCorp）

パス、拡張子は自分の環境に合わせる。

=INDIRECT("'D:\tmp\tmp\"&A1&"\["&B1&".xls]Sheet1'!合計")

お礼

ありがとうございました。