Hallo,

ich möchte eine extene Anwendung über VB öffnen.

Dies soll über Codierung geschehen.

Hat jemand den passenden Befehl? Mit Open geht es irgendwie nicht.

Moin!

Probiere es doch über die Shell Funktion!

Syntax: Shell(pathname[,windowstyle])

Der Windowstyle gibt an, wie das Prog geöffnet werden soll (versteckt, mit Focuserhalt...)

Hört sich nicht schlecht an!

Danke, das versuche ich mal!

Hi, du muss erst einen Verweis auf die Excel 10.0 Library setzen, dann kannst du folgendes anwenden:

Dim XL as Excel.Application

Set XL = Excel.Application

XL.visible = True

XL.workbooks.open Pfad

:marine

SF

Original geschrieben von Schneeflocke

Hi, du muss erst einen Verweis auf die Excel 10.0 Library setzen, dann kannst du folgendes anwenden:

Dim XL as Excel.Application

Set XL = Excel.Application

XL.visible = True

XL.workbooks.open Pfad

:marine

SF

Derartiges funktioniert allerdings nur mit Office-Anwendungen.

Der Shell-Befehl öffnet alle Anwendungen.

Um ein beliebiges Dokument (mit der von Windows zugeordneten Anwendung) zu öffnen, kannst du außerdem so vorgehen:

Du erstellst auf der Form ein OLE-Objekt; wenn beim "Zeichnen" des Objekts ein Fenster aufpoppt, auf ABBRECHEN klicken.

Das OLE-Objekt setzt du bei den Eigenschaften auf unsichtbar.

Dann erstellst du dir noch eine Schaltfläche, fügst ihr folgenden Code hinzu

Private Sub Command1_Click()

    OLE1.CreateLink "D:\Daten.dat"

    OLE1.DoVerb

End Sub

und schon öffnet die Schaltfläche die Datei "D:\Daten.dat" (dass man anstelle von "D:\Daten.dat" auch eine Variable setzen kann - das brauch ich wohl nicht näher zu erläutern ).

Grüße,

Technician