Close in einer Schelife??

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von alchimist.

    Close in einer Schelife??

    HuHu, Leute
    :D :D :D :D
    So machen wir's schnell und schmerzlos ...
    Ich will in der Schleife alle geöffneten Tabellen
    schließen außer die HauptTabelle (test lücken.xls)...

    Kann mir jeamdn weiter helfen?

    Quellcode

    1. Dim FileName(1 To 2000) As String
    2. Dim MaxTab As Integer
    3. Sub Main()
    4. Call Msg
    5. Call Scopy
    6. End Sub
    9. Sub Scopy()
    10. ChDir "D:\*****\******\"
    11. '
    12. For I = 1 To MaxTab
    13. Workbooks.Open FileName:=FileName(I)
    14. Application.CutCopyMode = False
    15. Range("A5:A5").Select
    16. Selection.Value = ActiveWorkbook.Name
    17. Range("A5").Select
    18. Text1 = ActiveCell.Value
    19. Range("B5:L12").Select
    20. Selection.Copy
    21. Windows("test lücken.xls").Activate
    22. Zeile = (5 + (I - 1) * 8)
    23. Range(Cells(Zeile, 2), Cells(Zeile, 12)).Select
    24. ActiveSheet.Paste
    25. Range(Cells(Zeile, 1), Cells(Zeile, 1)).Select
    26. ActiveCell.Value = Text1
    27. Next I
    28. End Sub
    29. Sub Msg()
    30. Set fs = Application.FileSearch
    31. With fs
    32. .LookIn = "D:\****\*****\"
    33. .FileName = "*.xls"
    34. MaxTab = fs.FoundFiles.Count
    35. If .Execute(SortBy:=msoSortByFileName) > 0 Then
    36. For I = 1 To .FoundFiles.Count
    37. ' MsgBox .FoundFiles(I)
    38. FileName(I) = fs.FoundFiles(I)
    39. Next I
    40. Else
    41. MsgBox "There were no files found."
    42. End If
    43. End With
    44. End Sub


    \\\\\\\\\\\\\ EDIT\\\\\\\\\\\\\\\\\\\

    HAT SICH GEKLÄRT!

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Kennyger“ ()

    Hallo,

    keinen Plan, was dein Quelltext mit der Frage zu tun hat, eine mögliche Antwort könnte so aussehen:

    Visual Basic-Quellcode

    1. Dim oWbk As Workbook
    2. For Each oWbk In Workbooks
    3. If Not oWbk.Name = "Mappe1" Then oWbk.Close
    4. Next oWbk


    Gruß Markus

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