Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
260to264
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
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateien per Macro kopieren

Dateien per Macro kopieren
28.05.2003 11:21:49
Jan Westphal
Moin Moin an alle,

ich habe in 6 Ordnern die den Namen des jeweils gültigen Monats haben, je 1 Datei die ich gerne in den neuen Monatsordner kopieren möchte. Bisher lege ich manuell einen Ordner an und kopiere dann die Datei dort hinein.
bsp. Ordner Mai03, Datei 1

Die Datei 1 soll nun in einen Ordner " juni03 " kopiert werden. Kennt jemand eine Lösung wie ich automatisch einen ordner mit diesem Namen erstelle und dann die Datei dort hinein kopieren
kann.

Dank im voraus jan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dateien per Macro kopieren
28.05.2003 13:25:11
Mike E.

Hallo Jan,

hierzu hat Michael (?) einen Code zur Verfügung gestellt (neuen Ordner anlegen):

Dim OrdnerName As String
Dim laufw As String

neuOrd = txtOrd.Value
neuUntOrd = txtUntOrd.Value
laufw = comboLaufw.Value

'Ordner wird erstellt
Dim FsyObjekt As Object, Ordner As String
Ordner = "" & "C:\" & OrdnerName 'anstelle von "C:\" ginge auch laufw
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
If Not FsyObjekt.FolderExists(Ordner) Then FsyObjekt.CreateFolder (Ordner)

Sodann würde ich die "Mai"-Datei per Makro öffnen
(Open Filname:=...)
und als "Juni"-Datei speichern
(SaveAs FileName:=...)

Viele Grüße
Mike

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige