excel vba

質問

excel　ＶＢＡ
(質問１）
B7 セルに,DOC20071201_1231.xlsとはいっているとき下記の動作と同様のことをB7を使って表現するにはどうすればいいか。
Sub bookwo_open()
Workbooks.Open Filename:="C:\Documents and Settings\taktta\My Documents\Log zzz\2007 log\2007年報告\2007年12月分\" & "DOC20071201_1231.xls"
End Sub
(質問２）
Ａ１セルに７とはいっているとき、B7セルに入っているファイルをオープンするには、どうすればいいか。
（Ａ１セルにｎとはいっているとき、Bｎセルに入っているファイルをオープンするには、どうすればいいか。）

回答No.2

imogasi · ベストアンサー

何でこんな質問が出るの？
Filename:="・・の””内は文字列と割り切ればよいのだ。
複雑なように惑わされているだけ。
だから
（１）指定のセルに入っている部分はその文字列を利用し
（２）多分前部の不足するところは、自分が定数の文字列で定義し、
（または場合によってはCurDir()など使える場合あり）
（２）と（１）を＆で文字列結合すればよい。
＞Ａ１セルにｎとはいっているとき、Bｎセルに入っている
こんなのVBAならX=Cells(１、”A")でA1の値７が取れるから
Y=Cells(X、”B")を文字列に使えばよいだけの話では。

お礼

このように使うということがよくわかりました。このような質問は今後ｈしないほどとくわかりました。有難うございました。

回答No.1

lark_0925

Sub bookwo_open()
　　Workbooks.Open _
　　　　　Filename:="C:\Documents and Settings\taktta\My Documents\Log zzz\2007 log\2007年報告\2007年12月分\" & _
　　　　　　　range("b" & [a1].value).value

End Sub

もっともデータが入っているシートがアクティブであることを
想定しています。

お礼

使いかたがよくわかりました。＆range("B"&[A1].value).valueなんですね。ご回答どうもありがとうございました。