【iOS版アプリ】不具合のお知らせ

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

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

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

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

gooドクター

A 回答 (1件)

下記のコードで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
    • good
    • 0
この回答へのお礼

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

お礼日時:2008/01/28 23:15

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

gooドクター

人気Q&Aランキング