.close gibt mir dimensionsfehler wieso?

  • Excel

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Mono.

    .close gibt mir dimensionsfehler wieso?

    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. ?(

    Quellcode

    1. Option Explicit
    3. Sub lese_onepager()
    5. Dim wb_anfang As Workbook
    6. Dim ws_anfang As Worksheet
    8. Dim x As Long
    10. Dim sfile As Object
    11. Dim folder As folder
    12. Dim sfolderpath As folder
    13. Dim ordner_pfad As String
    14. Dim bFolderExists As Boolean
    16. Set wb_anfang = ThisWorkbook
    17. Set ws_anfang = wb_anfang.Worksheets("Hilfstabelle")
    19. ordner_pfad = "hiersinddieordner"
    20. bFolderExists = oFSO.FolderExists(ordner_pfad)
    21. Set sfolderpath = oFSO.GetFolder(ordner_pfad)
    22. 'Set folder = oFSO.GetFolder(sfolderpath)
    23. 'Set datei_name = oFSO.GetFileName
    24. 'Set erkenne_datei = oFSO.GetFile
    26. For x = 50 To 70
    28. If Not (IsEmpty(ws_anfang.Cells(x, 2))) = True Then
    29. 'ws_anfang.Cells(x, 2).value
    30. If bFolderExists = True Then
    32. MsgBox ("Der Ausleseordner ist vorhanden, Ordner und Dateien werden nun ausgelesen.")
    33. 'ab hier probleme
    34. For Each folder In sfolderpath.SubFolders
    36. If folder.name Like ws_anfang.Cells(x, 2).value & "*" Then
    38. For Each sfile In folder.Files
    40. If sfile.name Like ws_anfang.Cells(x, 2).value & "*" & "Blabla" & "*" & ".xls*" Then
    42. Workbooks.Open sfile
    43. Worksheets("test").Copy before:=wb_anfang.Worksheets("Sonstiges")
    44. Worksheets("test").name = "test" & " " & ws_anfang.Cells(x, 2).value
    45. 'Workbooks(sfile).Close
    47. End If
    49. 'for each erkenne_datei in folder
    50. 'if datei_name = ws_anfang.Cells(x, 2).value & "*" then
    51. 'erkenne_datei.open
    52. 'tabelle("test).copy ws_anfang
    54. Next
    56. End If
    58. Next
    60. End If
    62. End If
    64. Next x
    66. End Sub

    Der Index einer Collection ist sozusagen seine Position. Das 1. Workbook hat den Index 1. (Üblicherweise fangen Array und Collection bei 0 an. Aber es ist halt VBA)

    Und die Open Methode erwartet halt den vollen Pfad, sonst könnte man das Workbook ja nicht eindeutig finden.
    Aber die Workbooks collection enthält auch Workbooks die noch nicht gespeichert sind. Diese haben dann keinen Pfad sondern das heißt dann zB einfach Book1 oder Mappe1.
    Das ist meine Signatur und sie wird wunderbar sein!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Mono“ ()

    Sei vorsichtig beim Index. Wenn du ein weiteres Workbook offen hast, dann ist der Index ggf. nicht mehr korrekt.

    Wenn du es vorher öffnest ist die beste Variante, dass geöffnete Workbook Objekt selber zu verwenden:

    Visual Basic-Quellcode

    1. ​
    2. dim wb as Workbook
    3. set wb = Workbooks.Open sfile
    4. 'tu was damit
    5. wb.Close XlSaveAction.xlDoNotSaveChanges
    Das ist meine Signatur und sie wird wunderbar sein!

    @Mono

    stimmt, das hatte ich nicht bedacht wobei das im Regelfall funktionieren sollte.
    Dennoch sollte da was zur Sicherheit geändert werden, jedoch funktioniert das nicht ganz wie du es verfasst hast.

    Er meckert in der set Zeile, da sfile nicht einfach so daneben stehen darf. Hierzu eine Alternativlösung?

    @Mono

    hab die Lösung für das Problem und zwar mit der Workbooks.Count Methode, da wird automatisch immer das zuletzt geöffnete geschlossen und in dem Fall wird ja sozusagen immer ein neues Workbook zum rauskopieren gesucht/geöffnet und somit passt das dann.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dani02“ ()

Facebook
Telefonspende