Kopieren von Zeilen aus einer listobject zum anderen mit Excel-VBA

Ich will ein Stück von VBA-code die select-die ersten 10 Zeilen von einem ListObject und dann in ein anderes einfügen ListObject. Sobald eine collection von Zeilen, die kopiert wurde, um die neue Platte, so erfolgt die Verarbeitung, dann die nächsten 10 Zeilen werden ausgewählt und bearbeitet, und so weiter.

Kann ich erreichen, das mit standard-VBA-Funktionen, aber ich möchte erreichen, das mit dem ListObject, d.h.

Sub PopulateSectionOfData()

    Dim loInput As ListObject
    Dim loOutput As ListObject
    Dim intNumOfColumns As Integer
    Dim rngToCopy As Range
    Dim intRowsInFile As Integer

    ' Create the inout and output ListObjects
    Set loInput = Worksheets(WS_INPUT).ListObjects(LO_INPUT)
    Set loOutput = Worksheets(WS_OUTPUT).ListObjects(LO_OUTPUT)

    ' Delete all the current rows from the output table
    Worksheets(WS_OUTPUT).ListObjects(LO_OUTPUT).DataBodyRange.Delete

    ' Set variables
    intNumOfColumns = loInput.ListColumns.Count
    WorkbookCounter = 1
    intRowsInFile = 10                   ' Select 10 records at a time

    ' Get 10 records at a time from the input file
    For i = 1 To loInput.DataBodyRange.Rows.Count Step intRowsInFile - 1

        '???? - This is the area that i am unsure on
        Set rngToCopy = loInput.DataBodyRange(p, 1)
        rngToCopy.Copy loOutput

        '????

        ' TODO - Add further processing here
    Next i

    ' Clear used objects
    Set loInput = Nothing
    Set loOutput = Nothing

End Sub

Jede Hilfe in dieser Sache wäre sehr willkommen, da möchte ich nutzen, ListObjects

Danke im Voraus

InformationsquelleAutor AMPorter | 2013-11-20
  1. 1

    DataBodyRange bezieht sich auf die aktuelle Auswahl der Zeilen und Spalten in der Tabelle. Wenn es keine Zeilen in der Tabelle (das ist Ihre Bedingung nach der Ausführung DataBodyRange.Delete, müssen Sie eine Zeile in die Tabelle zuerst, dann, Sie können kopieren und einfügen von Daten in diese Zeile, mit Excel die Tabelle erweitert, entsprechend

    Ihre for Schleife aktualisiert werden kann, um wie folgt zu Lesen:

    For i = 1 To loInput.DataBodyRange.Rows.Count Step intRowsInFile - 1

    ' First add a blank row to the table
    loOutput.ListRows.Add

    ' Check that 10 rows are available in the input table
    ' (Done to avoid adding blank rows to the output table)
    If i + 9 > loInput.DataBodyRange.Rows.Count Then
        loInput.DataBodyRange.Rows(i & ":" & loInput.DataBodyRange.Rows.Count) _
            .Copy loOutput.DataBodyRange.Rows(i)
    Else
        loInput.DataBodyRange.Rows(i & ":" & i + 9).Copy loOutput
    End If
Next i
    • Das ist fantastisch, vielen Dank. Ich weiß, es getan werden könnte, wie einige, nur nicht über Ihr know-how. Ihre Hilfe und prompt respose wird am meisten geschätzt.
    • ich habe nun die Lösung mit einigen Produktionsdaten statt A1, B1, etc, aber die Lösung jetzt scheitert! Statt zu schreiben batch von Datensätzen in das neue Arbeitsblatt ein über schreibt der vorhandenen Informationen. Gibt es irgendwelche Zeichen innerhalb der Daten sollte ich besorgt sein? Die Zeichen innerhalb der Produktion von Daten ist nur alpha-numerisch, also nicht sicher, was das Problem ist. Jede Hilfe, die Sie bereitstellen können, wäre sehr geschätzt, da habe ich keine Ahnung!!
    • Dieser code hat ein paar Annahmen. Einer ist, dass die Daten kontinuierlich über die Spalten verteilt. Zum Beispiel, wenn eine Zeile "Ein (leer -) B" und Zeile 2 "A B C" die das Ergebnis in Zeile eins wäre "A B C", da die Daten kontinuierlich in Zeile eins blieb mit "A"
    • danke für Ihre Antwort. Ich habe ein wenig getan, weitere Untersuchungen und es tut noe zu sein scheinen ein Problem mit den Daten, wie ich getestet habe, Sie es durch hinzufügen einer Zeile zu einem Zeitpunkt, dann die Verarbeitung, die ist nicht erfolgreich, bis es erreicht die 19-Rekord! Einmal 19 Datensätze dienen als Eingabe, dann wird nur die Letzte Sammlung der Datensätze angezeigt werden in das neue Arbeitsblatt. Ich habe geändert den Inhalt des 19ten Datensatz das gleiche zu sein, wie die anderen erfolgreich bearbeitet, aber der Fehler hält erscheinen, irgendwelche Ideen?
    • Ich habe das Problem gelöst. Habe ich Hinzugefügt .DataBodyRange.Zeilen(i) innerhalb der else-Anweisung, und es funktioniert gut. Ich danke Ihnen für alle Ihre Hilfe bei dieser Angelegenheit
    InformationsquelleAutor Jaycal
  2. 0

    Denken Sie daran, dass "DataBodyRange" bringt eine Reihe. Also:

    'copies entire line 1 from "loInput" to "loOutput" on line 2
loOutput.DataBodyRange.Rows(2) = loInput.DataBodyRange.Rows(1)

    Zusätzlich, stellen Sie einfach ein, bis der Vorgang der rest

    InformationsquelleAutor Lucius Matos
Schreibe einen Kommentar