Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datei in übergeordnetem Verzeichnis speichern

Datei in übergeordnetem Verzeichnis speichern
02.07.2008 12:37:25
Harald
Hallo,
ich habe mal wieder ein Problem:
Wie kann ich mit VBA die Datei, die sich in einem beliebigen Verzeichnis befindet, in das übergeordnete Verzeichnis speichern, wobei die neue Datei den Namen Original.xls erhalten soll?
mfg
Harald

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei in übergeordnetem Verzeichnis speichern
02.07.2008 12:50:00
Dani
Versuchs mal so...

ThisWorkbook.SaveAs (Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) & "\Original. _
xls")


Gruss
Dani

AW: Ich meine mich erinnern zu können,...
02.07.2008 12:59:00
Chris
Servus Harald,
... dass InStrRev mit xl97 nicht geht, dann so:

Sub t()
Dim strPfad As String
strPfad = ActiveWorkbook.Path
Dim i As Long, z As Long
For i = Len(strPfad) To 1 Step -1
z = z + 1
If Mid(strPfad, i, 1) = "\" Then
Exit For
End If
Next i
strPfad = Left(strPfad, Len(strPfad) - z)
ThisWorkbook.SaveAs strPfad & "\Original.xls"
End Sub


Gruß
chris

Anzeige
AW: Ich meine mich erinnern zu können,...
02.07.2008 17:43:00
Harald
Hallo Chris,
vielen Dank für die Hilfe.
mfg
Harald

AW: Datei in übergeordnetem Verzeichnis speichern
02.07.2008 17:40:44
Harald
Vielen Dank für die schnelle Antwort
mfg
Harald

AW: Datei in übergeordnetem Verzeichnis speichern
02.07.2008 12:52:28
Jürgen
Hallo Harald,
z.B. so, wenn die neue Datei die geöffnete werden soll:
ThisWorkbook.SaveAs ThisWorkbook.Path & "\..\Original.xls"
oder so, wenn nur eine Kopie angelegt werden soll:
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\..\Original.xls"
Ggfs. mußt Du statt "Thisworkbook" (die Datei, in der das Makro gespeichert ist) gegen "Activeworkbook" (die Datei, die gerade in Excel angezeigt wirst) ersetzen.
Gruß, Jürgen

Anzeige
AW: Datei in übergeordnetem Verzeichnis speichern
02.07.2008 17:41:00
Harald
Hallo Jürgen,
vielen Dank für die schnelle Hilfe.
mfg
Harald
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
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