如何通过VBA按下上传按钮

我在网上搜索了很多，发现你的网站非常有用-这就是为什么我还没有发布任何东西，只是阅读。 然而，我需要你的建议在我的项目的下一步。项目是自动创建/放置销售商品的广告。 该网站是 通过VBA，我没有做到的是按下名为“БСБАССССССММБА”的蓝色方框，该方框表示表单中的“添加照片”。 按下后，将打开默认的浏览窗口以选择文件

---

提前谢谢

向VBA项目添加两个引用：

Microsoft Internet控件

Microsoft HTML对象库

---

按钮后面的HTML有一个id=addfiles，使用

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

Sub-PushAddPhotoButton（）
Dim IEexp作为InternetExplorer
Set IEexp=新的InternetExplorer
IEexp.Visible=True
IEexp.navigate“http://olx.bg/adding/"
Do While IEexp.readyState 4:DoEvents:Loop
作为HTMLInputElement的暗淡光按钮
Set photoButton=IEexp.Document.getElementById（“添加文件”）
如果（不是光按钮什么都不是）那么
照片按钮。点击
其他的
在网页上找不到“MsgBox”按钮
如果结束
退出
设置IEexp=Nothing
端接头

---

如果您的IE安全设置为“高”Internet，则不会出现对话框或错误。IE窗口只会闪烁然后消失

改为：

---

波特兰跑步者感谢您的时间和帮助！我测试了它（IE8，VBA 7.1），但一旦我通过photoButton，就不会打开默认的浏览窗口。单击step。如果您单步执行代码（F8），它会工作吗？如果您没有看到消息框，则会找到按钮并单击它。我想知道您是否有任何第三方插件，例如语言翻译，它们会将焦点从点击中移开，或者延迟到无法运行。如果是这样，您可能需要在单击之前“等待”一两秒钟。FWIW，在我的机器上运行良好。我再次使用F8进行测试，在step Photo按钮之前暂停（等待）。单击超过5秒，但仍然没有显示new（Browse）窗口。我的机器上没有第三方插件/据我所知没有/。我在另一台电脑上进行了测试——也没有运气。如果它在你的电脑上运行良好，那么我开始考虑IE的配置，但没有具体的想法。有趣的是，我只是在玩安全性，发现如果你将它设置为“高”，IE窗口就会关闭。将其设置为“中高”，打开对话框即可工作。检查您的设置，看看是否有帮助。谢谢！最初，我使用的是自定义设置。然后我改变了它们，在调试（F8）模式和播放子目录下分别尝试了中高和中高，但没有任何对话框窗口。可能是Excel/VBA设置吗？