VBAで文字列からURL部分だけを抽出する方法

最近の書き込み件数：今日 0件、昨日 0件
未読分：3件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#3 2014年9月16日(火)23時56分
From: 水円

返事削除変更

正規表現でやる方法がまったく思いつきませんでした。

なるほどといった感じです。

データをセルに入れる場合は、iがせっかくあるので以下のように設定してみました。

For i = 0 To (objMatches.Count - 1)
cells(i+2,2) = objMatches.Item(i).value
Next

実行したらうまく処理ができましたので、感謝です。

Message#2 2014年9月14日(日)01時30分
From: 管理人

返事削除変更

VBAのIE制御でデータ抽出はうまくいっているということなので、その部分については、割愛します。
特定のタグに一意のキーワードがない場合や、今回のように文章の中に抽出項目がある場合は、正規表現を利用して抽出する方法が一般的です。

今回は、VBAでURL部分だけを抽出したいということですので、以下のサンプルコードを試してみてください。

【プログラム】
Sub sample()

'正規表現オブジェクト作成
Set objReg = CreateObject("VBScript.RegExp")

　　strValue = "ｉＰＳ細胞（人工多能性幹細胞）から作った細胞が9月１２日に世界で初めて患者に移植された。http://news.yahoo.co.jp/ 。２００６年に京都大ｉＰＳ細胞研究所長の山中伸弥教授がマウスでの開発成功を発表してから８年のことである。"

With objReg
.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?" 'パターン
.IgnoreCase = True '大文字と小文字を区別しない
.Global = True '文字列全体を検索
End With

Set objMatches = objReg.Execute(strValue)

For i = 0 To (objMatches.Count - 1)
Debug.Print = objMatches.Item(i).value
Next

Set objReg = Nothing

End Sub

【処理結果】
http://news.yahoo.co.jp/

※今回はDebug.Printを利用していますので、こちらを指定のセルへ変更してください。

Message#1 2014年9月13日(土)09時38分
From: 水円

返事削除変更

おはようございます。

VBAを使ってあるサイトの紹介文をセルに入力はできたのですが、その紹介文の中に書いているサイトURLだけを抽出することができないか考えています。

以下の紹介文になります。
どのようにURLだけを抽出すればよろしいでようか？

「ｉＰＳ細胞（人工多能性幹細胞）から作った細胞が9月１２日に世界で初めて患者に移植された。http://news.yahoo.co.jp/
。２００６年に京都大ｉＰＳ細胞研究所長の山中伸弥教授がマウスでの開発成功を発表してから８年のことである。
」