| |
VBA内でのパスの指定方法について質問が有ります。
<目的>同フォルダ内にある別のブックから(その別のブックを開かずに)
現在のブック(仮にTest.xlsとします)に値を抜き出してくるマクロ。
抜き出される方のブック名とシート名とセルアドレスを固定ではなく、
Test.xlsのシートAのセルに入力しているものにしたいのです。
具体的に、現在以下のようなものを作っています。
---------------------------------------------------------------
Sub Test()
Dim Filename, Sheetname, CopyCellAdd As String
Filename = (Worksheets("シートA").Cells(1, 1)) '例 Book1 等
Sheetname = (Worksheets("シートA").Cells(1, 2)) '例 シートF 等
CopyCellAdd = (Worksheets("シートA").Cells(1, 3)) '例 (3,3) 等
Worksheets("シートA").Cells(5, 5) = _
"='" & ThisWorkbook.Path & _
"\[" & Filename & ".xls]Sheet1'!B5"
End Sub
---------------------------------------------------------------
現在、Test.xlsを開いており、そのシートAのA1に『Book1』、A2に『シートF』、
A3に『(3.3)』と入力しているとします。
上のマクロだとブック名は期待通り『Book1.xls』になりますが、その中の
Sheet1のセルB5の値を抜き出してきちゃいます。(シート名とセルアドレスを
固定にしてるのだからもちろん当たり前です)
このシート名とアドレスを固定ではなく、Test.xlsのシートAのA2とA3に入力
しているものにしたいのです。Filenameは何とか上のでウマく行きましたが、
SheetnameとCopyCellAddのPath指定への使用方法がわかりません。
すみませんがどなたかご教授頂けないでしょうか。
|
|
ミク
- 07/5/22(火) 9:48 -
