Hallo Leute,
habe ein mehr oder weniger kleines Problem mit dem .Close Event in diesem Fall.
Es zeigt mir einen Laufzeitfehler '-2147352571 an mit der Meldung " Die angegebene Dimension ist ungültig für den Diagrammtyp".
Meine Frage wieso funktioniert das .Close Statement nicht so wie es aus kommentiert da steht (Zeile 45), zumal das .open Statement (davor) mit sfile dahinter normal funktioniert.
habe ein mehr oder weniger kleines Problem mit dem .Close Event in diesem Fall.
Es zeigt mir einen Laufzeitfehler '-2147352571 an mit der Meldung " Die angegebene Dimension ist ungültig für den Diagrammtyp".
Meine Frage wieso funktioniert das .Close Statement nicht so wie es aus kommentiert da steht (Zeile 45), zumal das .open Statement (davor) mit sfile dahinter normal funktioniert.
Quellcode
- Option Explicit
- Sub lese_onepager()
- Dim wb_anfang As Workbook
- Dim ws_anfang As Worksheet
- Dim x As Long
- Dim sfile As Object
- Dim folder As folder
- Dim sfolderpath As folder
- Dim ordner_pfad As String
- Dim bFolderExists As Boolean
- Set wb_anfang = ThisWorkbook
- Set ws_anfang = wb_anfang.Worksheets("Hilfstabelle")
- ordner_pfad = "hiersinddieordner"
- bFolderExists = oFSO.FolderExists(ordner_pfad)
- Set sfolderpath = oFSO.GetFolder(ordner_pfad)
- 'Set folder = oFSO.GetFolder(sfolderpath)
- 'Set datei_name = oFSO.GetFileName
- 'Set erkenne_datei = oFSO.GetFile
- For x = 50 To 70
- If Not (IsEmpty(ws_anfang.Cells(x, 2))) = True Then
- 'ws_anfang.Cells(x, 2).value
- If bFolderExists = True Then
- MsgBox ("Der Ausleseordner ist vorhanden, Ordner und Dateien werden nun ausgelesen.")
- 'ab hier probleme
- For Each folder In sfolderpath.SubFolders
- If folder.name Like ws_anfang.Cells(x, 2).value & "*" Then
- For Each sfile In folder.Files
- If sfile.name Like ws_anfang.Cells(x, 2).value & "*" & "Blabla" & "*" & ".xls*" Then
- Workbooks.Open sfile
- Worksheets("test").Copy before:=wb_anfang.Worksheets("Sonstiges")
- Worksheets("test").name = "test" & " " & ws_anfang.Cells(x, 2).value
- 'Workbooks(sfile).Close
- End If
- 'for each erkenne_datei in folder
- 'if datei_name = ws_anfang.Cells(x, 2).value & "*" then
- 'erkenne_datei.open
- 'tabelle("test).copy ws_anfang
- Next
- End If
- Next
- End If
- End If
- Next x
- End Sub