web-scraping - 使用 Openoffice BASIC 实现网络自动化甚至是可能的吗？

Question

我正在尝试在 OpenOffice 中进行一些简单的网页抓取（我通常在 Excel 中工作，但我正在尝试为没有 Excel 的同事移植一些东西）。但是，当我尝试运行与此非常相似的东西时，它一直给我这个 BASIC 运行时错误 1。

这是相关的代码，我不确定我应该怎么做才能完成这项工作。

Sub Macro1
    Dim explorer As Object
    Set explorer = CreateObject("InternetExplorer.Application")
    explorer.Visible = True
    explorer.navigate("www.yahoo.com")
    
    Const READYSTATE_COMPLETE As Long = 4
    Do While explorer.Busy Or explorer.readyState <> READYSTATE_COMPLETE
    Loop

    dim page as object
    set page = explorer.Document
    
    dim mailButton as object
    set mailButton = page.GetElementByID("ybar-navigation-item-mail") 'this is the line the error occurs on
    mailButton.Click
End Sub

Answer 1

你知道你可以将脚本保存在vbs文件中（你必须删除变量声明中的类型）并通过双击直接运行它而不使用办公应用程序？我建议你使用这种方式。