Excel: Relativer Pfadangabe in VBA (Makro)

[micha_picture]

Hallo zusammen.
Als Anfänger in Sache VBA Excel tue ich mich momentan noch etwas schwer.
Ich habe z.b. ein Makro, das folgende Zeile enthält:

ActiveSheet.Pictures.Insert("F:\test\image\fahrsilo-grün.png").Select

Ich möchte nun aber, dass das F:\test verschwindet und der Pfad dafür verwendet wird, in der sich auch die Exceldatei befindet.

Habe in diversen Foren und auch hier schon mal von "ThisWorkbook.Path &" gefunden. Doch egal wie ich dies einbaue, bekomme ich eine Fehlermeldung.
Wer kann mir da kurzfristig helfen? Ich denke, ich mache nur was in Sache Komma oder ähnlichem falsch oder bin ich komplett falsch unterwegs?

 

[Nilson]

Willkommen im Forum
Versuch mal:

ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & "image\fahrsilo-grün.png").Select

 

[micha_picture]

Funktioniert! Thanks! :-) So ähnlich hatte ich es auhc schon. Nur hatte ich nicht "\" noch mit eingebaut.
Also ich hatte es so:
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\image\fahrsilo-grün.png").Select
richtig ist es nun so:
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & "image\fahrsilo-grün.png").Select

Das es daran nur lag, muss man erst mal drauf kommen. Als Anfänger.:-)

 

[Mirakel]

Um solche Fehler leicht sichtbar zu machen, gibt es das Kommando: Debug.print
Damit kannst du dir Ausgaben im Direktfenster anzeigen lassen. Zur Kontrolle von solchen Kleinigkeiten oder Zwischenschritten immer sehr praktisch.

 

[chase]

*Update*

Hab es dann doch noch mit Probieren hinbekommen, so funktioniert es ( es war nur ein " zuviel vor ThisWorkbook.Path):

Workbooks.Open Filename:= _
        ThisWorkbook.Path & "\" & "Nachweise 2013\Vorlage Q12013.xlsx"

*Update Ende*

Guten Morgen zusammen,

ich hole nochmal einen älteren Beitrag nach oben

Ich suche eine ähnlich gelagerte Lösung, wie der Themenersteller. Ich möchte in meinem Fall im ersten Schritt allerdings eine Datei öffnen, die nun auch einen variablen Speicherort hat ( aber immer in einem Unterordner der Originaldatei ist):

Ich habe Folgendes ausprobiert:

Workbooks.Open Filename:= _
        "ThisWorkbook.Path & " \ " & "2013\Vorlage Q12013.xlsx"

Leider taucht bei mir die Fehlermeldung auf "Fehler beim Kompilieren: Syntaxfehler". Könnt ihr mir zur Lösung verhelfen?

Im 2. Schritt möchte ich noch eine Datei speichern, aber ich denke, wenn ich die Syntax hier richtig hinbekomme, dürfte es auch mit dem Speichern funktionieren.

Danke im Voraus!

 

[Knufu]

IMHO ist das " vor der Variable ThisWorkbook.Path zuviel.

Workbooks.Open Filename:= _
              ThisWorkbook.Path & " \ " & "2013\Vorlage Q12013.xlsx"