|
Hallo!! Ich möchte folgendes erreichen:
aus einem bestimmten Ordner soll einen Quelldatei geöffnet werden und daraus ein Worksheet kopiert werden. Der Anfang des Names der Quelldatei ändert sich je nach Monat.
Oktober_Customer Projects_China.xlsx
im nächsten Monat
November_Customer Projects_China.xlsx
usw...
Beim öffnen der Quelldatei kann ich ein Stern als Platzhalter nutzen . Bei der Definition der Datei als Variable hat ein * nicht funktioniert.
Wie müsste ich diese Zeile schreiben, damit es egal ist in welchem Monat ich die Variable QuellWorkbook1 definiere?
der Code (Teil) der funktioniert:
---------
Dim ZielWorkbook As Workbook
Dim QuellWorkbook1 As Workbook
Dim QuellWorksheet1 As Worksheet
Dim ZielWorksheet As Worksheet
Set ZielWorkbook = Workbooks("Projektlisten 2_0")
'Die Datei Oktober_Customer Projects_China.xlsx ansprechen und rüberkopieren, Sheet in Zieldatei umbenennen, Quelldatei ohne speichern schließen
Workbooks.Open "C:\PM\China\*Customer Projects_China.xlsx"
Set QuellWorkbook1 = Workbooks("Oktober_Customer Projects_China.xlsx")
For Each QuellWorksheet1 In QuellWorkbook1.Sheets
QuellWorksheet1.Copy After:=ZielWorkbook.Sheets(ZielWorkbook.Sheets.Count)
Next
Sheets(2).Name = "China"
QuellWorkbook1.Close savechanges:=False
------
|