如何通过VBA按上传按钮

Question

我在网上搜索了很多，发现你的网站非常有帮助 - 这就是为什么我还没有发布任何内容，只是阅读。 但是，我需要在项目的以下步骤中提出建议。该项目旨在自动创建/放置用于销售商品的广告。 该网站是http://olx.bg/adding/ 我未通过VBA做的是按下名为“ДОБАВИСНИМКА”的蓝色方块，其代表表格中的“ADD PHOTO”。 按下后，将打开默认的BROWSE窗口以选择文件。

提前致谢！

Answer 1

为您的VBA项目添加两个引用：

1. Microsoft Internet Controls
2. Microsoft HTML对象库

---

按钮后面的HTML有一个id = add-files，可以很容易地使用getElementById找到

这是一个有效的例子：

Sub PushAddPhotoButton()
    Dim IEexp As InternetExplorer
    Set IEexp = New InternetExplorer
    IEexp.Visible = True
    IEexp.navigate "http://olx.bg/adding/"

    Do While IEexp.readyState <> 4: DoEvents: Loop

    Dim photoButton As HTMLInputElement
    Set photoButton = IEexp.Document.getElementById("add-files")

    If (Not photoButton Is Nothing) Then
        photoButton.Click
    Else
        MsgBox "Button not found on web page."
    End If

    IEexp.Quit
    Set IEexp = Nothing
End Sub

---

如果您的IE安全设置已开启＆＃39;高＆＃39;对于互联网，你不会得到一个对话框或错误。 IE窗口只会闪烁然后消失。

更改为：