Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1628to1632
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
Inhaltsverzeichnis

Excel-Datei kopieren mit Name aus Liste

Excel-Datei kopieren mit Name aus Liste
20.06.2018 11:28:25
Jakob
Hallo,
Ich möchte eine Excel-Datei vervielfältigen. Die erstellen Kopien sollten den Namen aus einer Liste in Tabelle1 A1:A20 nehmen.
Bisher bin ich so weit gekommen. Was mir fehlt ist die Schleife, damit es eben diese Code x-mal ausführt (Bsp. 20-mal und dafür die Dateinamen aus A1:A20 nimmt.
Kann mir jemand diesen Teil bitte ergänzen?
Danke!
LG, Jakob
Sub Datei_kopieren()
Dim fs As Object, strFile As String
Set fs = CreateObject("Scripting.FileSystemObject")
strFile = Dir("C:\Users\weiss\Desktop\Excel\CopyFile.xlsm")
If strFile  "" Then
fs.copyFile "C:\Users\weiss\Desktop\Excel\CopyFile.xlsm", _
"C:\Users\weiss\Desktop\Excel\CopyFile" & "_" & Sheets("test").Cells(1, 1) & ".xlsm" _
End If
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel-Datei kopieren mit Name aus Liste
20.06.2018 11:56:50
Jakob
Ich habs jetzt doch noch selbst geschafft.
Hab ich da was vergessen, oder passt der Code so?
Sub Datei_kopieren()
Dim fs As Object, strFile As String
Dim i As Integer
For i = 1 To 3
Set fs = CreateObject("Scripting.FileSystemObject")
strFile = Dir("C:\Users\weiss\Desktop\Excel\CopyFile.xlsm")
If strFile  "" Then
fs.copyFile "C:\Users\weiss\Desktop\Excel\CopyFile.xlsm", _
"C:\Users\weiss\Desktop\Excel\CopyFile" & "_" & Sheets("test").Cells(i, 1) & ".xlsm" _
End If
Next i
End Sub

AW: Excel-Datei kopieren mit Name aus Liste
20.06.2018 12:01:39
UweD
Hallo
so...
Modul1
Option Explicit 
 
Sub Datei_kopieren() 
    Dim fs As Object, intLR As Integer, i As Integer 
    Dim strPfad As String, strFile As String, strExt As String 
     
    Set fs = CreateObject("Scripting.FileSystemObject") 
     
    strPfad = "C:\Users\weiss\Desktop\Excel\" 
    strFile = "CopyFile" 
    strExt = ".xlsm" 
     
    With Sheets("test") 
     
        intLR = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte 
     
        If Dir(strPfad & strFile & strExt) <> "" Then 
            For i = 1 To intLR 
                If .Cells(i, 1) <> "" Then 
                    fs.copyFile strPfad & strFile & strExt, _
                        strPfad & strFile & "_" & .Cells(i, 1) & strExt 
                End If 
            Next 
        End If 
    End With 
End Sub 
 

LG UweD
Anzeige
AW: Excel-Datei kopieren mit Name aus Liste
20.06.2018 13:10:51
Jakob
Danke @UweD! So sieht das deutlich aufgeräumter und besser aus!
LG, Jakob
Prima! Danke für die Rückmeldung. owT
20.06.2018 13:24:39
UweD

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige