Excel Makro Kopieren und einfügen in eine andere xls-Datei in der ersten leeren Zeile

Ich bin derzeit Arbeit an einem digitalen Projekt und ich habe zur Analyse von Daten aus mehr als 100 FB excel-Dateien.

Teil meiner Analyse-Prozess bestehen in der Extraktion von Daten aus bestimmten Zellen, das sind immer die gleichen.

Als Sie verstanden, ich würde gerne ein makro machen, um zu vermeiden, nutzlos, Zeitverschwendung.

Ich weiß, wie um es zu entpacken in die Datei, aber ich möchte das sich mein makro zum kopieren in eine andere Datei.

Den code, den ich habe, ist folgende:

***Range("A9:D9").Wählen Sie

Auswahl.Kopieren

Windows("test2.xlsx").Aktivieren

ActiveSheet.Fügen***

Nun möchte ich die Daten einfügen in eine leere Zeile, um Hunderte von Zeilen einer unterhalb des anderen (eines für jeden FB-Auszug).

Würde mir jemand den richtigen code, um zu vermeiden, eine riesige Verschwendung von Zeit?

InformationsquelleAutor user1857833 | 2012-11-27
  1. 0

    Hier ist ein snippit der code, den ich verwenden für ähnliche Vorgänge zum auswählen der nächsten verfügbaren Zelle.

    'Insert after Your Windows("test2.xlsx").Activate in place of your paste Code.....
'This gives you the variable for the last cell with a value
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
'This section selects the next cell below your last used cell and pastes the information.
ActiveSheet.Range("A" & lastRow + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Rest of Code....

    Ich hoffe das ist, was Sie gesucht haben.

    • Es funktioniert 🙂
    InformationsquelleAutor Desert Spider
  2. 0

    Wenn das makro in der "Zusammenfassung" - Arbeitsmappe und die FB Datei geöffnet und aktiv ist:

    ActiveSheet.Range("A9:D9")Copy _
   ThisWorkbook.Sheets("Data").Cells(Rows.Count,1).End(xlup).offset(1,0)
    • Vielen Dank für diese Antwort! Ich bin ein Anfänger und ich denke, dass ich irgendwo einen Fehler gemacht ich habe Ihren code benutzt und diese : Range("A9:D9").Wählen Sie ActiveSheet.Range("A9:D9").Copy Windows("test2.xlsx").Aktivieren Zellen(Zeilen.Count, 1).End(xlUp).Offset(1, 0).Fügen Sie, Aber es ist nicht gültig. Was ist falsch?
    • ... Versuchen ActiveSheet.Range("A9:D9").Copy Workbooks("test2.xlsx").Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    InformationsquelleAutor Tim Williams
Schreibe einen Kommentar