单个VBA子程序运行正常，连续调用时出现Excel文件找不到错误求助

我完全懂你遇到的这个头疼问题——两个子程序单独运行都好好的，合在一起调用就掉链子，CloseInstance里的GetObject总是报找不到文件的错。这种情况我之前也碰过，大概率是文件生成的时间比你预设的2秒等待要长，或者文件还在写入磁盘的过程中，导致CloseInstance执行时文件还没完全就绪。

下面给你几个可行的解决方案，一步步来修复这个问题：

1. 用动态等待替代固定Sleep #

固定的Sleep 2000太死板了，系统繁忙或者Matriks处理慢的时候，2秒根本不够。我们可以写一个函数，循环检查文件是否存在并且可以正常访问，直到文件就绪或者超时：

Function WaitForFile(filePath As String, timeoutMs As Long) As Boolean
    Dim startTime As Double
    startTime = Timer
    Do While Timer < startTime + timeoutMs / 1000
        ' 先检查文件是否存在
        If Dir(filePath) <> "" Then
            ' 尝试打开文件，确认它没有被锁定（还在写入）
            On Error Resume Next
            Dim fileNum As Integer
            fileNum = FreeFile()
            Open filePath For Input Lock Read Write As #fileNum
            Close #fileNum
            ' 如果没有错误，说明文件可以访问了
            If Err.Number = 0 Then
                WaitForFile = True
                Exit Function
            End If
            On Error GoTo 0
        End If
        Sleep 500 ' 每500毫秒检查一次，避免占用过多资源
    Loop
    ' 超时返回False
    WaitForFile = False
End Function

然后修改你的MainSequence，调用这个等待函数：

Sub MainSequence()
    'This sub pieces together MatriksFlowUpdate and CloseInstance
    Call MatriksFlowUpdate
    ' 等待文件生成，设置10秒超时（可以根据实际情况调整）
    If WaitForFile("C:\MATRIKS\USER\REPORTS\EXCEL\Temp.xls", 10000) Then
        Call CloseInstance
    Else
        MsgBox "Excel文件生成超时，无法执行关闭操作！"
    End If
End Sub

2. 优化CloseInstance的实现 #

原来的代码先通过文件获取Application的方式不够可靠，我们可以直接获取Workbook对象，同时加上错误处理，避免因为找不到文件直接报错：

Sub CloseInstance()
    'Finds the instance of Excel where Matriks exported its excel and closes that instance of Excel
    Dim targetWB As Workbook
    On Error Resume Next
    ' 直接获取目标工作簿
    Set targetWB = GetObject("C:\MATRIKS\USER\REPORTS\EXCEL\Temp.xls")
    On Error GoTo 0
    
    If Not targetWB Is Nothing Then
        Dim xlApp As Excel.Application
        Set xlApp = targetWB.Application
        ' 关闭工作簿，根据需求决定是否保存
        targetWB.Close SaveChanges:=False
        ' 如果这个Excel实例没有其他打开的工作簿，就关闭整个实例
        If xlApp.Workbooks.Count = 0 Then
            xlApp.Quit
            Set xlApp = Nothing
        End If
        Set targetWB = Nothing
    Else
        MsgBox "未找到目标Excel文件，请检查文件路径或生成状态！"
    End If
End Sub

3. 额外的小建议 #

• 可以在MatriksFlowUpdate的末尾再加一段短时间的Sleep，给Matriks一点触发导出后的缓冲时间，比如Sleep 1000，再进入等待逻辑。
• 确认一下Matriks生成的文件路径是否绝对正确，有时候软件可能会因为权限问题把文件写到其他路径（比如用户文档目录），可以手动检查一下生成后的文件位置。

按上面的方法修改后，应该就能解决两个子程序联动时找不到文件的问题了。

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