Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13407 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5565】リンクがおかしくなります ほぐほぐ 03/5/20(火) 14:57 質問
【5584】Re:リンクがおかしくなります りん 03/5/21(水) 4:11 回答
【5565】リンクがおかしくなります
質問  ほぐほぐ  - 03/5/20(火) 14:57 -
引用なし
パスワード
   はじめまして、よろしくおねがいします。
ふたつのサーバー（仮にAAA鯖、BBB鯖）に
１：当月ブック（仮にA.xls)
２：前月ブック（仮に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が有効かどうかは実験できませんでした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13407 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free