Hallo,
ich habe folgendes Problem. Ich möchte gerne alle Arbeitsmappen eines Ordner öffnen ein neues Arbeitsblatt einfügen mit dem neuem Monat und wieder schliessen.
Den Code habe ich hier.
Private Sub CommandButton8_Click()
Dim WB As Workbook
Dim strFName As String
Dim Datei As String
Dim Arbeitsmappe As String
Dim PFAD As String
PFAD = "C:\Users\sde\Desktop\TelefonService Test\"
Datei = Dir(PFAD & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While Datei <> ""
Application.Workbooks.Open Datei
Worksheets.Add After:=Worksheets(Worksheets.Count)
With Worksheets(Worksheets.Count)
.Name = Format(Date, "mmmm" & " " & "yyyy")
End With
ActiveWorkbook.Close True
Datei = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Mein Problem er erkennt zwar was im Ordner ist aber er schafft sie nicht zu öffnen. Er sagt mir ständig das er die Datei nicht findet und er sie nicht öffnen kann.
Danke euch schon einmal.
|