Excel宏来运行Access查询;显示受影响的行

Question

我有这个宏在excel上。它在MS Access中运行查询。

Sub CSAT()
Dim A As Object
Application.DisplayAlerts = False
Set A = CreateObject("Access.Application")
A.Visible = False
A.OpenCurrentDatabase ("D:\AUTODashboard\auto_dash.accdb")
A.DoCmd.OpenQuery "Query_CSAT"
Application.DisplayAlerts = True
End Sub

他们是一种显示（在Excel上）运行查询时受影响的行数的方法吗？

Answer 1

而不是：

A.DoCmd.OpenQuery "Query_CSAT"

使用此：

With A.CurrentDB.QueryDefs("Query_CSAT")
   .Execute
   MsgBox .RecordsAffected
End With