请教一个vba做爬虫的问题

wgw420

我做了一个，但只能操作按钮是id的，下面两个案例怎么要怎么修改呢？
1.https://emall.96138.com.cn/eduVendor/index.jsp
这里的登录按钮是 onclick 的

2.http://club.excelhome.net/
中的超链接，例如数据处理

<a href="forum-1-1.html"><span>01 </span>数据处理</a>

这类又怎么修改呢？

wgw420

没有老师懂吗

phsu

Sub main()
    Dim IE As Object
    Dim url As String
    url = "https://emall.96138.com.cn/eduVendor/index.jsp"
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .navigate url
        Do Until .readyState = 4
        Loop
    End With
    '點擊按鈕
    IE.document.querySelector("input[type=button]").Click
End Sub

wgw420

phsu 发表于 2021-5-28 07:05
Sub main()
    Dim IE As Object
    Dim url As String

谢谢，请问第二种情况怎么处理呢？

phsu

wgw420 发表于 2021-5-28 13:26
谢谢，请问第二种情况怎么处理呢？

不懂你的問題是什麼。是要抓數據處理這四個字嗎？

wgw420

phsu 发表于 2021-5-28 17:22
不懂你的問題是什麼。是要抓數據處理這四個字嗎？

是点击这几个字的跳转，这个既不是按钮，也不是上面那个。这种怎么点击呢？

wgw420

看来，这个问题，比较的生僻……

sheeboard

用selenium,第二个"数据处理",参考
driver.find_element_by_xpath("//a[@href='forum-1-1.html']")

wgw420

sheeboard 发表于 2021-5-30 20:44
用selenium,第二个"数据处理",参考
driver.find_element_by_xpath("//a[@href='forum-1-1.html']")

THX

phsu

Sub main()
    Dim IE As Object
    Dim url As String
    url = "https://emall.96138.com.cn/eduVendor/index.jsp"
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .navigate url
        Do Until .readyState = 4
        Loop
    End With
    '點擊按鈕
    IE.document.querySelector("a[href=forum-1-1.html]").Click
End Sub