こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel VBA ハイパーリンクの追加でエラー

Excel VBAで下記のようなコードを書いて、ファイルに対するハイパーリンクを追加したいのですが、実行時にエラーとなってしまいます。
どんな原因が考えられるか教えていただけますでしょうか。
よろしくお願いいたします。

<実行環境>
Excel 2003

<コード> 
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(RowNum, 1), Address:=FilePath
End With

<エラー>
実行時エラー '1004'
アプリケーション定義またはオブジェクト定義のエラーです。

<補足>
Excel2000の環境で実行すると正常に動作します。バージョンの違いで動作に差がでるのでしょうか?
またRowNumとFilePathには有効な値が入っていることはステップ実行で確認しています。

投稿日時 - 2011-05-18 21:51:03

QNo.6747135

困ってます

質問者が選んだベストアンサー

2003で試してみましたが、問題なく動作するようです。


FilePathの方は存在しない値を設定しても、エラーにはならないみたい。
ただし、""を設定しておいて実行しようとすると、
 実行時エラー '1004'
 アプリケーション定義またはオブジェクト定義のエラーです。
となります。

また、RowNumの方は存在しない値(0など)にしておくと、やはり
 実行時エラー '1004'
 アプリケーション定義またはオブジェクト定義のエラーです。
が出ます。

なので、再度、RowNum及びFilePathの値をチェックしてみるのがよろしいかと…
(RowNum、FilePathの値をどのようにセットしているか不明ですが、2000では実行できるとのことなので、計算の元になるデータが違っているとかはないですか?)

投稿日時 - 2011-05-18 22:53:29

お礼

ご回答いただき、ありがとうございます。
ご指摘の点を含めていろいろ試していたのですが、原因はバージョンの違いではなく、ブックを共有していたために処理できなかったということがわかりました。お手数をおかけしました。

投稿日時 - 2011-05-23 23:40:58

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問