Astuces Excel
  1. Astuces Excel
  3. Utiliser une requête SQL à access prolongé dans Excel VBA
Intereting Posts
MS excel si la fonction renvoie une mauvaise valeur Python: Parse messy excel file qui est "empilé" Fonction VBA Date Pages miroir à partir d'un workboot excel excellent Existe-t-il un moyen d'exporter la table html vers Excel dans tous les browsers? python excel csv help. comment faire le formatting La requête VBA GET renvoie 404 lorsque Curl renvoie 200 L'appel d'une fonction définie par l'user Excel à partir de Python renvoie toujours Aucun Marquer / resize une nouvelle gamme en fonction d'une autre sélection de feuilles VBA Excel: Erreur hors limites hors ligne (9) COUNTIF avec OR Statement Trouver la valeur MIN entre une gamme variable de cellules dans deux colonnes qui contiennent TRUE Impossible d'écrire ou lire à partir de Worksheet.CustomProperties dans une application de console Fermer après avoir enregistré toutes les instances (Unknown #) d'Open Word Documents avec Excel VBA Excel VBA pour définir une variable vers une feuille de calcul

Utiliser une requête SQL à access prolongé dans Excel VBA

J'ai une longue requête SQL d'access: 

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));

J'essaie de l'utiliser dans Excel VBA, mais je l'ai réussi à utiliser la fonctionnalité "Obtenir des données de Microsoft Query" dans Excel, qui produit cette 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) & "" _ )

Comment puis-je get cette string sans utiliser la fonction "Obtenir des données de Microsoft Query", car cela prend beaucoup de time et j'ai plusieurs requêtes

Ajout d'une réponse en fonction de mon commentaire. N'essayez pas d'utiliser un tableau avec CommandText, passez-lui simplement une string de SQL.