Excel VBA質問箱 IV

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

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


13405 / 13644 ツリー ←次へ | 前へ→

【5565】リンクがおかしくなります ほぐほぐ 03/5/20(火) 14:57 質問
【5584】Re:リンクがおかしくなります りん 03/5/21(水) 4:11 回答

【5565】リンクがおかしくなります
質問  ほぐほぐ  - 03/5/20(火) 14:57 -

引用なし
パスワード
   はじめまして、よろしくおねがいします。
ふたつのサーバー(仮にAAA鯖、BBB鯖)に
1:当月ブック(仮にA.xls)
2:前月ブック(仮にB.xls)
という全く同じブックがそれぞれおいてあります。
当月ブックは、前月ブックを参照しています。
=[B.xls]!A1 としているので
どちらのサーバーからブックをコピー(今まで手作業で
サーバーからサーバーへコピーしてました)しても
問題なく参照できていました。
基本的に、毎日AAA鯖のブックを変更しますので
それを、BBB鯖にコピーしたいのですが
今回、そのコピー作業をマクロで作ろうとしました。
BBB鯖へ名前を付けて保存するという方法を考え
AAA鯖のAブック
  ChDir BBB鯖
  ActiveWorkbook.SaveAs Filename:=BBB鯖 & フォルダ "\" & A.xls
これでちゃんと、BBB鯖に同じブックが保存されていました。
ところが開くと ='AAA鯖:\[B.xls]'!A1
と参照式全てが変わってしまっていました。
BBB鯖からAAA鯖は見えませんので、リンク先がありません、と
なってしまいます。
これをどうにかする方法はありませんでしょうか。
どうぞよろしくお願いいたします。。。

【5584】Re:リンクがおかしくなります
回答  りん E-MAIL  - 03/5/21(水) 4:11 -

引用なし
パスワード
   ほぐほぐ さん、こんばんわ。

>これでちゃんと、BBB鯖に同じブックが保存されていました。
>ところが開くと ='AAA鯖:\[B.xls]'!A1
>と参照式全てが変わってしまっていました。

コピー後にリンク変更を入れてみてください。

>  ActiveWorkbook.SaveAs Filename:=BBB鯖 & フォルダ "\A.xls"
   'ファイル名とフォルダ名をちゃんと指定してくださいね↓
   ActiveWorkbook.ChangeLink Name:=AAA鯖 & "\A.xls", _
    NewName:= BBB鯖 & フォルダ "\" & "A.xls", Type:=xlExcelLinks

手動でするなら 編集 → リンクの設定 → リンク元の変更 です。
この作業をマクロ記録してみれば、フォルダやファイル名の指定の方法がわかると思います。

これでだめだったらごめんなさい。うちには鯖が無いので、鯖経由のChangeLinkが有効かどうかは実験できませんでした。

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