[[20111201195238]]　『別ブックの数式をそのまま貼り付けたい』（ミカン）　ページの最後に飛ぶ

『別ブックの数式をそのまま貼り付けたい』（ミカン）

 お世話になります。

 とある処理で、Webサイトからブックをダウンロードしテンポラリーファイルに保存。
 その後、そのブックのシートをコピーして別のブックのシートに貼り付けています。
 ですが、そうすると、貼り付けた数式に他のブックの参照がもれなくついてきてしまい
 困っています。

   コピー元のブック.Worksheets(コピー元のシート).Range(コピーしたい範囲).Formula _
 = ペースト先のブック.Worksheets(ペースト先のシート).Range(ペーストしたい範囲).Formula

 というコードを試していますが、何もペーストされません。
 どうしたらよいでしょうか？

 Excel2003 XP

 結果的に何をしたいのでしょうか？

 例　新規ブックBook1（ミカンさん記述の　にてコピー元のシートのあるブックです。
     Sheet1、Sheet2というシートは確保してください）にて、

 Sheet2の　A1　　　123　と入力

 Sheet1の　A1　　　456と入力
 Sheet1の　A2　　　=sheet2!A1 と入力
 Sheet1の  A3　　　=A1        と入力

 Sheet1のA2には、123　、A3には　456　と表示されますよね？

 ここでもう一つ新規ブックBook2（ブック名は何でも良いです。
 Sheet1というシートは存在する）を作成して下さい。

 Book1のSheet1のセルA1～A3のセル範囲を選択してください。

 選択した状態で右クリック----コピーと操作し、A1～A3をコピーしてください。

 次にBook2のSheet1のA1を選択してください。
 この状態で右クリック----貼り付けを行ってください。

 Book1のSheet1のA1～A3の内容が

 Book2のSheet1のA1～A3に表示されますよね？

 しかし、Book2のA2には、=[Book1]Sheet2!A1　と言う数式が
               A3には、=A1                と言う数式が入りますよね？

 >そうすると、貼り付けた数式に他のブックの参照がもれなくついてきてしまい
 困っています。

 これは、Book2のSheet1のA2の数式のような現象ですか？

 もし、そうだとしたら、Book2のSheet1のA2には、どうのようになることが
 希望なのですか？

 ichinose

 ichinoseさん
 返信ありがとうございます。

 >>そうすると、貼り付けた数式に他のブックの参照がもれなくついてきてしまい
 困っています。
 に関しては、
 >これは、Book2のSheet1のA2の数式のような現象ですか？
 全くその通りで、結果として、A3に入っているような数式にしたいのです。
 (ミカン)

 これですね。
[[20050227224015]]『ブック間のシートコピー時の数式について』（ご近所PG）
　
（純丸）(o^-')b

 純丸さんの貼られたリンク先の川野太郎さんの

 >=[Book1.xls]Sheet2!A1のままでブックを一度保存します。
 >再度開いて、編集＞リンクの設定＞リンク元の変更で自ブックを指定してOK
 >で、どうでしょうか。

 この操作をマクロの記録にとって見ては？
 VBAでは、保存しなくても更新可能です。

 Sub test()
    With ThisWorkbook
     .ChangeLink Name:=元ブックの名前, NewName:=別ブックの名前, _
                     Type:=xlExcelLinks
    End With
 End Sub

 こんなヒントで試してみてください。

 ichinose

 純丸さん、ichinoseさん、ご回答ありがとうございます。

  Sub test()
    With ThisWorkbook
     .ChangeLink Name:=元ブックの名前, NewName:=別ブックの名前, _
                     Type:=xlExcelLinks
    End With
 End Sub

 を途中の処理の間に挟んであげることで解決しました！！
 若干動きは鈍いですが、こちらの端末の問題なのでしょうがないですね。
 どうもありがとうございました。

 ミカン

コメント返信：