在Excel VBA中使用长访问SQL查询

我有一个很长的Access SQL查询：

SELECT Avg(Data_transmission.Forward_app_throughput) AS AvgOfForward_app_throughput FROM (Data_transmission LEFT JOIN Data_task_statistics ON Data_transmission.Record_index = Data_task_statistics.Record_index) LEFT JOIN Bin_data ON Data_transmission.Record_index = Bin_data.Record_index WHERE (((Data_task_statistics.Task_type_ID)=4) AND ((Data_task_statistics.Received_Application_byte)>50000) AND ((([Data_transmission].[Forward_app_throughput]))>-1) AND ((Bin_data.Protocol_id)=61)); 

我想在Excel VBA中使用它，但是我唯一能够做到的方法是使用Excel中的“从Microsoft Query中获取数据”function，该function会生成此string

 CommandText = Array( _ "SELECT Avg(Data_transmission.Forward_app_throughput) AS AvgOfForward_app_throughput" & Chr(13) & "" & Chr(10) & "FROM (Data_transmission LEFT JOIN Data_task_statistics ON Data_transmission.Record_index = Data_task_statistics.Rec" _ , _ "ord_index) LEFT JOIN Bin_data ON Data_transmission.Record_index = Bin_data.Record_index" & Chr(13) & "" & Chr(10) & "WHERE (((Data_task_statistics.Task_type_ID)=4) AND ((Data_task_statistics.Received_Application_byte)>50000) AND" _ , _ " ((([Data_transmission].[Forward_app_throughput]))>-1) AND ((Bin_data.Protocol_id)=61));" & Chr(13) & "" & Chr(10) & "" _ ) 

我怎样才能得到这个string，而不使用“从Microsoft Query获取数据”function，因为它需要很长时间，我有几个查询

Answer 1

根据我的评论添加答案。 不要尝试在CommandText中使用数组，只是传递一串SQL。