ich möchte im VBA eine Datei aus einer Vorlage generieren. Das funktioniert soweit. Wie kann ich nun diese geöffnete Datei, welche einen automatischen Dateinamen erhält (Vorlage+"1") umbenennen?
Private Sub btn_OPL_neu_Click()
Dim strDateiname As String
Dim myShell As Object
Dim StrPfad As String
Dim xlsApp As Excel.Application
Dim xlsDoc As Excel.Workbooks
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
StrPfad = Sheets("Datenfelder").Range("A12") & "\"
strDateiname = "OPL Vorlage" & ".xltx"
xlsApp.Workbooks.Add (Chr(34) & StrPfad & strDateiname & Chr(34))
'hier jetzt Datei umbenennen
End Sub
Grüße Drain