Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Pfad der .Xlsm auslesen um eine .xlsx darunter zu

Pfad der .Xlsm auslesen um eine .xlsx darunter zu
23.04.2015 10:31:54
Alex
Hallo Nochmal,
Ich glaube ich wurde vorhin nicht richtig verstanden.
Ich habe die Datei "ChecklisteErstellen.Xlsm" im ordner X liegen aktiviere die ebengenannte Datei die mir dann eine Datei namens "1000xxxKunde.xlsx" erstellt und befüllt. diese Datei soll in ordner X abgespeichert werden.
wenn jetzt ein Kollege die Datei "ChecklisteErstellen.Xlsm" in den ordner Y copiert soll die Ausgegebene Datei "1000xxxKunde.xlsx" im Ordner Y abgespeichert werden.
ist es Möglich dafür einen code zu bekommen.
Danke Schön

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Thisworkbook.Path owT
23.04.2015 10:35:27
Rudi

AW: Thisworkbook.Path owT
23.04.2015 10:53:55
Alex
Es Speichert mir Die Datei immer Einen Ordner höher als die Datei und mit dem Namen Des Ordners ab.
hier der entsprechende Code Dazu:
Dim strPfad As String
strPfad = ThisWorkbook.Path
Workbooks("Mappe1").SaveAs Filename:=strPfad & TextBox1.Value & TextBox2.Value & _
Format(Date, "dd.mm.yyyy") & ".xlsx"

Wie Kann ich verhindern, dass der Ordnername mit rein kommt?

Anzeige
AW: Thisworkbook.Path owT
23.04.2015 11:11:09
Nepumuk
Hallo,
so:
Dim strPath As String
strPath = ThisWorkbook.Path
strPath = Left$(strPath, InStrRev(strPath, "\"))

Gruß
Nepumuk

Anzeige
AW: Thisworkbook.Path owT
23.04.2015 11:14:51
Alex
Danke sehr :-)

AW: Thisworkbook.Path owT
23.04.2015 11:24:26
EtoPHG
Hallo Alex,
Nepumuks Code speichert ein Hierarchie-Ebene über dem ThisWorkbook.Path
Wenn du im gleichen Ordner speichern willst, dann nur
strPath = ThisWorkbook.Path & "\"

Gruess Hansueli
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige