Astuces Excel
  1. Astuces Excel
  3. Le moyen le plus rapide de download des données Excel à partir du server par la macro VBA
Intereting Posts
Enregistrez une feuille nommée d'un classur à un nouveau classur dans le même dossier Erreur Excel VLOOKUP #REF Mettre à jour une table liée à un datamodel PowerPivot à l'aide d'EPPlus et elle corrompt le datamodel Dynamic Join in Power Query (Excel) Macro d'expression régulière Excel qui searchra une colonne pour les correspondances, collez la rangée entière de toutes les correspondances dans une autre feuille de calcul Toutes les cellules ne transposent pas Fonction de feuille de calcul dans Excel Vba avec des valeurs concaténées Créer une macro Excel dynamic pour imprimer au format PDF Erreur 1004 – Ouvrir le file ouvert. lorsque j'essaie d'ouvrir des classurs dans un dossier Impossible de créer un object Excel.Application Excel 2007: maintenez le style de cellule tel que défini à partir des cellules de la feuille de validation des données Erreur de concordance de type sur la méthode de search Retenir les zéros de tête dans la sortie de la masortingce reformulée Copier datatables entre deux classurs en utilisant plusieurs critères Importation de données depuis Excel et insertion dans des tables sql normalisées

Le moyen le plus rapide de download des données Excel à partir du server par la macro VBA

J'ai écrit une macro qui télécharge datatables d'un directory en ligne. Le directory contient un file pour chaque date:

.. etc

Ma macro maintient ma feuille de calcul à jour avec ces données et télécharge un file s'il détecte qu'il manque et qu'il copy tout cela sur une seule feuille de calcul. Jusqu'ici tout va bien.

J'utilise le code suivant dans une boucle pour download chaque jour qu'un user souhaite mettre à jour (avec quelques variables de contrôle qui tiennent count des lignes). 

Dim thisWb, downloadWb As Workbook Set thisWb = ActiveWorkbook Set downloadWb = Workbooks.Open("ftp://myusername:[email protected]/directory/" & dateToDownload &".csv") downloadWb.Worksheets(1).Range("A1:M" & lastRow).Copy Destination:=thisWb.Worksheets("Data").Range("A" & CStr(rows)) downloadWb.Close

Mon problème est que cette méthode est lente, car Excel doit ouvrir individuellement chaque file puis copyr coller, en particulier lorsque quelques jours n'ont pas été mis à jour.

Je peux requestr à mon client de modifier son stream de données, alors je me demandais si quelqu'un pourrait reorder une méthode pour accélérer le téléchargement des données, soit en changeant le stream ou dans mon code? Est-ce qu'il serait plus rapide de download et de mettre à jour à partir d'un seul file contenant toutes datatables (peut-être très grand au fil du time)? Le format différent .txt peut-être? Une request HTTP serait-elle plus efficace?

Merci