![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
下記のBLUEPIXY さん回答を参考に、エクセルのハイパーリンクURL抽出をしました。
http://okwave.jp/qa1545446.html
半角英数のみのURLはうまく抽出できましたが、下記のように全角日本語を含むURLは日本語部分のみ抽出されません。
http://www.asahi-net.or.jp/~cj7h-mrgc/EMG/french …レ・ヴォア
VBA標準モジュールの改造が必要かと思うのですが、知識が乏しくどのようにするのかが分かりません。
もし宜しければアドバイス頂けませんでしょうか?
宜しくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
別に日本語だから失敗しているのではありません
#以後が 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
といった具合でしょう ・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) エクセルで#以降の文字を取得したい 1 2022/03/28 13:14
- Excel(エクセル) エクセルでの文字抽出 3 2022/07/09 12:17
- 統計学 統計の問題について教えてください。 4 2023/04/27 18:02
- PHP PostgreSQLからCSV形式でエクスポートする際にカラム内の改行をとる方法 1 2023/02/22 10:05
- Visual Basic(VBA) excelVBAについて。 1 2022/11/30 06:16
- Excel(エクセル) エクセルの関数を教えてください。② 9 2023/05/25 15:28
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Access(アクセス) Access で半角スペースと全角スペースの区別について 3 2022/11/05 23:54
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SQLで特定の項目の重複のみを排...
-
COBOLについて
-
fgetcsvでCSVを取得した際のnul...
-
リストビューの項目の内容を変...
-
バッチでcsvファイルの指定のカ...
-
DataViewで複数条件の...
-
テキスト幅にあわせた表の作り...
-
php mysql で WHERE句内に変数...
-
VB6リストボックスでの文字...
-
Zend_DBを使ったselectで文字が...
-
カラム落ち
-
WHERE句でのCASEについて
-
COBOL プログラミング
-
DataGridView 右詰め
-
エクセルのハイパーリンクURL抽...
-
ListViewのカラムの色の変更
-
差し込み後、元データを変更し...
-
エクセルで最後の文字だけ置き...
-
外部参照してるキーを主キーに...
-
カーソル0件の時にエラーを発生...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQLで特定の項目の重複のみを排...
-
バッチでcsvファイルの指定のカ...
-
リストビューの項目の内容を変...
-
php mysql で WHERE句内に変数...
-
COBOLについて
-
fgetcsvでCSVを取得した際のnul...
-
DataGridView 右詰め
-
DataViewで複数条件の...
-
FormulaR1C1でSUMIF変数指定
-
初心者)DataGridViewの入力桁...
-
Sheet3から2つの条件でオートフ...
-
COBOL プログラミング
-
Access2000 の更新クエリでカウ...
-
ListView
-
ListViewのカラムの色の変更
-
[WHS]定数宣言の際にリテラル文...
-
google formsを使ったタスク依...
-
投稿 表示・非表示設定
-
VB2008 コンボボックスとテキ...
-
テキスト幅にあわせた表の作り...
おすすめ情報