Excel Mehfach öffnen mit diverse Dateien
27.11.2008 09:02:46
mehmet
ich möchte mittels Button mehrere Excel Programme öffnen.
Pfad der Datei ist in Zelle A:A
Hier der Makro:
Private Sub CommandButton2_Click()
Dim excel
Dim dat1 As String
Dim dat2 As String
Dim dat3 As String
dat1 = Worksheets("Tabelle1").Range("a1")
dat2 = Worksheets("Tabelle1").Range("a2")
dat3 = Worksheets("Tabelle1").Range("a3")
'leere Zeichen mit ~1 ersetzen
excel = Shell("C:\Programme\Microsoft Office\Office10\Excel.exe & dat1", 1)
excel = Shell("C:\Programme\Microsoft Office\Office10\Excel.exe & dat2", 2)
excel = Shell("C:\Programme\Microsoft Office\Office10\Excel.exe & dat3", 3)
AppActivate excel
Range("A1").Select
End Sub
Warum bekomme ich Fehlermeldungen:
Datei &.xls wurde nicht gefunden
Datei dat3.xls wurde nicht gefunden
Datei &.xls wurde nicht gefunden
Datei dat2.xls wurde nicht gefunden
Datei &.xls wurde nicht gefunden
Datei dat1.xls wurde nicht gefunden
Es werden 3 Excel Programme geöffnet (leer) und nicht die gewünschte Datei.
Dank und Gruss
mehmet