人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

http://okwave.jp/qa1545446.html

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

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

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

宜しくお願いします。

●質問者: kgfjfdhgyf
●カテゴリ:コンピュータ インターネット
✍キーワード:URL VBA アドバイス エクセル ハイパーリンク
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● airplant
●60ポイント

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

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

 linkAddress = r.Hyperlinks(1).Address 'オリジナル
 '追加部分
 If r.Hyperlinks(1).SubAddress <> "" Then
 linkAddress = linkAddress & "#" & r.Hyperlinks(1).SubAddress
 End If
 '追加終了
◎質問者からの返答

出来ました!!

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ