Excel VBA SendKeys 不会导致 IE 9 保存下载

excel

使用excel VBA的SendKeys功能可以模拟键盘操作，从而实现自动化的任务。然而，有时候在使用SendKeys时，会遇到一个问题：当我们尝试在Internet Explorer 9（IE 9）中保存下载时，SendKeys无法正常工作。本文将介绍这个问题，并提供一个案例代码来解决这个问题。

在IE 9中，当我们点击一个链接或按钮来下载文件时，通常会弹出一个保存文件的对话框。我们可以使用SendKeys来模拟键盘操作，例如按下"Alt+S"来保存文件，但是在IE 9中，SendKeys无法触发保存操作。

这个问题的原因是，IE 9对于安全性有更高的要求，并且在保存文件时采取了一些措施来防止恶意的自动化操作。SendKeys被视为一种潜在的安全风险，因此在IE 9中被禁用了。

为了解决这个问题，我们可以使用其他方法来实现自动保存文件的功能，而不是依赖于SendKeys。一种可行的方法是使用Shell对象的AppActivate和SendKeys方法来模拟键盘操作。

下面是一个示例代码，演示了如何使用Shell对象来保存文件：

Sub SaveFile()
    Dim obJShell As Object
    Set obJShell = CreateObject("WScript.Shell")
    
    ' 激活IE窗口
    obJShell.AppActivate "Internet Explorer"
    
    ' 等待1秒，确保IE窗口被激活
    Application.WAIt (Now + TimeValue("0:00:01"))
    
    ' 发送快捷键操作来保存文件
    obJShell.SendKeys "%S"
End Sub

在这个示例中，我们首先创建了一个Shell对象，并使用AppActivate方法激活了IE窗口。然后，我们使用WAIt方法来等待一秒钟，以确保IE窗口完全激活。最后，我们使用SendKeys方法发送"%S"，即"Alt+S"的快捷键操作来保存文件。

通过使用这种方法，我们可以绕过IE 9的安全限制，成功地保存下载的文件。

在使用excel VBA的SendKeys功能时，有时会遇到IE 9无法保存下载的文件的问题。这是因为IE 9对SendKeys进行了限制，将其视为潜在的安全风险。为了解决这个问题，我们可以使用Shell对象的AppActivate和SendKeys方法来模拟键盘操作，从而实现自动保存文件的功能。以上示例代码提供了一个解决方案，可以帮助你在IE 9中成功保存下载的文件。