Exel- Daten aus mehreren Exeldatein zu einer zusammenzufügen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Exel- Daten aus mehreren Exeldatein zu einer zusammenzufügen

    Halli Hallo,

    ich habe folgendes Problem.
    Ich habe mehrere Exeldatein (*.xls) mit nur einem Arbeitsblatt (worksheet), welche ich zu einer eizigsten Datei zusammenfügen möchte.
    _____________________________________________________________
    Hier schon mal das Makro:

    Quellcode

    1. Sub CopyValues()
    2. Dim vFile As Variant
    3. Dim iRow As Integer
    4. Dim sPath As String, sFormula As String, sMem As String, sRange As String
    5. sPath = "c:\test"
    6. sMem = CurDir
    7. ChDrive Left(sPath, 1)
    8. ChDir sPath
    9. vFile = Application.GetOpenFilename("Excel-Arbeitsmappen (*.xls); *.xls")
    10. If vFile = False Then Exit Sub
    11. sFormula = "='" & sPath & "\[" & Dir(vFile) & "]Tabelle1'!" & Range (!A!").Value.Copy .Range(sRange)
    13. With Worksheets("Import")
    14. .Range(Range("A1").Value).FormulaLocal = sFormula
    15. iRow = 2
    16. Do Until IsEmpty(Cells(iRow, 1))
    17. If iRow = 2 Then
    18. sRange = Cells(iRow, 1).Value
    19. Else
    20. sRange = sRange & "," & Cells(iRow, 1).Value
    21. End If
    22. iRow = iRow + 1
    23. Loop
    24. .Range(Range("A1").Value).Copy .Range(sRange)
    25. .UsedRange.Value = .UsedRange.Value
    26. Application.CutCopyMode = False
    27. End With
    28. ChDrive Left(sMem, 1)
    29. ChDir sMem
    30. MsgBox "Job erledigt"
    32. End Sub
    Alles anzeigen

    _____________________________________________________________

    evtl. hat ja jemand ein bisschen mehr Plan - ich bin am verzeifeln :lol:

    Axo - ist office 2003 - führere Office Paket hab ich leider nix mehr.

    thanks for helping me.