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


http://okwave.jp/qa1545446.html

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

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

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

宜しくお願いします。

回答の条件
  • 1人2回まで
  • 登録:2007/11/30 22:32:06
  • 終了:2007/11/30 23:13:56

回答(1件)

id:airplant No.1

airplant回答回数220ベストアンサー獲得回数492007/11/30 23:01:14

ポイント60pt

日本語、英語に関係なく、subaddressが取り込まれていないようです。

オリジナルのlinkaddress設定に下にコードを追加すれば、全部が取り込まれます。

        linkAddress = r.Hyperlinks(1).Address 'オリジナル
        '追加部分
        If r.Hyperlinks(1).SubAddress <> "" Then
            linkAddress = linkAddress & "#" & r.Hyperlinks(1).SubAddress
        End If
        '追加終了
id:kgfjfdhgyf

出来ました!!

素早く正確なご回答有難うございました。

2007/11/30 23:13:23
  • id:airplant
    すみません、2本質問が出ていたのですね。
    前のエントリに書かずに、余計な出費をさせてしまいました。
    →はてな、早く直してほしいですね。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません