Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige