Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


36940 / 76738 ←次へ | 前へ→

【44973】Re:ディレクトリが異なる場合
お礼  tomo  - 06/12/8(金) 15:44 -

引用なし
パスワード
   ▼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

最後に数値の貼り付け直しを行い,リングを外すよう対処することにします。
ご助言,ありがとうございました。
0 hits

【44956】ディレクトリが異なる場合 tomo 06/12/8(金) 10:35 質問
【44957】Re:ディレクトリが異なる場合 Jaka 06/12/8(金) 10:52 発言
【44973】Re:ディレクトリが異なる場合 tomo 06/12/8(金) 15:44 お礼

36940 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free