vba - AppActivate返回Excel

Question

我正在编写一段代码来从网站下载文件，但我必须使用 Chrome。我使用 shell 命令在所需的 URL 中打开 Google Chrome，在 shell 命令之后我尝试使用 AppActivate 命令，但它不起作用。

命令如下

Sub DL(URL as string)

    Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url URL")
    AppActivate ("MicroSoft Excel - SIEVE")

End Sub

SIEVE 是我的工作簿的名称。我尝试过仅使用 MicroSoft Excel、Excel 和其他组合，但仅使用 MicroSoft Excel 和 Microsoft Excel - SIEVE 我没有收到错误消息。

有人可以帮助我吗？

Answer 1

我认为您不需要包含工作簿的名称。

试试这个:

Sub DL(URL As String)

Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url URL")
AppActivate "MicroSoft Excel"

End Sub

如果您打开了多个工作簿并且查看了错误的工作簿，您始终可以在 AppActivate 之前插入此内容:

Workbooks("SIEVE").Activate

<小时/>

编辑

AppActivate 似乎不起作用的原因是它起作用得太快了。该代码在 Chrome 有机会完全打开之前执行，因此 Chrome 在 AppActivate 发生后被激活。我认为您拥有的最佳选择是使用 Application.Wait()并等待 Chrome 加载完毕。像这样的事情:

Sub DL(URL As String)
    Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url URL")

    Application.Wait (Now + TimeValue("0:00:10")) '<~~ Waits ten seconds.

    AppActivate "MicroSoft Excel"
End Sub