Dateien erstellen / Werte einfügen
08.06.2004 14:44:12
Jochen
ich habe
1. eine xls-Datei, die Daten enthält und
2. eine xls-Datei die als Vorlage dient.
Ziel sind etwa 600 xls-Dateien (auf Basis der Vorlage) zu erstellen und diese mit Daten aus der Datendatei zu füllen. Je Zeile in der Datendatei entsteht eine neue Datei. Der Name der Datei ist in Spalte B enthalten, die Werte im Rest der jeweilgen Zeile.
Die Zieldateien enthalten jeweils zwei Tabellen (Istwerte und Prognose). Die Tabelle Istwerte sollt mit etwa 12 Werten gefüllt werden.
Meine Vorstellung ist bisher
1. Je Zeile die Erstellung einer Datei auf Basis der Vorlage "Personalkosten.xls" mit einem Namen aus meiner Datendatei ("NameKostenstelle" in Spalte B).
2. Füllen der neuen Tabelle in Zeile C mit bestimmten Daten aus der jeweiligen Zeile der Basisdaten
3. Abspeichern ;-)
und das ganze in einer Schleife, die sich in Spalte B "nach unten bewegt"...
Vielleicht gibt es hier Experten, denen so etwas leicht fällt.
Der Anfang ist schon gmacht, das kleine Makro schreibt schon 5 verschiedene Dateien nach Vorlage in einen Ordner. ;-)
Es geht bestimmt auch viel eleganter!
Ich freue mich schon auf eine Lösung
Jochen
Sub Viele_Dateien_aus_Vorlage()
Dim Quellpfad As String
Dim Zielpfad As String
Dim AWbk As Workbook 'Aktives Workbook
Dim Dateiname As String
Dim i As Integer
Quellpfad = "C:\Eigene Dateien\Dateien_erstellen\Vorlagen\" ' Hier liegt die Vorlage
Zielpfad = "C:\Eigene Dateien\Dateien_erstellen\ErstellteDateien\" 'Hierhin wird gesachrieben
Workbooks.Add Template:=Quellpfad & "Personalkosten" ' Das ist die Vorlage
For i = 1 To 5
Dateiname = ThisWorkbook.Worksheets(1).Range("B1").Value ' Hier sollte Spalte B jeweils ein Feld tiefer abgefragt werden
ActiveWorkbook.SaveAs FileName:=Zielpfad & Dateiname & i 'Abspeichern mit dem Wert in Feld B1 und einer fortlaufenden Zahl
Next i
End Sub