Ordner & Inhalt (VBA) Kopieren und umbenennen

[Rabe]

Hi Frank,

Die Dateien werden im gewünschten Pfad jedoch ohne Ordner erstellt.
Es fehlt also der Ordner in dem die Dateien erzeugt werden sollten.

fehlt an den Ordner-Pfaden am Ende vielleicht noch ein "\"?

PS: Es ist immer gut, wenn in einer Musterdatei Überschriften über den Spalten stehen.

[Frank BST]

Boa schwere Geburt
Also alles wie gehabt

Erstmal hab ich die Tabelle ordentlicher erstellt:
   
Eingaben in roten Feldern müssen gesetzt werden.
Dadurch ergeben sich die grünen Felder.
Nun unter anderem mit den Backslash'es am ende des Pfades gehadert.
Ohne ging es nicht (richtig). :@
Dann Makro wie folgt angepasst.

Code:

Option Explicit
Sub RPP()
Dim Verz As String, cnt As Long
Verz = Range("B7") 'neuer Pfad inklusive neu erstelltem Ordner
If Dir(Verz, vbDirectory) = "" Then MkDir Verz
For cnt = 12 To Cells(Rows.Count, 1).End(xlUp).Row
'Die Zahl steht für den Beginn in entsprechender Zeile
  FileCopy Range("B4") & Range("A" & cnt), Verz & Range("B" & cnt)
'Dateiursprungs Pfad
Next
End Sub

Nun klappt es

Vielen Dank Ralf für deine Geduld und den Link
Nun kopiert das Makro einen Ordner inklusive beinhalteten Dateien und benennt diese entsprechend meiner Vorgaben um :05:

[Rabe]

Hi Frank,

so gefällt mir das:

• Datei ist übersichtlich
  
• Makro ist ordentlich kommentiert
  

[Rabe]

Hi,

was mir gerade noch einfällt, beim Anpassen auf meine hiesigen Gegebenheiten:

Kann das Makro so geändert werden, daß einfach eine komplette Verzeichnisstruktur kopiert wird, also ein Ordner inkl. aller darin befindlicher Unter-Verzeichnisse und Dateien?
Evtl. auch mit dieser Ergänzung der Dateinamen?

[RPP63]

Hi Ralf!
Mir ist natürlich klar, worauf Du hinaus willst.
Aber meinst Du nicht, dass Du den TE damit eher verwirren würdest?
Ich habe ganz bewusst die einfache Variante gewählt.
(zumal der Flaschenhals ja eher die Geschwindigkeit der Festplatte ist)
Aber egal: der TE soll entscheiden.  :100:

NB: Glückwunsch zum 3000sten!

Gruß Ralf

[Rabe]

Hi Ralf,

Mir ist natürlich klar, worauf Du hinaus willst.
Aber meinst Du nicht, dass Du den TE damit eher verwirren würdest?
[...]
NB: Glückwunsch zum 3000sten!

ja, klar, das hat nichts mehr mit der ursprünglichen Frage des TE zu tun, es ist eine Erweiterung aus den Gegebenheiten bei mir in der Firma, daß ich für kommende Zertifizierungen einen ganzen Baum als Vorlage kopiert benötigen könnte.

Danke, ist mir gar nicht aufgefallen.

[schauan]

Hallo Ralf,

nur für Dich
Du könntest XCOPY benutzen, im Prinzip
Shell "XCOPY D:\TEST\*.* D:\VORLAGE\*.* /E"

Schaue dazu auch in einem cmd-Fenster in die Hilfe zu XCOPY ( XCOPY /? ), speziell die Optionen /E und /U.

[Rabe]

Hi André,

Schaue dazu auch in einem cmd-Fenster in die Hilfe zu XCOPY ( XCOPY /? ), speziell die Optionen /E und /U.

danke, ja, schau ich mir an.

[Frank BST]

Guten Morgen und guten Start in die neue Woche.

Ich weiß natürlich nicht genau worauf ihr hinaus wollt.
Aber ihr habt mich neugierig gemacht.

Bisher hab ich den Ordner immer manuell per Copy und Past kopiert und den Ordner sowie die Dateinamen umbenannt.
Das Problem ist jedoch die Firmenvorgabe.
Leider ist der Aufbau der Dateinamen nicht einheitlich.
Die meisten Bezeichnungen beginnen mit der Maschinen Nr.
Leider gibt es auch Ausnahmen. 
Dafür habe ich die Excel Oberfläche benutzt um die 'Namen' entsprechend zu verdrehen.

Also lasst hören.

Dann hab ich da noch ne weitere Frage.
Die Makro Aufzeichnung funktioniert ja wohl leider nicht außerhalb von Excel.
In diesen erzeugten Ordner werden weitere Dateien abgelegt.
unter anderem ein BarCode der Maschinennummer.
Wie nutze ich nun mit dem selben Excel Makro das BarCode Tool?
Ich nutze die Freeware 'ByteScout BarCode Generator' dessen Verknüpfung mit diesem Namen auf meinem Desktop liegt.
Es soll also lediglich die Maschinen Nummer aus Feld D2 in das Tool geworfen werden.
Daraus einen 'QR Code' generieren lassen.
Das Ergebnis als*.png (Bild) in selbigen Ordner abspeichern zu lassen. 


Gruß
Frank

[Frank BST]

Hi nochmal,

nicht das ich mich nicht bestens beholfen fühle,
aber einer von euch beiden muss das Forum wechseln.
Wenn mich nicht eh schon die dutzenden möglichen Lösungswege verwirren.

Zwei Ralfs schaffen es auf jeden Fall.
Erst recht wenn sie hier auch noch ne Unterhaltung starten.  

Glückwunsch auch von mir auch wenn das jetzt vielleicht nicht ganz ein selbstlos klingt. :05:

Gruß
Frank