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

Ordner erstellen, Datei speichern

Forumthread: Ordner erstellen, Datei speichern

Ordner erstellen, Datei speichern
05.12.2006 10:53:48
mtremer
Hallo Excel-Freunde,
ich habe mal wieder eine Frage zum Speichern einer Excel-Datei über einen CommandButton.
Bei Klick darauf soll die vorliegende Datei gespeichert werden:
- im Ordner "xyz" den Unterordner "abc" erstellen, sofern diese nicht schon vorhanden ist
- im Unterordner "abc" die Datei als "abc .xls" speichern.
Danke für Eure Hilfe.
Viele Grüße
Marco
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Ordner erstellen, Datei speichern
05.12.2006 11:12:00
Rudi
Hallo,

Private Sub CommandButton1_Click()
If Dir("c:\xyz\abc", vbDirectory) = "" Then MkDir "c:\xyz\abc"
ThisWorkbook.SaveAs "c:\xyz\abc\abc.xls"
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Ordner erstellen, Datei speichern
05.12.2006 11:19:19
mtremer
Hallo Rudi,
sorry, ich habe einen wichtigen Hinweis vergessen:
Der Ordner- und Dateiname "abc" steht in der Zelle C5.
Kannst Du Deinen Code dementsprechend anpassen?
Danke.
Viele Grüße
Marco
Anzeige
AW: Ordner erstellen, Datei speichern
05.12.2006 11:29:46
Rudi
Hallo,
so n der Art:

Private Sub CommandButton1_Click()
If Dir("c:\xyz\" & Range("C5"), vbDirectory) = "" Then MkDir "c:\xyz\" & Range("C5")
ThisWorkbook.SaveAs "c:\xyz\" & Range("C5") & "\" & Range("C5") & ".xls"
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Ordner erstellen, Datei speichern
05.12.2006 11:31:02
lueckii
Hallo Marco!

Private Sub CommandButton1_Click()
Dim Name as string
Name = Thisworkbook.Sheets("deine Tabelle").Range("C5").Value
If Dir("c:\xyz\" & Name, vbDirectory) = "" Then MkDir "c:\xyz\" & Name
ThisWorkbook.SaveAs "c:\xyz\" & Name & "\" & Name & ".xls"
End Sub

Gruß Martin
Anzeige
AW: Ordner erstellen, Datei speichern
05.12.2006 11:39:18
Timo
Hallo,

Private Sub CommandButton1_Click()
Dim Datei As String, Pfad As String
Pfad = "c:\xyz\" ' oder Pfad=Range ("c4")
Datei = Pfad & Range("c5")
' auch möglich
'Datei = ThisWorkbook.Name     'Name des aktuellen Files
'Datei = ThisWorkbook.Path     'Pfad
'Datei = ThisWorkbook.FullName 'beides zusammen
If Dir(Pfad, vbDirectory) = "" Then MkDir Pfad
ThisWorkbook.SaveAs Datei
End Sub

Gruß Timo
Anzeige
An alle
05.12.2006 11:52:56
mtremer
Hallo fleissige Forumbesucher,
ich danke Euch allen.
Durch Eure Antworten habe ich mein Problem gelöst.
Viele Grüße
Marco
;

Forumthreads zu verwandten Themen

Ausgelesene Exceldatei speichern!
Botti

Hallo,
folgendes Problem:
Ich lese mit Hilfe eines Makro von der Datei A die Datei B aus... Dabei untersucht das Makro ob ein bestimmtes Sheet in einer Reihe von Sheets an einer bestimmten Stelle ist und verschiebt es für den negativen Fall an die richtige Stelle/Position. Soweit so gut...
20.08.2008 18:28:01
Thread-ID: 1003275
2 Beiträge
VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Excel-Sheet als text-Datei speichern
Florian

Hallo!
Ich habe nur eun kleines Problem:
Ich lasse per Makro ein Excel-Blatt als TXT-Datei abspeichern!
Das ist der Code hierfür:
Sub DB_Kündigung_erstellen() Sheets("Kündigung").Select Rows("1:2").Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.DisplayAlert...
05.09.2008 09:57:00
Thread-ID: 1007593
5 Beiträge
Datei speichern
Wolfgang

Hallo Excelfreunde
Ich habe mir einen Wochenberichtszettel zusammengestelt
der einen commandbutton enthält
nun möchte ich per klick erreichen
das die Datei gespeichert wird und zwar
in c:/eigene Dateien/Wochenzettel
dateiname ergibt sich in meinen Fall aus Zelle A7
z...
24.09.2008 17:54:00
Thread-ID: 1012138
3 Beiträge
Eingebettete Powerpoint datei speichern
Dirk

Hallo Forum,
ich habe eine excel tabelle mit einer eingebetteten Powerpoint presentation. Diese mochte ich gerne per VBA auf die Fesplatte kopieren, ohne dazu Powerpoint oeffnen zu muessen.
Ist das moeglich und falls ja, koennt Ihr mir eine Loesung zeigen?
Danke im Voraus!
Dirk...
12.10.2008 22:13:22
Thread-ID: 1015914
2 Beiträge
Einzelne Registerkarte in neue Datei speichern
Herbert

Hallo Experten,
ich möchte per Button eine einzelne Registerkarte meiner Excel-Datei im Format: "Text (Tabstopp-getrennt)(*.txt)" abspeichern. Die neue Datei soll im Ordner C:\temp erscheinen. Der Name der neuen Datei ist eigentlich egal.
Wäre für jeden Vorschlag dankbar.
Danke und...
14.10.2008 11:46:43
Thread-ID: 1016279
5 Beiträge
Wert um eins erhöhen, dann die Datei speichern ?
Selma

Hallo Leute,
in der aktive Datei möchte ich ein Makro ausführen, der folgendes macht:
1. MsgBox "Bitte den Startwert eintragen" anzeigen.
Der eingegebene Wert soll in Zelle C4 eingetragen werden und die Datei in selben Pfad wie die aktive Datei mit Namen "Berechnungsblatt_UNI_(Wert...
22.10.2008 17:23:24
Thread-ID: 1018424
6 Beiträge
Ab aktiver Datei speichern und VBA-Code löschen?
Selma

Hallo zusammen,
ich möchte nur das Arbeitsblatt "Vorlage" über das Dialog "Speichern unter" speichern. Als Dateiname soll Name der aktive Datei_ + Weitergabe.xls vorgeschlagen werden.
Beispiel für Dateiname: Berechnungsblatt_2008_Weitergabe.xls
In der gespeicherte Datei sollen erstm...
25.10.2008 11:15:00
Thread-ID: 1019168
5 Beiträge
Datei Speichern - Name aus 3 Zellen
Michael

Hallo,
ich speichere eine Datei unter einem Namen ab, welcher in Zelle B3 des Blattes steht.
name = "S:\Temp\LAUF_P" & ActiveSheet.Range("B3").Value & ".txt"
nun möchte ich aber noch die Zellen A7 und B7 mit einbinden, so dass der name letztlich so aussieht:
LAUF_PB3/A7/...
28.11.2008 11:22:21
Thread-ID: 1028629
3 Beiträge
Tabelle in neue Datei speichern
Robert

Hallo,
kann mir bitte jemand helfen...bin am verzweifeln ;-)
Ein Tabellenblatt der geöffneten Datei sollte in eine neue Datei gespeichert werden - und das mit dem Zellinhalt eines anderen Tabellenblattes derselben Datei als Dateiname. Sollte eine Datei mit demselben Namen bereits besteh...
26.12.2008 10:18:00
Thread-ID: 1035274
4 Beiträge
Anzeige
Excel Daten in einer Datei speichern
rwrw

hi,
weiss einer wie man Excel Daten in einer Datei abspeichern und wieder reinladen kann ?
Beispiel:
B2 bis B13 und B2 bis BA2 die Daten die in den Zellen stehen sollen per Button abgespeichert werden.
Beim Öffnen von der Excel-Datei sollen die abgespeicherten Daten wieder in de...
07.01.2009 17:33:00
Thread-ID: 1037636
20 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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