Thema Datum  Von Nutzer Rating
Antwort
Rot Platzhalter in Dateiname für Quelldatei
13.12.2021 11:39:56 Maja
NotSolved
13.12.2021 11:43:26 Gast75972
NotSolved
13.12.2021 12:17:00 volti
Solved
13.12.2021 13:47:18 Maja
NotSolved

Ansicht des Beitrags:
Von:
Maja
Datum:
13.12.2021 11:39:56
Views:
120
Rating: Antwort:
  Ja
Thema:
Platzhalter in Dateiname für Quelldatei

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

------

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Platzhalter in Dateiname für Quelldatei
13.12.2021 11:39:56 Maja
NotSolved
13.12.2021 11:43:26 Gast75972
NotSolved
13.12.2021 12:17:00 volti
Solved
13.12.2021 13:47:18 Maja
NotSolved