Eine Datei mehrfach anders benannt kopieren

[MichaelH]

Hallo liebes Forum!

Hoffe es geht euch allen gut!

Ich habe eine Datei dateiX.html in einem Ordner

Von dieser Datei möchte ich 1369 individuelle Kopien in diesem (oder einem anderen ) Ordner erzeugen und jeweils das X ersetzen

Die hinzuzufügenden Dateinamen stehen dabei in Spalte A:

ABC50A01
ABC50A02

...

ABC50A50

ABC50B01

...

ABC50B50

ABC50C01

usw.



...so das die Dateinamen dann so aussehen:

dateiABC50A01.html

dateiABC50A02.html
...
dateiABC50A50.html
dateiABC50B01.html
...
dateiABC50B50.html
dateiABC50C01.html
usw.

Hat eine(r) von euch eine Idee dazu?

Danke und lieben Gruss

Michael

[00202]

Hallo,  

hier jetzt nur bis "dateiABC50Z50.html" (1300):  

Code:

Option Explicit
Public Sub Main()
    Dim objFSO As Object
    Dim lngTMP As Long
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    For lngTMP = 1 To 1300
        objFSO.CopyFile "C:\Temp\HTML\dateiX.html", "C:\Temp\HTML_Kopie\" & Replace("dateiX.html", "X.html", "") & Tabelle1.Cells(lngTMP, 1) & ".html"
    Next lngTMP
    Set objFSO = Nothing
End Sub

Du musst also die Schleife, den Quellpfad und den Zielpfad anpassen.

[MichaelH]

Hi Case!

Vielen Dank für die schnelle Umsetzung!

Klappt grundsätzlich, nur Generierter Dateiname und Zielpfad klappt (bei mir) noch nicht so ganz.

Zielpfad

Das ist doch der Quellpfad: C:\Temp\HTML\dateiX.html, da liegt die zu kopierende Datei richtig?

Und das ist doch der Zielpfad: C:\Temp\HTML_Kopie\, da werden die kopierten Dateien reingeschrieben richtig?

Dateiname

Am Anfang von jedem Dateinamen steht copy, also statt

dateiABC50A01.html

copydateiABC50A01.html

Kann man das copy irgendwie vermeiden?

Danke und Gruss

Michael

[00202]

Hallo,

wie heißt denn deine Datei? "copydateiX.html"? Oder wo kommt das copy her?

[MichaelH]

Hi Case!

Also Quell- und Zielpfad sind richtig?

Ich vermute mal das vorgestellte "copy" kommt daher, weil ich es leider nicht geschafft habe Deinen Code in ein nagelneue Datei einzufügen.

Dann habe ich eine andere Makrodatei überschrieben und das ist das Ergebnis.

Könntest Du mir bitte Deinen Code in einer Exceldatei schicken, dann finde ich eventuell den Fehler?

Das wäre super

Danke

Michael

[00202]

Hallo,  

hier meine Beispieldatei:
[attachment=39972]

Da sind jetzt beide Codes drin. Für den Fall, dass die Datei "dateiX.html" oder "copydateiX.html" heisst.

Bei der Auswahl der Namen in Spalte A arbeite ich mit dem Codenamen der Tabelle - Tabelle1.Cells(lngTMP, 1).

[MichaelH]

Hi Case!

Alles prima jetzt!

Vielen herzlichen Dank!

Gruss

Michael

[snb]

Code:

Sub M_snb()
  sn=cells(1).currentregion.columns(1)

  for j=1 to Ubound(sn)
    Filecopy "C:\Temp\HTML\dateiX.html",replace("C:\Temp\HTML\dateiX.html","X",sn(j,1))
  Next
End Sub

[MichaelH]

Hi snb!

Wenn ich Deinen Code so übernehme, kommt die Meldung:

Fehler beim Kompilieren:

Variable nicht definiert

Gruss

Michael

[schauan]

Hallöchen,

das sind Grundlagen beim Programmieren.
Es gibt die Einstellung, dass man Variablen deklarieren muss - "Option Explicit" erscheint damit automatisch in jedem neuen Codemodul.
Im Code sind 2 Variablen, die dementsprechend deklariert werden müssen. sn ist ein Range und für j kann man Long nehmen.

Dim sn as Range, j as Long