Astuces Excel
  1. Astuces Excel
  3. VBA: Impossible d'implémenter Excel VBS en dehors d'Excel
Intereting Posts
Exporter la feuille de calcul Excel vers PDF en utilisant OLE dans Delphi XE3 Comment countr la série actuelle? Actualiser la requête MS dans Excel VBA copyr et coller avec une plage dynamic Essayer de colorier une colonne entière de cellules dans une feuille de calcul Excel en utilisant NPOI Est-il possible d'afficher un file .xls dans une balise html <object>? Combattre efficacement datatables en fonction de la date et du nom dans excel Excel VBA Copier et Coller (sans utiliser les fonctions Copier + Coller) sur une ligne vide Répétez la macro en excel Comment puis-je effectuer COALESCE dans la requête Power? Utilisez le tableau comme valeurs constantes dans VBA avec listobjects Problème avec l'utilisation d'une macro enregistrée qui contient des instructions pour le formatting conditionnel Résoudre une équation mathématique dans Excel par deux variables Déclaration d'une variable publique à travers les modules Fermeture d'un classur Excel ouvert en C #

VBA: Impossible d'implémenter Excel VBS en dehors d'Excel

J'ai le code ci-dessous, qui ouvre un classur et exécute la macro correspondante. L'exécution de ce script à travers Excel fonctionne très bien, mais l'exécution du file .vbs avec le même code n'exécute pas la macro. J'ai essayé à la fois de double cliquer sur le file et de l'exécuter dans l'invite cmd avec "cscript.exe LaunchMacro.vbs". En outre, l'utilisation de WScript.Echo ne s'imprime pas sur ma command line. Est-ce que j'ai râté quelque chose?

Je vous remercie! 

Option Explicit Sub LaunchMacro() Dim xlApp, xlBook Dim oShell: Set oShell = CreateObject("WScript.Shell") oShell.CurrentDirectory = "H:" Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.Application.Visible = False Set xlBook = xlApp.Workbooks.Open("H:\SW Tool Resources\test\tester.xlsm") MsgBox ("File Opened") xlApp.DisplayAlerts = False xlApp.Application.Run ("tester.xlsm!Module3.split") MsgBox ("Application Should Have Run") xlBook.Saved = True xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End Sub

VBS et VBA sont différents.

Essayez de mettre uniquement ce code dans le file vbs et de l'exécuter: 

 Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True xlApp.Application.Visible = False Set xlBook = xlApp.Workbooks.Open("H:\SW Tool Resources\test\tester.xlsm") MsgBox ("File Opened") xlApp.DisplayAlerts = False xlApp.Application.Run ("tester.xlsm!Module3.split") MsgBox ("Application Should Have Run") xlBook.Saved = True xlApp.Quit

Je ne l'ai pas testé, et très probablement ne réussira pas. Mais il devrait être dans la bonne direction.

Modifier:

Voici quelque chose qui devrait vous aider à démarrer avec VBS: un script peut définir certaines fonctions, mais ne les exécute que si vous les appelez.

Par exemple, cela ne fonctionnera que sous Sub1 : 

 Sub Sub1() MsgBox "1" End Sub Sub Sub2() MsgBox "2" End Sub Sub1