|
▼Jaka さん:
>開くのがいやなら、セルに関数を書き込んだほうが良いと思います。
リンクが出来るのが嫌だったため,Application.WorksheetFunction でなんとか出来ないものかと悩んでいたのですが,やはり,書き込む方法がいいようですね。
P:P→・・・→Z:ZのループもR1C1形式にすることで解決できました。
Set wk1 = Worksheets("summary")
dpath = Thisworkbook.Path & "\Case1"
shtname = "\[sample1.xl]"
numcolumn = 16
fname = dpath & shtbame
For i = 1 to 11
wk1.Cells(2, i + 3 ).Value = "=INDEX('" & fname & "summary1'!C" & numcolumn + 1 & ",MATCH(RC1, '" & fname & "summary1'!C1,0),1)"
Next i
最後に数値の貼り付け直しを行い,リングを外すよう対処することにします。
ご助言,ありがとうございました。
|
|