基于Excel VBA实现通过谷歌文档翻译自动转译Word/Excel文档至英文

我写了一段VBA代码，能打开谷歌文档翻译网页，自动执行点击操作上传Word/Excel文件、生成翻译文档并下载到本地，但目前存在问题：必须手动从弹出的“打开文件”对话框中选择文件。我的最终需求是遍历指定文件夹，自动将其中的文件批量提交进行翻译。现提出两个技术疑问：

1. 是否无需用户干预，即可自动在文件打开对话框的文件名文本框中选中目标文件？
2. 是否可以将翻译后的文件自动下载至指定文件夹？

Option Explicit

Sub TranslateAndDownload()
    Dim IE As Object
    Dim URL As String
    Dim FileToTranslate As String
    Dim TranslatedFileLink As String
    Dim oHTML_Element
    
    ' 自动检测源语言、目标语言为英文的谷歌翻译文档页面地址
    URL = "https://translate.google.com/?sl=auto&tl=en&op=docs"
    
    ' 待翻译文件路径
    FileToTranslate = "C:\Users\Doctor\French_Test.docx"
    
    ' 创建IE实例
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    
    ' 导航到谷歌翻译页面
    IE.Navigate URL
    
    ' 等待页面加载完成
    Do While IE.busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 上传文件
    For Each oHTML_Element In IE.Document.getElementsByName("file")
        If oHTML_Element.className = "ZdLswd" Then
           oHTML_Element.Value = FileToTranslate
            oHTML_Element.Click
            Exit For
        End If
    Next oHTML_Element
        
    ' 触发翻译操作
    Application.Wait Now + TimeValue("00:00:05") ' 等待5秒
    For Each oHTML_Element In IE.Document.getElementsByClassName("VfPpkd-LgbsSe VfPpkd-LgbsSe-OWXEXe-k8QpJ VfPpkd-LgbsSe-OWXEXe-Bz112c-M1Soyc nCP5yc AjY5Oe LQeN7 k2RlOb")
        oHTML_Element.Click
        Exit For
    Next oHTML_Element
    
    ' 下载翻译后的文档
    Application.Wait Now + TimeValue("00:00:05") ' 等待5秒
    For Each oHTML_Element In IE.Document.getElementsByClassName("VfPpkd-LgbsSe VfPpkd-LgbsSe-OWXEXe-k8QpJ VfPpkd-LgbsSe-OWXEXe-Bz112c-M1Soyc nCP5yc AjY5Oe LQeN7 sWFiQe")
        oHTML_Element.Click
        Exit For
    Next oHTML_Element
    
    ' 清理并关闭IE
    IE.Quit
    Set IE = Nothing
    Set oHTML_Element = Nothing

End Sub

问题解答 #

1. 自动选中文件对话框中的目标文件 #

直接通过IE的DOM操作无法绕过系统级的文件选择对话框——这是浏览器的安全限制，不允许网页脚本直接访问本地文件路径。要实现无干预自动上传，可参考以下方案：

• 借助Windows API模拟操作：用VBA调用FindWindow、SetForegroundWindow、SendKeys等Windows API，定位文件选择对话框后自动输入文件路径并回车。但该方法依赖对话框的窗口结构，系统或浏览器更新后可能失效。
• 替换为Selenium工具：Selenium等专业自动化工具支持直接通过代码指定文件路径完成上传，无需触发系统对话框，稳定性和可靠性更高。

2. 自动下载到指定文件夹 #

IE的下载行为默认受系统全局设置控制，要指定下载路径，可采用以下方式：

• 修改IE全局下载设置：通过修改注册表或IE的Internet选项，将默认下载文件夹设为目标路径，但会影响所有IE下载操作。
• 用API监控下载对话框：调用Windows API定位下载完成后的保存对话框，自动选择目标文件夹并确认。
• 改用Selenium配合浏览器配置：Chrome/Firefox的Selenium驱动可预先配置下载路径，实现无干预自动将文件保存到指定文件夹，这是效率最高的方案。

内容的提问来源于stack exchange，提问作者sifar