Vorlage anwenden
02.08.2003 21:22:48
Rookie
Lt. Script soll das aktive Dokument (bereits aus der Vorlage "Text_Vorlage.xlt" generiert) unter dem festgelegten Pfad sowie dem Dateinamen gespeichert werden, der in Zelle Z5 im Tabellenblatt "Suchen" steht und dann geschlossen werden. Danach soll autom. ein neues Dokument unter der Vorlage "Test_Vorlage.xlt" generiert/geöffnet werden.
Problem: Egal was ich hier am Code änderte: Das Script speichert das Dokument zwar, läuft jedoch nur bis zum "Active.Workbook.Close". Ein neues Dokument wird
auf Grund der Vorlage nicht generiert. Und wie ich weiß, wird eine Vorlage nicht durch Workbook.Open nicht als solche angewendet, sondern nur als xlt geöffnet.
Wo liegt mein Fehler?
Kann mir jemand behilflich sein?
Vielen Dank im Voraus.
Rookie
Hier der Code:
Sub Speichern()
Dim P As String, DatName As String, vTemplate As Variant
P = "C:\Test\"
DatName = Sheets("Suchen").Range("Z5")
ActiveWorkbook.SaveAs Filename:=P & DatName
ActiveWorkbook.Close SaveChanges:=True
Workbooks.Open
vTemplate = "C:\Test\Test_Vorlage.xlt"
Workbooks.Add vTemplate
End Sub