Excel VBAでハイパーリンクを開いたあとに、リンク先のファイル名やフルパスではなく、マクロブック自身の情報が取得されてしまう現象は、環境や実行タイミングによって発生する典型的な問題です。本記事では、その原因と安定してリンク先情報を取得する方法について整理します。
問題の本質：ActiveWorkbookが切り替わっていないように見えるケース
Hyperlinks(1).Followを実行すると、通常はリンク先ブックがアクティブになります。
しかし実際には、処理タイミングや環境によってActiveWorkbookがまだ元のブック（マクロファイル）を指していることがあります。
その状態でActiveWorkbook.PathやNameを取得すると、意図しない結果になります。
原因：Follow直後の非同期的な切り替わり
Excelのハイパーリンク移動は内部的に遅延処理が含まれることがあります。
そのためFollowの直後にActiveWorkbookを参照すると、まだ切り替えが完了していない可能性があります。
ステップ実行では成功するのに通常実行で失敗するのは、このタイミング差が原因です。
推奨解決策：Openメソッドで明示的にWorkbookを取得する
Hyperlinks.Followに依存せず、Workbooks.Openで戻り値を受け取る方法が最も安定します。
例として以下のように書くことで、確実にリンク先ブックを取得できます。
Dim wb As Workbook
Set wb = Workbooks.Open(TargetPath)
FileName = wb.Name
FullPath = wb.FullName
この方法ならActiveWorkbookに依存しないため環境差異がなくなります。
Hyperlinksオブジェクトから直接パスを取得する方法
Hyperlinks(1).Addressはフルパスを返さない場合がありますが、BaseやSubAddressとの組み合わせで構成されていることがあります。
そのため単純にAddressを使うのではなく、必要に応じてThisWorkbook.Pathと結合して解釈する必要があります。
ただしネットワークパスや相対リンクでは不安定なため、Open取得の方が推奨されます。
環境依存問題：ステップ実行で成功する理由
ステップ実行では処理間に強制的な待機が入るため、Workbook切り替えが完了してから次の行に進みます。
そのためActiveWorkbookが正しくリンク先を指す状態になり、正常に見える挙動になります。
通常実行との差異はこのタイミング制御の有無です。
安定運用のためのベストプラクティス
ハイパーリンクのFollowとActiveWorkbook依存は避け、戻り値ベースでWorkbookを扱うことが重要です。
また、処理対象ブックを明示的に変数で保持することで、将来的な不具合を防げます。
特にサーバー環境やOfficeバージョン差がある場合はこの設計が必須です。
まとめ
今回の問題はハイパーリンクの遅延処理とActiveWorkbook依存が原因で発生します。
最も安定した解決策はHyperlinks.FollowではなくWorkbooks.Openで明示的にブックを取得する方法です。
Excel VBAでは「どのブックを操作しているか」を常に明示することが重要になります。
コメント