Office 2007: Wie schreibt man einen Dateipfad ohne LW Buchstaben

[Rolf Grob]

Hallo Zusammen,

Ich arbeite mit Excel 2007, und bin nicht gerade Spezialist in VBA Codes.

Ich habe einen Ordner z.B. "ExcelData" in dem ich eine Exceldatei und mehrere Unterordner mit Daten auf einem USB Laufwerk.
Wenn ich dieses Laufwerk nun an verschiedenen Rechnern verwenden möchte, ändert sich ja der Laufwerksbuchstabe.

Meine Frage nun:
Wie kann ich in einem VBA Code einen Dateipfad schreiben, ohne dass ich einen Laufwerkbuchstaben angeben muss ?
z.B. an Stelle von:

H:\ExcelData\Diagramme\Balkendiagramm.jpg

ohne LW Buchstabe,

??   \ExcelData\Diagramme\Balkendiagramm.jpg

Ich habe es schon mit \\ExcelData\usw., mit ..\ExcelData\usw. und ..\\ExcelData\usw. versucht,
aber nicht's hat funktioniert.
Es währe sehr nett, wenn mir da jemand Hilfe geben könnte.

Danke im voraus,
Rolli

[maninweb]

Hallo Rolf,

Serverordner kannst Du z.B. per UNC-Pfad \\Servername\Ordner bzw. Freigabe ansprechen.
Wüsste persönlich nicht, dass das standardmäßig mit einem USB-Laufwerk ginge.

Kannst in Deinem VBA Code entweder die USB's suchen (m.W. nicht ganz so trivial) oder prüfen,
ob die Datendatei gefunden werden kann und den Laufwerksbuchstaben abfragen sowie als
Variable verwenden (einfachere Methode)

Gruß

[Rolf Grob]

Hallo Mainweb,

Danke für deine Hilfe, ich verstehe allerdings zu wenig von der Materie um deinen Beitrag zu verstehen.

Eigentlich wollte ich wissen, ob es einen VBA Code gibt, womit man Excel angeben kann, dass die Daten in einem Unterverzeichnis gespeichert sind ohne einen Laufwerksbuchstaben anzugeben.

z.B. wenn die Excel- Arbeitsmappe in einem Ordner (ExcelData)ist, sollte der VBA Code festlegen, dass die Daten in dem Ordner (ExcelData\Diagramme\...) sind.

Ist das überhaupt möglich ?
Und wenn ja wie.

Rolli

[maninweb]

Hallo Rolf,

wenn sich der Ordner unterhalb des Ordners befindet, in dem sich die Excel-Datei befindet, dann wäre es recht einfach.
ThisWorkbook.Path liefert Dir den Ordner (ohne abschließendes \) der Excel-Datei, wo der Code ausgeführt wird.
Somit kannst Du einen Unterordner angeben, Beispiel:

Code: Visual Basic

1. MsgBox ThisWorkbook.Path & "\" &"MeinUnterordner"

Aus ThisWorkbook.Path kannst Du per Left(ThisWorkbook.Path, 2) auch das Laufwerk extrahieren.

Gruß

[Rolf Grob]

Herzlichen Dank hat geklappt

lg Rolli