エクセル リンクを貼ったブックの移動出来ませんでした

質問

先日、ここで教えて貰ったのですが、
Office 2004 for Macエクセルで、リンクを貼ったブックの保存先の移動ですが、
「別名で保存する」で出来たのですが、ソフトを再起動すると「指定されたファイルを開くことができません。」となります。

編集→置換でやってみたのですが、リンクを貼った文字列がURLでないので「検索条件に一致するデータはみつかりません」になります。文字列をURLのままにして置換えると出来るのですが、文字列だけを書き換えてもリンク先の内部の「%E5%A3%B2%E4%・・・」のところが書き換わりません。

やはり一つずつ打ち込み直さなければならないのでしょうか。
一つ出来あがった物を雛形にして、名前を変えていろいろと使いたいと思っていますのでご存知の方よろしくお願いします。

回答No.2

Wendy02 · ベストアンサー

こんばんは。

私は、不勉強でしたけれども、
リンク先の内部の「%E5%A3%B2%E4%・・・」
って、いったん、保存すると、エンコードされるようですね。
今、それがデコードできませんでした。1字でもデコードできれば、なんとか見えてくるのですが。

>マクロでやると、リンク先の内部の「%E5%A3%B2%E4%・・・」も書き換わるのでしょうか?
正しく、検索文字をコードに入れられればよいのですが……。そうでなければ、マクロは役に立ちません。

-----------------------------------------------------
一応、書いておきますが、無駄になるかもしれません。
マクロの取り付け方は、

標準モジュールへの取り付け方：

Alt　+　 F11 (Altを押しながらF11）を押すと、Visual Basic Editor 画面が出てきます。
次に、メニューの[挿入]－[標準モジュール]と開けて、クリックすると、画面が現れますので、以下のコードを貼り付けて、

以下の部分をちゃんと書き換えなくてはならないのです。

ここで決まります。（これは一例です）
Const MAE As String = "C:\ABC\"　 '置換前
Const ATO As String = "C:\My Documents\"　'置換語

Alt　+　Q で、画面を閉じます。

-----------------------------------------------------
実行は、

Alt + F8 で、マクロ選択のウィンドウが出てきますから、
TestReplace

をクリックすればよいだけです。

------------------------------------------------------
しかし、エンコードとデコードのプログラムは、この場合はかなり厳しいです。
私自身は、いろんなデコードはできるのですが、これ以上のコードを提供し続け、テストしてもらうということは、かなり心苦しいのです。

「%E5%A3%B2%E4%・・・」は、２バイト文字ですよね。日本語名や漢字名のフォルダとかとなると、正しくいれられないと、どこまで置換できるのか、こちらではお約束できないのです。果たして、'置換前　の単語を正しく入れられるかだと思います。やり取りの感じでは、あまり、よく理解なさっていないように思います。試してみることは可能ですが、今の段階でき、見通しが暗くなってしまいました。

お礼

マクロの勉強をやってみます。
今回は、一つずつリンク先を打ち込み直して作ってみます。
どうもありがとうございました。

回答No.1

Wendy02

こんばんは。

こちらは、Windows ですから、必ずしもあたっているとはいえませんが、ご了承ください。

それは、「別名で保存する」までは良かったのですが、その時に、ファイルの場所が変わったわけですね。それは、確か、相対位置関係にあったので、本来は、下位フォルダに、ファイル群があれば、それはフォルダごと移動すれば、リンクは付いてくるのですが、そうでないと出来ません。

置換する内容は、一緒ですか？

ファイル－プロパティの中のハイパーリンクの基点

で、基準の内容を変更が可能ならよいのですが、そうでないとすると、マクロで処理するしかないと思います。

一括置換なら、このようにして変えることが出来ます。
バックアップを取ってから行ってください。

Sub TestReplace()
Dim h As Hyperlink
Dim s As String
Dim rep As String

Const MAE As String = "C:\ABC\"　 '置換前
Const ATO As String = "C:\My Documents\"　'置換語
　For Each h In ActiveSheet.Hyperlinks
　 s = h.Address
　 rep = Replace(s, MAE, ATO)
　 h.Address = rep
　Next h
End Sub

補足

マクロはよく解らないのですが、「ツール」→「マクロ」～プログラムの打ち込み～「実行」～「編集」→「置換」　　
　（￥ＡＢＣ￥）→（￥My Documente\)　～「マクロの記録終了」。これでいいのでしょうか？
　マクロでやると、リンク先の内部の「%E5%A3%B2%E4%・・・」も書き換わるのでしょうか?
Office 2003 だと別名で保存するとすぐ使えるのですが、Office 2004 for Macで雛形を作ってしまったので
なんとかしたくて。よろしくお願いします。