À l'aide de VBA autre programme de contrôle entièrement

Excel et VBA peut contrôler des applications externes si ils ont une interface COM - c'est-à-dire, si vous pouvez déclarer la demande comme un objet, créer une instance de l'objet, et de voir ses méthodes et attributs.

Si vous pouvez éventuellement obtenir de un COM wrapper pour votre programme, le faire de cette façon.

Si vous ne pouvez pas... Vous n'en profitez pas de le faire à l'aide de flux e/S et un objet Shell Windows, parce que la ligne de commande DOS interfaces ne sont pas particulièrement sympathiques que d'une Interface Utilisateur, et ils sont feuilletés de breakdance dans une pâtisserie d'usine lorsque vous essayez de les utiliser comme une API en VBA.

Tout d'abord, vous avez besoin du "WshShell' objet exposé par Windows Script Host Object Model. Vous pouvez déclarer et instancier par une liaison tardive comme indiqué:

Dim objWshell As Object
Set objWshell = CreateObject("WScript.Shell")

Mais la bonne méthode (qui vous donnera Intellisense baisse de valeur des propriétés et méthodes) est d'utiliser les " Outils:Références...' boîte de dialogue pour créer une référence à la bibliothèque parent, qui se trouve généralement au C:\Windows\System32\wshom.ocx

Vous pouvez déclarer l'objet Shell:

Dim objWshell As IWshRuntimeLibrary.WshShell
Set objWshell = New IWshRuntimeLibrary.WshShell

De l'exécution d'un exécutable de ligne de commande et la lecture de flux e/S en VBA

:

C'est un exemple qui ouvre une fenêtre de commande et exécute une ligne de commande exécutable, de la nourrir un commutateur de ligne de commande '-s' et un paramètre entourée de guillemets.

Noter que l'exécutable, je suis en cours d'exécution n'est PAS "regsvr32.exe" - mon objet shell est en cours d'exécution cmd.exe et qui est la source et de puits de l'I/O ruisseaux.

Vous pouvez, bien sûr, l'exécution de votre application directement. Cela pourrait fonctionner. Mais il est très commun pour le flux de sortie pour verrouiller ou "bloquer" votre appel de fonction et de ses VBA fil lorsque vous appelez .La sortie standard StdOut.ReadLine ou .La sortie standard StdOut.ReadAll - vous avez été averti.

With objWshell.Exec("CMD /K")

  

       .StdIn.WriteBlankLines 3

    .StdIn.WriteLine "C:"

    .StdIn.WriteLine "CD C:\"

 

    .StdIn.WriteLine "regsvr32.exe -s " & Chr(34) & "%LIBDIR%\FXPricer.dll" & Chr(34)

    .StdIn.WriteBlankLines 1

 

    Do Until .StdOut.AtEndOfStream

        Debug.Print .StdOut.ReadLine

    Loop


     Do Until .StdErr.AtEndOfStream

        Debug.Print .StdOut.ReadLine

    Loop


    .Terminate


End With

Partager et d'en Profiter. Et, comme toujours, attention pour les sauts de ligne insérés par votre navigateur (ou par StackOverflow la zone de texte de l'interface) dans les exemples de code source.

OriginalL'auteur Nigel Heffernan