SendKeys 从 Internet Explorer 打开 Excel 文件

Question

下载会跳过宏的其余部分。

目前我有一个子程序用于进入网页并下载文件。它会打开一个栏，询问“打开、保存、另存为”我使用发送键%O 打开文件。文件打开后，我想使用另一个代码来处理文档，问题是文件仅在宏的其余部分完成后打开。由于某种原因，它基本上跳过了我的宏的其余部分。

这是我正在做的一个例子：

Sub iaspull()

    Set ie = CreateObject("InternetExplorer.Application")
    my_url = "***"
    With ie
        .Visible = True
        .navigate my_url
        Do Until Not ie.Busy And ie.readyState = 4
            DoEvents
        Loop
        ' Some code to get to the file and click download
    End With

    Application.Wait (Now + TimeValue("00:00:08"))
    Application.SendKeys "%{O}", True
    DoEvents

End Sub

Sub enable_edit()
    Application.ActiveProtectedViewWindow.Edit
End Sub

一旦代码到达.SendKeys "%{O}"，它就可以打开，但如果后面有更多代码，它就会跳过代码。

我希望能够一个接一个地运行这两个子例程。我宁愿不保存或使用另存为功能来保持这个更通用。

请告诉我你的想法！

Answer 1

我猜如果你使用SendKeys，你基本上不会对应用程序说它必须是Visible。我不确定应用程序是否加载或只是不可见，但（感谢@omegastripes）知道这是一个用Excel打开的文件，我会也写过类似的东西：

Dim DownloadedFileFilename As String ' you save here your downloaded file name
Dim EA As Excel.Application
Dim DownloadedFile As Workbook

Set EA = New Excel.Application
With EA
    .Visible = True ' Just to make sure
    .ScreenUpdating = True  ' Just to make sure
    Set DownloadedFile = .Workbooks.Open(Filename:=DownloadedFileFilename), ReadOnly:=True)
    ' [DO STUFF]
End With

恕我直言，这是最安全的方法，另外您还有机会Set 变量到Nothing，这也是释放它们的安全方法。