Excel VBA循环执行函数时出现文件路径错误求助

我来帮你排查下代码里的问题，这应该是循环时文件路径没有更新导致的错误～

核心问题 #

你在循环开始之前就把fpath赋值为当前活动单元格的内容了：

fpath = Application.ActiveCell.Value

但循环处理下一行时，fpath并没有重新读取当前行的文件路径，始终用的是第一次的值，自然会出现路径错误。

另外，代码里大量使用Select和ActiveCell操作，这种方式不仅容易出错，还会降低运行效率，建议直接操作Range对象。

修复后的代码 #

Option Explicit
Sub odoc()
    Dim fpath As String
    Dim objWord As Object
    Dim cel As Range
    Dim selectedRange As Range
    
    Set selectedRange = Application.Selection
    
    For Each cel In selectedRange.Cells
        ' 每次循环都读取当前单元格的文件路径
        fpath = cel.Value
        
        Set objWord = CreateObject("Word.Application")
        objWord.Documents.Open (fpath)
        objWord.Visible = True
        
        ' 运行Word中的宏
        objWord.Application.Run MacroName:="CopySAM"
        
        ' 直接粘贴到当前单元格右侧第14列，无需Select
        cel.Offset(0, 14).PasteSpecial
        
        ' 关闭Word并释放对象
        objWord.Quit
        Set objWord = Nothing
    Next cel
End Sub

关键改动说明 #

• 动态更新文件路径：把fpath = cel.Value移到循环内部，确保每次处理一行时都读取当前行的路径
• 移除不必要的Select操作：直接通过cel.Offset(0,14)定位粘贴目标单元格，避免因选中状态变化导致的错误
• 正确释放Word对象：每次循环结束后添加Set objWord = Nothing，避免残留未释放的COM对象

如果你的CopySAM宏不需要每次都重启Word，还可以把Word对象的创建移到循环外面，进一步优化性能：

Option Explicit
Sub odoc()
    Dim fpath As String
    Dim objWord As Object
    Dim cel As Range
    Dim selectedRange As Range
    
    Set selectedRange = Application.Selection
    ' 只创建一次Word实例
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    
    For Each cel In selectedRange.Cells
        fpath = cel.Value
        
        objWord.Documents.Open (fpath)
        objWord.Application.Run MacroName:="CopySAM"
        
        cel.Offset(0, 14).PasteSpecial
        
        ' 关闭当前文档，而不是退出Word
        objWord.ActiveDocument.Close SaveChanges:=False
    Next cel
    
    ' 循环结束后再退出Word
    objWord.Quit
    Set objWord = Nothing
End Sub

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