Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei in übergeordnetem Verzeichnis speichern

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

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Speichern von Teilen einer Excel-Datei
Teilen

Hallo.
Ich habe ein Problem!! Ich habe mir ein Rechnungsrogramm in Excel zusammengebaut, von dem ich immer einen Teil der Tabelle (B1-AM76) abspeichern möchte. Als Dateiname soll dabei die Rechnungsnummer (Zelle AE21 )verwendet werden. Leider reichen meine Kenntnisse nicht aus, um ein solch...
22.11.2008 10:45:00
Thread-ID: 1026898
7 Beiträge
Große Exceldatei in 2007 wird beim Speichern besch
Ralf

Hallo,
ich habe eine gigantische Excel-Mappe mit fast 3000 Tabellen per VBA erzeugt.
Diese Mappe ist mittlerweile ca. 290 MB groß.
Beim letzten Speichern (das natürlich ewig lange dauert) ist die Datei wohl beschädigt worden.
Nach dem Reparaturversuch von Excel war die Datei nic...
08.01.2009 19:16:00
Thread-ID: 1038018
3 Beiträge
Datei auf dem Internet speichern
Hansueli

Ich möchte eine Excel Datei mit Makros auf meiner Homepage hochladen und ich möchte, dass wenn jemand das File bearbeitet hat und mit einem Button schliessen wählt, dass es die Datei automatisch auf der Homepage speichert. Wer kann mir helfen? Vielen Dank!
02.04.2009 08:11:19
Thread-ID: 1066178
3 Beiträge
speichern in fremde datei
s.l6841@gmail.com

Ich habe folgendes Problem
Aus Datei A werden vor dem Schliessen Daten in Datei B übertragen (Copy - Befehl). Dies funktioniert aber nur, solange Datei B nicht geöffnet ist. Sobald Datei B geöffnet ist, kommt die Meldung, das B geöffnet ist.
Jetzt habe ich die Möglichkeit solange zu w...
04.04.2009 20:19:46
Thread-ID: 1066883
6 Beiträge
Frage zu automatischem speichern einer Dateikopie
andreas

Hallo zusammen,
ich habe folgendes Problem:
ich möchte, dass sich eine Datei jedesmal, wenn sie gespeichert wird, in einer Kopie abspeichert.
Dazu benutze ich folgendes Makro:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Me.SaveCopyAs ("Z:\grou...
26.05.2009 14:45:06
Thread-ID: 1077416
7 Beiträge
Werte aus C:/Datei x in D:/Datei y speichern
Peter_weber

Liebes Forum,
bin blutiger VBA Anfänger.
Wie kann man am einfachsten aus einer Datei x (im Prinzip ist es eine Eingabemaske) die Werte in eine andere Datei die sich auf einem anderen Laufwerkbefindet in einer Tabelle wegspeichern?
https://www.herber.de/bbs/user/62149.xls
https:...
02.06.2009 14:32:43
Thread-ID: 1078619
3 Beiträge
Anzeige
Werte aus C:/Datei x in D:/Datei y speichern
Peter_weber

Liebes Forum,
bin blutiger VBA Anfänger.
Wie kann man am einfachsten aus einer Datei x (im Prinzip ist es eine Eingabemaske) die Werte in eine andere Datei die sich auf einem anderen Laufwerkbefindet in einer Tabelle wegspeichern?
https://www.herber.de/bbs/user/62149.xls
https:/...
02.06.2009 16:08:47
Thread-ID: 1078657
9 Beiträge
Exel-Datei in die Applikation PEREGRINE speichern
maPas

Hallo allerseits
Ich möchte per VBA - Makro eine bestimmte Excel-Datei direkt als Dateianhang in die Applikation PEREGRINE anhängen (also in Peregrine soll eine neue Ticketnummer erstellt werden und als Anhang soll diese Excel-Datei angehängt werden)
Geht das irgendwie ?
bin für jed...
18.06.2009 12:52:08
Thread-ID: 1082548
4 Beiträge
CSV-Datei in Unicode speichern
Bertram

Hallo zusammen,
ich speichere ein Tabellenblatt als CSV-Datei mit folgendem Code(ausschnitt):
Open strPfadCSVUser & DateiName & ".csv" For Output As #intFileNumber
With ActiveSheet.UsedRange
For lngRow = 1 To .Row + .Rows.Count - 1
vntArray = Range(Cells(lngRow, 1),...
22.01.2010 11:21:37
Thread-ID: 1132006
2 Beiträge
Speichern unter - Dateipfad in Zelle speichern
kle

Hallo,
Wie kann ich den Pfad und den Dateinamen einer Datei in eine Zelle schreiben, aus dem Befehl Speichern unter heraus ?
Ich kopiere 2 Arbeitsblätter in eine neue Datei und nun soll diese Datei mit Speichern unter vom USer in ein Pfad x gespeichert werden.
Das klappt soweit mit:...
18.03.2011 07:51:23
Thread-ID: 1206262
5 Beiträge
Anzeige
Eine Datei in viele Ordner speichern
maho

Guten Morgen!
Wie schon im Titel erwähnt, würde ich gerne eine bestimmte Exceldatei mit wenig Aufand(Makro?) in viele unterschiedliche Ordner abspeichern, die sich alle in einem übergeordneten Ordner befinden.
Hab' leider nichts Konkretes beim Suchen gefunden.
Danke für eure Mühe...
08.09.2011 08:28:07
Thread-ID: 1229012
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige