getElementsByClassName不可

Question

ExcelのVBAでIEの制御をいていますが、getElementsByClassNameで「実行時エラー'438'：オブジェクトは、このプロパティまたはメソッドをサポートしていません。」となります。

古いIEではgetElementsByClassNameはサポートされていなかったようですが、当方の実行環境はつぎのとおりです。

Windows 7 Pro. 64bit SP1
 Excel 2007（VBA 6.5)
 IE10

なお、getElementByIdとかは使用できています。
解決方法をご教示して頂きたくよろしくお願い致します。

mitarashi · Accepted Answer

#1～4です

ご提示のページを開き、下記コードを実行した結果は

2 
 0            stoksPrice realTimChange innerText= 
 1            stoksPrice innerText= 803

でした。
classname="stoksPrice realTimChange" もヒットして（仕様？バグ？）、そのinnterTextは空ですので取得出来ていない様に見えたのでしょう。
ie.document.getElementsByClassName("stoksPrice")(1).InnerTextなら良いかと思いますが、問題のページのソースを見てご検討願います。

'Microsoft Internet Control
'Microsoft HTML Object Library
'に参照設定

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                    (ByVal lpClassName As String, _
                    ByVal lpWindowName As String) As Long
                    
Sub test()
  Dim ie As InternetExplorer
  Dim myElements As IHTMLElementCollection
  Dim myElement As IHTMLElement
  Dim i As Long
    
  Set ie = getTopIeTab
  If ie Is Nothing Then Exit Sub
  Set myElements = ie.document.getElementsByClassName("stoksPrice")
  Debug.Print myElements.Length
  For Each myElement In myElements
    Debug.Print i, myElement.className & " innerText= " & myElement.innerText
    i = i + 1
  Next myElement
  Set ie = Nothing
End Sub

'IEの最前面Tabを取得
Function getTopIeTab(Optional matchWord As Variant) As InternetExplorer
  Dim hWnd As Long
  Dim ie As InternetExplorer
  Dim targetIe As InternetExplorer
  Const IEClassName As String = "IEFrame"     'IEのClass名
  
  hWnd = FindWindow(IEClassName, vbNullString)
  For Each ie In CreateObject("Shell.Application").Windows()
    If hWnd = ie.hWnd Then
      ie.StatusBar = True
      ie.statustext = CStr(hWnd)
      If ie.statustext = CStr(hWnd) Then
        If IsMissing(matchWord) Then
            Set getTopIeTab = ie
      ie.statustext = ""
            Exit Function
        Else
          If InStr(ie.LocationURL, matchWord) > 0 Then
            Set getTopIeTab = ie
            Exit Function
          End If
        End If
      End If
    End If
  Next ie
  Set getTopIeTab = Nothing
End Function

mitarashi · Answer

#1～3です。 #3で提示したようなデータでは取得できているので（最後の"が無いのはコピペミスです）原因がつかめません。誰でもアクセスできるWebページであればURLを教えていただければ試してみても良いですが、ログインが必要なものではそういう訳にもいきませんね。

mitarashi · Answer

#3です。下記の様なしょうも無いコードですが思わぬ深みにはまってしまいました。 (参照設定版のコードですが、いろいろと省略してあります） Sub test() Dim ie As InternetExplorer Set ie = New InternetExplorer ie.Visible = True ie.navigate "http://www.hoge.jp/test.html" ' ie.Visible = True Do While ie.Busy = True Or ie.readyState <> 4 Sleep 50 DoEvents Loop 'ここだけ見ていただければ結構です Debug.Print ie.document.getElementsByClassName("stoksPrice")(0).FirstChild.NodeValue ie.Quit Set ie = Nothing End Sub テストに使ったtest.html

5,258

mitarashi · Answer

#1です。
Microsoft Internet Control
Microsoft HTML Object Library
に参照設定して、VBEのオブジェクトブラウザでMSHTMLのメンバを眺めてみて下さい。
>Function getElementsByClassName(v As String) As IHTMLElementCollection
>    MSHTML.HTMLDocument のメンバー
とある様に、getElementsByClassNameで得られるのはCollectionです。
また、
>Property innerText As String
>    MSHTML.IHTMLElement のメンバー
であり、IHTMLElementCollectionにはinnerTextのプロパティは無く、エラーになります。

従って、http://oshiete.goo.ne.jp/qa/8410220.htmlでやっている様にループを回して取得する必要があります。
明らかに一個しかヒットしないなら、
ie.Document.getElementsByClassName("stoksPrice")(0).innerText
でも良いかもしれません。（未検証ですが）

mitarashi · Answer

当方Win7Home64bit、IE10、xl2010-32bitですが、
下記コードのgetElementsByClassNameは動作しています。
http://oshiete.goo.ne.jp/qa/8410220.html

他に原因があるのでは？
コードを開示されてはいかがでしょうか。

getElementsByClassName不可

#1～4です

#1～3です。

この回答への補足

#3です。

この回答への補足

#1です。

この回答への補足

当方Win7Home64bit、IE10、xl2010-32bitですが、

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング