エクセルのハイパーリンクURL抽出プログラムについて

質問

下記のBLUEPIXY さん回答を参考に、エクセルのハイパーリンクURL抽出をしました。

http://okwave.jp/qa1545446.html

半角英数のみのURLはうまく抽出できましたが、下記のように全角日本語を含むURLは日本語部分のみ抽出されません。

http://www.asahi-net.or.jp/~cj7h-mrgc/EMG/french.html#レ・ヴォア

VBA標準モジュールの改造が必要かと思うのですが、知識が乏しくどのようにするのかが分かりません。
もし宜しければアドバイス頂けませんでしょうか？

宜しくお願いします。

回答No.1

redfox63

別に日本語だから失敗しているのではありません
#以後が Addressプロパティに入ってこないだけです

で何処にあるかと言うと SubAddressプロパティに設定されます

したがって
If r.Hyperlinks.Count > 0 Then
　　linkAddress = r.Hyperlinks(1).Address
Else
の部分を
If r.Hyperlinks.Count > 0 Then
　　linkAddress = r.Hyperlinks(1).Address
　　if r.Hyperlinks(1).SubAddress<>"" then
　　　　linkAddess = linkAddress & "#" & r.Hyperlinks(1).SubAddress
　　end if
Else

といった具合でしょう ・・・

お礼

こんなに早く回答をいただけるとは思いませんでした。
おかげさまで何とかなりました。
有難うございます。