リンク先のブックのシートを、同じブック内にコピー

Web上にExcelファイルが置いてあります。
ハイパーリンクでこのファイルへのパスを設定し、
クリックすると、別ブックでこのExcelファイルが開かれます。

これを、別ブックではなく、ハイパーリンクを設定したブック内に、
リンク先ファイルのシートをコピーさせることは可能でしょうか。

よろしくお願いします。

No.1 ベストアンサー 回答者： wild-rain 回答日時： 2009/08/15 17:58

まとめると、今、開いているエクセルファイル（Ａ）の中に記載されたハイパーリンクをクリックすると、Ｗｅｂ上に置いてあるエクセルファイル（Ｂ）のシートを、今開いている（Ａ）の別シートとして開くようにできないか？ということですよね。

残念ながら、普通のやり方ではできません。マクロを書いて、開いたエクセルファイル（Ｂ）の中からシートを（Ａ）にコピーするような動作なら、可能かもしれませんが、それなりに難しいと思われます。

この回答へのお礼

お礼が遅れ、申し訳ございません。
回答いただきありがとうございました。

質問した後、やっぱりできなさそうだと思い、VBAで実現しました。
wild-rainさんがおっしゃるとおりの、Ｂを開いてシートをＡにコピーするやり方でした。

一応、コードを書いておきます。

Function xxx(strLink As String, strFile As String, strSheet As String) As Boolean
'strLink = アドレス
'strFile = ファイル名（Ｂ）
'strSheet = コピーしたいシート名
Dim wbActive As Workbook
Set wbActive = ActiveWorkbook
ActiveWorkbook.FollowHyperlink Address:=strLink & strFile, SubAddress:=strSheet, NewWindow:=False
Workbooks(strFile).Sheets(strSheet).Copy After:=wbActive.Sheets(1)

お礼日時：2009/08/30 09:32