vba ie操作
ヤフーファイナンス 検索後のタイトルが取得できない
ｗｉｎ８、エクセル２０１０です。
ヤフーファイナンスで会社名を検索して、その後のコードを取得したいのですが
その場合、タイトルに企業コードがあるので、その文字を取得しようとしたら、
検索前のページが取得されてしまいます。
------------------------------------------------------------
Dim objIE As New InternetExplorer
Sub test()
Dim str企業名 As String
Dim myObj As Object
str企業名 = "ホテルオークラ"
Set objIE = CreateObject("InternetExplorer.application")
With objIE
.navigate "http://finance.yahoo.co.jp/"
.Top = 0
.Left = 0
.Width = 1000
.Visible = True
End With
Call IE_wait
For Each myObj In objIE.document.all.tags("input")
If myObj.ID = "searchText" Then
myObj.Value = str企業名
Exit For
End If
Next
For Each myObj In objIE.document.all.tags("input")
If myObj.ID = "searchButton" Then
myObj.Click
Call IE_wait
Exit For
End If
Next
Debug.Print objIE.document.Title
Set objIE = Nothing
End Sub
-----------------------
Sub IE_wait()
Const READYSTATE_COMPLETE As Long = 4
Do Until objIE.readyState = READYSTATE_COMPLETE
Loop
Do While objIE.Busy = True
DoEvents
Loop
End Sub
------------------------------------------------------------
というコードなのですが
検索語の２ページ目は
「(株)京都ホテル【9723】：株式-株価 - Yahoo!ファイナンス」
というタイトルなのに
１ページ目と同じ
「Yahoo!ファイナンス - 株価やニュース、企業情報などを配信する投資・マネーの総合サイト」
が返ります。
なぜ次のページのタイトルが取得できないのでしょうか？
画面上ＩＥブラウザには２ページ目が表示されています。
お世話になります。
ExcelのVBAを使用して、xmlファイルの全要素・全属性を読み込み、
Excelに書き出したいと思っております。
ネットを参考に下記のソースで、全ての要素をエクセルに
書き出すことは、できたのですが、どうしても全属性を読み込むことが
できません。
どのようにすればよいか教えて頂けないでしょうか？
お手数ですがよろしくお願い致します。
-----------------ソース----------------
Sub main()
Dim myxml As New DOMDocument40
Dim nodelist As IXMLDOMNodeList
Dim onenode As IXMLDOMNode
Dim i As Integer
myxml.Load ("C:\Users\harada\Desktop\problem_info取り込み\problem_info.xml")
Set nodelist = myxml.DocumentElement.ChildNodes
i = 1
For Each onenode In nodelist
Call submain(onenode, i, 1)
i = i + 1
Next
End Sub
Sub submain(tmp As IXMLDOMNode, itmp As Integer, j As Integer)
If tmp.HasChildNodes = False Then Exit Sub
k = tmp.ChildNodes.Length
For m = 0 To k - 1
Cells(itmp, j + m).Value = tmp.ChildNodes(m).Text
Next
j = j + m
Set tmp = tmp.ChildNodes.NextNode
Call submain(tmp, itmp, j)
End Sub
複数のURL(webページ)から特定文字が含まれているURLのみを調べる方法について教えてください。
海外サイトの調査候補URLを複数用意し、そのURLのページソースに「news」という特定文字列が含まれているURLを抽出する方法として、エクセルのマクロで以下を試してみました。
----------
Sub KeyWord_Search()
Dim objHTTP As Object
Dim i As Long
Const strKW As String = "news"
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
With objHTTP
For i = 1 To Range("A1").End(xlDown).Row
.Open "GET", Cells(i, 1).Value, False
.Send
If .Status = 200 Then If InStr(1, .ResponseText, strKW, 1) > 0 Then Cells(i, 2).Value = "＊"
Next
End With
Set objHTTP = Nothing
End Sub
----------
きちんと抽出されるURLもあれば、以下のようなエラーが発生するURLもあります。
----------
実行時エラー'-2147023783(80070459)':
Unicode 文字のマッピングがターゲットのマルチバイト コード ページにありません。
----------
恐らく文字コードの問題だと想像していますが、マクロについて全く知識がないため解決方法がわかりません。なお、上記のマクロはGoogle検索で調べたものをそのままコピー貼り付けしたものです。
また、存在しないURLと「処理がタイムアウト」するURLは処理から除外したいと考えいます。
よろしくお願いします。
お世話になります。
２００３／XP 使用です。
VBAからIEの操作を行います。
iframe タグを掴むまでは大丈夫なのですが、
iframe タグへのデータ書き込み時にエラーがでます。
iframe タグのソースは下記のとおりです。
----
<iframe id="rte___article__body" name="rte___article__body" width="100%" height="300" src="/rte/blank.htm" border="1" marginheight="0" marginwidth="0" frameborder="1" framespacing=""></iframe>
----
下記、作成したコード
-----
Dim objIFRAME As Object
Dim I_kiji As Integer
Dim oHTMLIFrame As HTMLIFrame
Set objIFRAME = objBlogfree.document.getElementsByTagName("iframe")
For I_kiji = 0 To objIFRAME.Length - 1
Set oHTMLIFrame = objIFRAME(I_kiji)
If oHTMLIFrame.Name = "rte___article__body" Then ’←ここまでは大丈夫です。
oHTMLIFrame.document.all("txt").Value = "aaa" ’←ここでエラー
End If
Next I_kiji
----
エラーは、
実行時エラー ’91’：
オブジェクト変数または、Ｗｉｔｈブロック変数が設定されていません。
と表示されます。
参照設定で、
MS HTML Object Library、
MS Internet Controls
MS Scripting Runtime
の設定はしています。
エラーの出る部分を
oHTMLIFrame.Value = "aaa"
にしてもダメでした。
よろしくお願いします。
フレームを使ってるサイトは、タグの取得はできないのでしょうか？
vbaでieを操作をしていて、サイトにログイン後、
imgタグの中にあるaltの値を取得したいのですが、
For Each myObj In objIE.document.all.tags("img")
Debug.Print myObj.alt
Next
これがスルーされてしまいます。
imgタグがいくつもあるのにスルーされてしまうし、imgタグだけでなくtdタグなどもすべてスルーされます。
その原因はサイトにフレームが使われてるからなのでしょうか？
なぜか
For Each myObj In objIE.document.all.tags("frame")
Debug.Print myObj.Name
Next
なら値が取得できるんです。
For Each myObj In objIE.document.all.tags("form")
Debug.Print myObj.Name
Next
はダメでした。
いつもなら、ソースにformタグがあれば、これで取得できるのですが・・・
複数のURL(webページ)から特定文字が含まれているURLのみを調べる方法について教えてください。
海外サイトの調査候補URLを複数用意し、そのURLのページソースに「news」という特定文字列が含まれているURLを抽出する方法として、エクセルのマクロで以下を試してみました。
----------
Sub KeyWord_Search()
Dim objHTTP As Object
Dim i As Long
Const strKW As String = "news"
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
With objHTTP
For i = 1 To Range("A1").End(xlDown).Row
.Open "GET", Cells(i, 1).Value, False
.Send
If .Status = 200 Then If InStr(1, .ResponseText, strKW, 1) > 0 Then Cells(i, 2).Value = "＊"
Next
End With
Set objHTTP = Nothing
End Sub
----------
きちんと抽出されるURLもあれば、以下のようなエラーが発生するURLもあります。
----------
実行時エラー'-2147023783(80070459)':
Unicode 文字のマッピングがターゲットのマルチバイト コード ページにありません。
----------
恐らく文字コードの問題だと想像していますが、マクロについて全く知識がないため解決方法がわかりません。なお、上記のマクロはGoogle検索で調べたものをそのままコピー貼り付けしたものです。
また、存在しないURLと「処理がタイムアウト」するURLは処理から除外したいと考えいます。
よろしくお願いします。
複数のURL(webページ)から特定文字が含まれているURLのみを調べる方法について教えてください。
海外サイトの調査候補URLを複数用意し、そのURLのページソースに「news」という特定文字列が含まれているURLを抽出する方法として、エクセルのマクロで以下を試してみました。
----------
Sub KeyWord_Search()
Dim objHTTP As Object
Dim i As Long
Const strKW As String = "news"
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
With objHTTP
For i = 1 To Range("A1").End(xlDown).Row
.Open "GET", Cells(i, 1).Value, False
.Send
If .Status = 200 Then If InStr(1, .ResponseText, strKW, 1) > 0 Then Cells(i, 2).Value = "＊"
Next
End With
Set objHTTP = Nothing
End Sub
----------
きちんと抽出されるURLもあれば、以下のようなエラーが発生するURLもあります。
----------
実行時エラー'-2147023783(80070459)':
Unicode 文字のマッピングがターゲットのマルチバイト コード ページにありません。
----------
恐らく文字コードの問題だと想像していますが、マクロについて全く知識がないため解決方法がわかりません。なお、上記のマクロはGoogle検索で調べたものをそのままコピー貼り付けしたものです。
また、存在しないURLと「処理がタイムアウト」するURLは処理から除外したいと考えいます。
よろしくお願いします。
複数のURL(webページ)から特定文字が含まれているURLのみを調べる方法について教えてください。
海外サイトの調査候補URLを複数用意し、そのURLのページソースに「news」という特定文字列が含まれているURLを抽出する方法として、エクセルのマクロで以下を試してみました。
----------
Sub KeyWord_Search()
Dim objHTTP As Object
Dim i As Long
Const strKW As String = "news"
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
With objHTTP
For i = 1 To Range("A1").End(xlDown).Row
.Open "GET", Cells(i, 1).Value, False
.Send
If .Status = 200 Then If InStr(1, .ResponseText, strKW, 1) > 0 Then Cells(i, 2).Value = "＊"
Next
End With
Set objHTTP = Nothing
End Sub
----------
きちんと抽出されるURLもあれば、以下のようなエラーが発生するURLもあります。
----------
実行時エラー'-2147023783(80070459)':
Unicode 文字のマッピングがターゲットのマルチバイト コード ページにありません。
----------
恐らく文字コードの問題だと想像していますが、マクロについて全く知識がないため解決方法がわかりません。なお、上記のマクロはGoogle検索で調べたものをそのままコピー貼り付けしたものです。
また、存在しないURLと「処理がタイムアウト」するURLは処理から除外したいと考えいます。
よろしくお願いします。
