Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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?

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

155 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige