Astuces Excel
  1. Astuces Excel
  3. VBA: commands multiples à partir d'un cmd.exe
Intereting Posts
VBA Excel Cell Combination Script 1004 Erreur code correspondant à l'en-tête de coloumn (nom) dans le classur de destination, puis copy des valeurs du classur source vers la destination Impossible d'exécuter une macro VBA sur d'autres PC Créer un tableau de colonne à partir de la table pivot .NET VSTO – L'label de l'label de ruban Excel est vide, mais uniquement sur la première instance d'Excel Afficher l'arraylist dans Microsoft Excel Excel ne peut pas compléter cette tâche avec les ressources disponibles. Choisissez less de données ou fermez une autre application. ActiveWorkbook.SaveAs La gestion des erreurs ne gère pas Les variables en cache ne sont pas stockées dans le classur Excel VSTO Macro Excel pour la concaténation de zone sélectionnée Signature d'en-tête invalide; lisez 0x6D78206C6D74683C, attendu 0xE11AB1A1E011CFD0 Empêcher l'input en double avec la boîte msg montrant le numéro de série de la valeur déjà présente en utilisant vba Erreur lors de la conversion d'un file XML vers un file Excel Besoin de copyr une feuille de calcul sur une autre en fonction des informations d'en-tête qui incluent des cellules vierges Préserver le formatting lors de la sauvegarde de xls comme csv

VBA: commands multiples à partir d'un cmd.exe

J'essaie d'exécuter un script VBA qui exécutera un programme shell particulier avec des arguments extraits de Excel Spreadsheet.

J'aimerais exoter la command n fois pour n lignes dans spredsheet, mais je l'ai dans une seule window cmd.exe. Est-ce que cela est réalisable?

Je fais de telles étapes:

1.Création de l'object shell: 

Set wsh = VBA.CreateObject("WScript.Shell")

2.Introduire toutes les lignes dans la feuille de calcul et appeler chacune: 

 wsh.Run("Command with row specific args", 1, true)

En conséquence, j'ai n console windows ouvert pour n lignes traitées. Y a-t-il un moyen de l'éviter?

Aide appréciée.

Vous ne donnez pas beaucoup de détails, mais une solution pourrait être de créer un file batch (.bat) (pas différent de l'écriture sur un autre file text) avec tous les parameters dont vous avez besoin, l'save quelque part, puis l'exécuter en un seul appeler à cmd.exe. Et vous pouvez simplement supprimer ce file.

Commencez par ouvrir le file pour la sortie: 

 Dim fn As Long fn = FreeFile Open "filename.bat" For Output As #fn

Ensuite, iterate votre gamme, et au lieu de lancer un cmd.exe pour chaque, écrivez dans votre file ouvert: 

 Print #fn "command with row specific args"

Puis fermez votre file et exécutez-le: 

 Close #fn Set wsh = VBA.CreateObject("WScript.Shell") wsh.Run("filename.bat", 1, true)

Ensuite, vous pouvez jeter le file: 

 Kill "filename.bat"