Excel VBA 保存Word文档到指定位置运行缓慢，求更高效实现方案

性能差异原因 #

• 原始代码耗时久的核心原因是需要完整启动Word应用进程、加载文档后再执行另存操作，仅Word进程的启动销毁就会占用绝大多数耗时，叠加网络驱动器的IO开销，自然会出现小文件也需要近10秒的情况。另外原始代码中FileExt变量未赋值就拼接在保存路径后，会导致保存的文件名异常，也是需要修正的问题。
• 你改用Scripting.FileSystemObject直接复制文件的方案是最优解之一，FSO直接调用系统底层的文件操作接口，不需要启动Office相关进程，几十KB的文件基本可以做到毫秒级完成，仅会受网络本身的传输速度影响。

后续功能扩展建议 #

你计划增加的用户确认、自定义保存路径功能可以按以下方案实现：

1. 用MsgBox判断用户是否要执行保存操作，返回值为vbYes时再执行复制逻辑
2. 用Application.GetSaveAsFilename方法支持用户自主选择目标保存路径和文件名，不需要硬编码路径
3. 如果有后续编辑目标文档的需求，再在复制完成后按需启动Word实例打开文件即可，不要在复制阶段启动Word增加额外开销

扩展后参考代码 #

Sub CopyWordFileWithConfirm()
    Dim FSO As Object
    Dim SourceFileName As String, DestinFileName As String
    Dim userConfirm As Integer
    
    ' 源文件路径，可根据实际需求调整
    SourceFileName = "原有文件路径.docx"
    
    ' 询问用户是否执行保存操作
    userConfirm = MsgBox("是否需要将Word文档保存到指定位置？", vbYesNo + vbQuestion, "操作确认")
    If userConfirm <> vbYes Then
        Exit Sub
    End If
    
    ' 弹出保存对话框让用户选择目标路径
    DestinFileName = Application.GetSaveAsFilename(FileFilter:="Word文档 (*.docx), *.docx", Title:="选择保存位置")
    ' 判断用户是否取消了保存对话框
    If DestinFileName = "False" Then
        Exit Sub
    End If
    
    ' 执行文件复制
    Set FSO = CreateObject("Scripting.Filesystemobject")
    FSO.CopyFile Source:=SourceFileName, Destination:=DestinFileName
    
    MsgBox SourceFileName & " 已成功复制到 " & DestinFileName, vbInformation, "操作完成"
    Set FSO = Nothing
End Sub

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