Web爬网-VBA搜索参数无法正常工作

本文介绍了Web爬网-VBA搜索参数无法正常工作的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

我正在研究一个网络抓取项目，该项目将从旅行网站上抓取票务信息.

I am working on a web scraping project which would scrape ticketing information off a travel website.

我当前遇到的问题是，我的VBA代码中定义的搜索参数以及后来输入到要执行的网站中的搜索参数无法正常工作.下面提供了已编写的代码.为了提供一些背景信息，我正在从Excel工作簿(例如Beijing(北京))中读取往返目的地，并以与网站希望输入的格式相同的格式(MM-DD-YYYY)定义旅行日期.但是，在运行时，该站点似乎无法识别参数，而是将我定向到页面上显示"正在维护的站点".奇怪的是，当我手动输入参数时，该站点会识别出并提供票务信息.

I am currently encountering an issue where the search parameters defined in my VBA code and later input into the website to be executed is not working. The code that has been written is provided below. To provide some background, I am reading in the to/from destinations from my Excel workbook (e.g. Beijing(北京）) and defining the travel date in the same format (MM-DD-YYYY) as the website would expect it to be input. However, when running, the site does not seem to recognize the parameters and directs me to a page saying "site under maintenance". The odd thing is, when I manually input the parameters, the site recognizes it and provides ticketing information.

我也许想念一些东西吗?我是否需要更新"DepartureCity"，"ArrivalCity"和"DepartDate"之外的其他值?

Am I perhaps missing something? Do I have to update other values outside of "DepartureCity", "ArrivalCity", and "DepartDate"?

我还注意到，当我遍历多个城市时，该网站会搜索与先前定义的参数相同的参数(即，如果搜索上海->北京，则会生成我之前搜索的天津->北京). 是否可以通过VBA自动删除搜索历史记录/缓存?

I also noticed that when I loop through multiple cities, the site searches for the same parameters as previously defined (i.e. if searching Shanghai -> Beijing, it yields Tianjin -> Beijing which I had previously searched for). Is there a way to auto remove the search history/cache via VBA?

' save from and to destinations under a defined string
sFrom = Range("C3").Value
sTo = Range("C4").Value

' "i" to track the # of days out as defined by the user
For i = 0 To cntDays
    dtRange = Date + i

    ' establish date to pull train ticketing information on
    If Len(Day(dtRange)) = 1 Then
        sDay = "0" & Day(dtRange)
    Else:
        sDay = Day(dtRange)
    End If

    If Len(Month(dtRange)) = 1 Then
        sMonth = "0" & Month(dtRange)
    Else:
        sMonth = Month(dtRange)
    End If

    sDate = sMonth & "-" & sDay & "-" & Year(dtRange)

    ' instantiate the oIE object
    Set oIE = CreateObject("InternetExplorer.Application")

    ' open Ctrip travel portal
    sURL = "http://english.ctrip.com/trains/#ctm_ref=nb_tn_top"
    With oIE
        .navigate sURL
        .Visible = True

        Do Until (.readyState = 4 And Not .Busy)
           DoEvents
        Loop

        ' search for particular entry
        .document.getElementsByName("DepartureCity")(0).Value = sFrom
        .document.getElementsByName("ArrivalCity")(0).Value = sTo
        .document.getElementsByName("DepartDate")(0).Value = sDate

        MsgBox sFrom
        MsgBox sTo
        MsgBox sDate

        Set ElementCol = .document.getElementsByTagName("button")
            For Each btnInput In ElementCol
                If btnInput.innerText = "Search" Then
                    btnInput.Click
                    Exit For
                End If
            Next btnInput

        ' ensure page has been fully loaded
        Do Until (.readyState = 4 And Not .Busy)
           DoEvents
        Loop

not

Web爬网-VBA搜索参数无法正常工作

问题描述

推荐答案