VBAでHTMLのtitleタグの中身を抽出してA1に入れたい

質問

VBAでHTMLのtitleタグの中身を抽出してA1に
入れるにはどうすればよいのでしょうか？

例：<title>Yahoo! JAPAN</title>のYahoo! JAPANをA1に入れる

使用OS：Windows XP
使用ソフト：Microsoft Excel 2003

ご存知の方がおられましたらご回答をよろしくお願いします。

回答No.1

lark_0925 · ベストアンサー

下記のコードでWin2000＆Excel2002では、正常にTitleが取得できました。

'=============================================================
Sub main()
　　Dim IE
　　Set IE = CreateObject("InternetExplorer.Application")
　　With IE
　　　.Visible = True
　　　.navigate "http://www.yahoo.co.jp/"
　　　Do While .Busy = True Or .readyState <> 4
　　　　　Loop
　　　Range("a1").Value = .document.Title
　　　.Quit
　　　End With
　　Set IE = Nothing
End Sub

お礼

早速やってみたところMicrosoft Excel 2003でも正常にTitleが取得できました。
ご回答いただきどうもありがとうございました。