Wie verändere ich den Namen der erzeugten Datei auf Variable?

Question

Ich habe 2 Excel-Dateien. Einer ist so eingestellt, dass er nur liest und Daten von der Datenbank sammelt. Der andere Zweck der Excel-Datei besteht darin, die erforderlichen Spalten zu kopieren. Der Code läuft und ich habe keine Probleme damit. Der Name der generierten Excel-Datei ändert sich jedoch immer am Anfang eines jeden Monats. Damit der Code funktioniert, muss ich den Quellennamen jedes Mal im Code ändern. Hat jemand eine Idee, wie man dieses Problem beheben kann?

Hier ist, wie ich die Arbeitsmappe und Arbeitsblatt Variablen deklarieren:

'set variables for wkb and ws to copy 
Dim wbSource As Workbook 
Set wbSource = Workbooks("UK2_2016_06.xlsx") 

Dim wsCopy As Worksheet 
Set wsCopy = wbSource.Worksheets("UK2_2016_06") 'change name as needed 

Answer 1

Ist das, was Sie wollen?

Dim mnth As Long, Dt As Long 

mnth = Month(Date) 
Dt = Day(Date) 

'~~> If 06 is month then 
Set wsCopy = wbSource.Worksheets("UK2_" & Year(Date) & "_" & Format(mnth, "00")) 

'~~> If 06 is date then 
Set wsCopy = wbSource.Worksheets("UK2_" & Year(Date) & "_" & Format(Dt, "00")) 

Ebenso für die Arbeitsmappe :)