Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


71323 / 76732 ←次へ | 前へ→

【9904】Re:インターネットからデータを自動取得できるんでしょうか?
回答  Ron E-MAIL  - 03/12/20(土) 16:35 -

引用なし
パスワード
   こんにちは。
とりあえず、サンプルとして。1ページ目のみの取得です。
Sub getWebData2()

  Const myURL = "http://finance.nifty.com/stocks/servlet/stocks034"
  Dim myIE As New InternetExplorer
  Dim myObj As Object
  Dim i As Long, j As Long
  Dim myTitle As Variant
  myTitle = Array("コード", "銘柄名", "市場", "業種", "現在値", "前日比", "総合診断")
  myIE.Visible = True
  myIE.navigate myURL
  
  Do While myIE.Busy = True
    DoEvents
  Loop
  On Error GoTo trap
  myIE.document.form1("type").Value = "0050"
  On Error GoTo 0
  myIE.document.form1.submit
  Do While myIE.Busy = True
    DoEvents
  Loop
  i = 1
  Cells.Delete
  Range("a1").Resize(, 7).Value = myTitle
  For Each myObj In myIE.document.all("formpl").all
    If myObj.tagName = "TR" Then
      i = i + 1
      j = 1
    End If
    If myObj.tagName = "TD" Then
      If j <= 7 Then Cells(i, j).Value = myObj.innerText
      j = j + 1
    End If
  Next
  
  Exit Sub
  
trap:
  MsgBox "NG"
End Sub
結構不安定なので、たまに失敗("NG")します。
では。

0 hits

【9893】インターネットからデータを自動取得できるんでしょうか? トモ 03/12/19(金) 20:22 質問
【9904】Re:インターネットからデータを自動取得でき... Ron 03/12/20(土) 16:35 回答
【9905】Re:インターネットからデータを自動取得でき... Ron 03/12/20(土) 16:37 回答
【9908】Re:インターネットからデータを自動取得でき... トモ 03/12/20(土) 17:43 質問
【9909】Re:インターネットからデータを自動取得でき... Ron 03/12/20(土) 19:21 回答
【9910】ありがとうございました! トモ 03/12/20(土) 19:57 お礼

71323 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free