サイトタイトルを取得するマクロを高速化

Question

下記のマクロは、指定したURLの隣にサイトタイトルを取得するマクロです。

このマクロで、サイトタイトルを取得していましたが、
５秒に１つくらいのペースなので、もっとスピードを上げたいと思っています。

高速化するには、どこをどのように修正すれば良いでしょうか？
また、変更するべき設定などもあったりするでしょうか？

よろしくお願いいたします。

Sub sample()
Dim Carea As Range
Set Carea = Selection
If Carea(1).Value = "" Then Exit Sub

Dim Tcel As Range

Dim ObjIE As Object
Set ObjIE = CreateObject("InternetExplorer.Application")

For Each Tcel In Carea

ObjIE.Navigate Tcel.Value

Do While ObjIE.Busy = True Or ObjIE.readyState <> 4
DoEvents
Loop

Tcel.Offset(, 1) = ObjIE.document.Title
Next

ObjIE.Quit
Set ObjIE = Nothing

End Sub

Answer 1

VBAでWebページを取得する方法

上記のページに下記の３つの方法が紹介されています。

• InternetExplorerオブジェクト (WebBrowserコントロール)
• HTMLDocumentオブジェクト
• XMLHTTPオブジェクト

下にいくほど高速です。その分、制限も多くなりますが。

ページタイトルを取得するだけなら、最後の XMLHTTPオブジェクト を使う方法で十分です。

ただし、HTMLをテキストとして取得しますので、ヘッダーのタイトル情報を取り出すのは、自前のコードを作成する必要はあります。

画像の読み込みとか一切せずに、HTMLだけを取得しますので、かなり高速になります。

追記

参考になりそうなページを見つけたので、これを参考にチャレンジしててください。
MSXML2で、サイトのタイトルを取得したい - オフィス系ソフト 解決済み| 【OKWAVE】

Comments

[sazi]

リンク先合ってます？

[hatena19]

間違ってますね(;^ω^)
修正しておきます。

[sea21]

回答ありがとうございます！

実は質問内容のマクロは、ネットで拾ったものです。
私自身はマクロを書いたことがなく、応用ができないでいます。

自前のコードというのは、どういった形のものでしょうか？
項目を入れ替えるだけではできないでしょうか？

[hatena19]

リンク先のコードでHTMLを取得できます。
サイトタイトルは、HTML内に <title>サイトタイトル</title> というように埋め込まれてますので、
<title>の位置と</title>の位置をInStrで取得て、Mid関数で切り出せばいいでしょう。
サイトの文字コードによっては、文字化けする場合もあるので、その対策を必用になりますので、結構難易度は高いですね。できるところまでコードを書いてみて、うまくいかないところをピンポイントで質問されてはどうですか。
ここでは、要件を提示してコードを書いてくれという丸投げの質問は推奨されてませんので。