单击按钮后,将表从网站解析为Excel WorkSheet

时间:2015-03-05 14:11:29

标签: excel vba html-parsing excel-web-query

我制作了一个Excel Vba代码,使用Web查询从网站的不同页面下载表格,但现在我想更改它以执行以下操作:

  1. 导航到网站(现在我通过创建新的Internet Explorer来实现此目的 申请)
  2. 单击按钮(执行此操作后,所需信息显示在 正确的方式)
  3. 获取包含所需信息的表格(在按钮之后) 点击)并将数据放入Excel。
  4. 我已经完成了第一步和第二步,但我不知道如何进行第三步。 如果要使用Web查询,它会显示没有按下按钮的网站。

    这是新代码的一部分(没有第三阶段):

    Sub DownloadDataAfterButtonClicked()
    Dim html As HTMLDocument
    Dim oIE As Object, p1 As Integer, p2 As Integer, p3 As Integer, page As String, q1 As String, q2 As String, q3 As String
    Dim app As New Excel.Application, nb As Excel.Workbook
    Set oIE = CreateObject("InternetExplorer.Application")
    oIE.Visible = True
    app.Visible = True
    
    Set nb = app.Workbooks.Add
    page = ("http://www.example.com")
    oIE.Navigate (page)
    Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop
    Set html = oIE.Document
    Set NodeList = oIE.Document.getElementbyId("switchLink")
    NodeList.Click
    

0 个答案:

没有答案