访问 VBA（打开 excel 文件并关闭）：关闭“文件现在可用”

Question

我使用以下Access VBA代码循环打开四个不同的excel工作簿，同时我需要编辑excel数据，然后通过记录集更新Access表。

xl.Application.DisplayAlerts = False
Set wb = xl.Workbooks.Open(fileName, ReadOnly = True, editable = True, notify = False)
Set ws = wb.Sheets("Sheet1")
Set ws2 = wb.Worksheets.Add
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fileName & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;"";"

*****其他代码******

wb.Close savechanges:=False
Set wb = Nothing
Set xlc = Nothing
Set ws = Nothing
Set ws2 = Nothing
Set xl = Nothing
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

但是，即使我关闭了 excel 文件而不保存所有四个文件，在完整循环后我仍然会收到以下通知。
使用Set wb = xl.Workbooks.Open(fileName, ReadOnly = True, editable = True, notify = False)，我仍然无法关闭通知。

附言。我没有收到所有四个文件的读写通知，通常是一两个，这让我很困惑。

有解决问题的建议吗？

提前感谢所有帮助！

Answer 1

您无法在 VBA 中手动控制垃圾回收，但您可以对数据进行结构化，以使垃圾回收更具可预测性。我建议的第一件事是将 Excel 互操作代码放入它自己的过程中，该过程从您的主循环中调用。原因是当程序结束时，会发生垃圾收集。下次循环调用 open 过程时，您将使用一组新的对象句柄，而不是像当前那样回收对象。如果你这样做，你永远不必将你的对象设置为空，因为它们在过程结束时超出范围时被销毁。请务必始终使用局部变量。

为了在不重复关闭和打开 Excel 的情况下执行此操作，您需要获取当前运行的 Excel 实例的句柄。这是由下面的GetExcelApp 过程提供的。

示例：

Private Sub YourMainLoop()
    For Each fileName in fileNames
        ProcessExcelData fileName
    Next fileName
End Sub

Private Sub ProcessExcelData(ByVal fileName as String)
    Dim xl As Object
    Set xl = GetExcelApp
    xl.Application.DisplayAlerts = False
    Set wb = xl.Workbooks.Open(fileName, ReadOnly = True, editable = True, notify = False)
    Set ws = wb.Sheets("Sheet1")
    Set ws2 = wb.Worksheets.Add
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fileName & ";Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;"";"
    ' Process the data, blah blah blah
    wb.Close savechanges:=False
    rs.Close
    cn.Close
End Sub

Public Function GetExcelApp() As Object
' Returns open excel instance.
'   If it doesn't exist, creates one to return
On Error GoTo ErrHandler
Const ERR_APP_NOTRUNNING As Long = 429    

    Set GetExcelApp = GetObject(, "Excel.Application")

CleanExit:
    Exit Function
ErrHandler:
    If Err.number = ERR_APP_NOTRUNNING Then
        Set GetExcelApp = CreateObject("Excel.Application")
        Resume CleanExit
    Else
        ShowErrorMessageBox
    End If
End Function