In manchen Situationen möchten Sie vielleicht eine zweite Windows-Anwendung zu öffnen, während noch in Betrieb in eine andere Anwendung wie Excel. VBA , kurz für Visual Basic für Applikationen , ein Verfahren mit ein paar Zeilen Code, um auf eine andere Anwendung wie Microsoft Word rufen während der Arbeit mit Excel. Obwohl Sie die gleiche Sache , indem Sie einfach auf den "Start "-Befehl , um die zweite Anwendung zu öffnen tun konnte , mit Hilfe von VBA macht das zweite Programm asynchron ausgeführt . Das heißt , gibt die Steuerung sofort in Excel , die Durchführung von Berechnungen weiterhin ohne Änderung an die andere Anwendung manuell . Anleitung
1

Öffnen Sie eine neue Arbeitsmappe in Microsoft Excel. Klicken Sie auf die Registerkarte "Entwicklertools" in der Top-Level- Menü . Wenn Sie nicht sehen, diese Option , klicken Sie auf den "Office "-Schaltfläche in der linken oberen Ecke von Excel. Wählen Sie " Excel-Optionen " aus dem Fenster , und klicken Sie das Kästchen neben "Show Registerkarte Entwicklertools in der Multifunktionsleiste anzeigen. " Klicken Sie auf " OK".
2

Klicken Sie auf " Visual Basic "-Reiter nun in der Zeile sichtbar Entwickler von Optionen . Es öffnet sich ein Visual Basic für Applikationen ( VBA) Entwicklung Fenster .
3

Klicken Sie auf " View" in der oberen Menüleiste auf die Entwicklung Fenster . Klicken Sie "Code " aus dem Drop -Down-Liste

Geben Sie den folgenden Code: .

Private Sub CommandButton1_Click () Dim AppName Wie String'The nächsten Zeile stellt eine Möglichkeit für Sie, das zu wählen, Windows- app'AppName = InputBox ("Geben Sie den Pfad und den Namen der ausführbaren Datei der Anwendung ") ' die nächste Zeile zeigt, wie Sie den Pfad und Namen der ausführbaren Datei für die app'AppName = "C geben haben : \\ Program Files ( x86) \\ Microsoft Office \\ Office12 \\ winword.exe " ' Wenn die App ist in den normalen Weg wie Word, Notepad , Excel IE und andere Microsoft-Standards ' sind , dann brauchen Sie nicht den vollständigen Pfad . Geben Sie einfach die aktuelle Programmdatei wie Sie see.AppName = " winword.exe " Shell AppName , vbNormalFocusEnd Sub