Supportnet / Forum / Datenbanken
Wie öffne ich im Access eine bestimmte Excel-Datei
Frage
Hallo zusammen,
ich verwende diese Methode, weil man hier kein Verzeichnis für EXCEL.EXE benötigt.
CreateObject("WScript.Shell").Run "Excel.exe /p ""C:\AccessProjekt""Test.xls" , vbNormalFocus
ich möchte aber, dass ich verschiedene Excel-Dateien öffnen kann. Wenn ich „Test.xls“ durch eine String-Variable austausche, die den gleichen Wert hat(„Test.xls“), bekomme ich eine Fehlermeldung.
Kennt jemand eine Lösung
Danke
Antwort 1 von lleopard
hi maxim66
wenn du unter Verweise Microsoft Excel Bibliothek aktivierst, kannst du auch direkt auf das Applikations-Objekt von Excel zugreifen...
Nach dem Verweis:
Dim oExcel As Excel.Application
Set oExcel = CreateObject("Excel.Application")
With oExcel
.Workbooks.Open pfad und dateiname
. visible = true
....
end with
Gruß Leo
wenn du unter Verweise Microsoft Excel Bibliothek aktivierst, kannst du auch direkt auf das Applikations-Objekt von Excel zugreifen...
Nach dem Verweis:
Dim oExcel As Excel.Application
Set oExcel = CreateObject("Excel.Application")
With oExcel
.Workbooks.Open pfad und dateiname
. visible = true
....
end with
Gruß Leo
Antwort 2 von lleopard
Nachtrag:
pfad und dateiname solltest du vorher auslesen.
Ich mache das immer so, daß ich beim öffnen eines Formulars vorher das oder die Verzeichnisse einlese, in denen ich arbeiten will und die gefunden Exceltabellen gleich so hinterlege, daß ich pfad und dateiname nur noch als variable übergeben muß. Am besten hat bei mir in Access immer noch die einfach dir-funktion geklappt...
Gruß Leo
pfad und dateiname solltest du vorher auslesen.
Ich mache das immer so, daß ich beim öffnen eines Formulars vorher das oder die Verzeichnisse einlese, in denen ich arbeiten will und die gefunden Exceltabellen gleich so hinterlege, daß ich pfad und dateiname nur noch als variable übergeben muß. Am besten hat bei mir in Access immer noch die einfach dir-funktion geklappt...
Gruß Leo
Antwort 3 von maxim66
Danke Leo,
werde heute abend ausprobieren
Gruß maxim66
werde heute abend ausprobieren
Gruß maxim66
Antwort 4 von maximm66
Hallo Leo
endlich habe ich geschaft es auszuprobieren.
Funktioniert wunderbar, ist einfach einzubauen - genau was ich gesucht habe
Danke Leo
Gruß
endlich habe ich geschaft es auszuprobieren.
Funktioniert wunderbar, ist einfach einzubauen - genau was ich gesucht habe
Danke Leo
Gruß
Antwort 5 von lleopard
Hi maxim66
gern geschehen. Is ja auch keine Hexerei ...
außerdem war ich auch schon desöfteren dankbar solche hilfe bekommen zu haben.
Quid Pro Quo
Gruß Leo :-)
gern geschehen. Is ja auch keine Hexerei ...
außerdem war ich auch schon desöfteren dankbar solche hilfe bekommen zu haben.
Quid Pro Quo
Gruß Leo :-)