vba - 打开 Excel 工作簿后，我需要在多个 MS Access VBA 函数中使用数据

Question

在 MS Access 中，我打开了一个 Excel 工作簿，现在，根据该工作簿特定单元格中的值，我想触发一些替代函数。如何在这些多个函数中引用打开的工作簿，而无需每次都重复打开工作簿？非常感谢。

            Set XLApp = GetObject(, "Excel.Application")
        XLApp.UserControl = True
        
        With XLApp
            XLApp.Visible = True
            Set xlwb = XLApp.ActiveWorkbook
            Set xlws = xlwb.Worksheets("Data")
            
            With xlws
                RowCount = .Cells(.Rows.Count, "A").End(xlUp).Row
            End With
                           
                Do While Counter <= RowCount
                    If .Range("D" + CStr(Counter)).Value = 1 Then
                        'Process new request - Access Function 1
                    'ElseIf
                        '.Range("D" + CStr(Counter)).Value = 2 then
                        'Process amend request  - Access Function 2
                    'ElseIf
                        '.Range("D" + CStr(Counter)).Value = 3 then
                        'Process delete request  - Access Function 3
                    'Else
                        'Throw error
                    End If
                    Counter = Counter + 1
                Loop

标签： vbams-access