Sub 如何使用VBA进行多表汇总()
Dim AdoConn As New ADODB.Connection
Dim AdoRst As ADODB.Recordset
Dim strConn As String
Dim strSQL As String
Application.ScreenUpdating = False
'设置连接字符串
strConn = " Provider=Microsoft.ACE.OLEDB.12.0;"
Sub 如何使用VBA进行多表汇总()
Dim AdoConn As New ADODB.Connection
Dim AdoRst As ADODB.Recordset
Dim strConn As String
Dim strSQL As String
Application.ScreenUpdating = False
'设置连接字符串
strConn = " Provider=Microsoft.ACE.OLEDB.12.0;"