Heim >Software-Tutorial >Bürosoftware >Stapelsumme mehrerer Excel-Dateien

Stapelsumme mehrerer Excel-Dateien

PHPz
PHPznach vorne
2024-01-06 22:34:01881Durchsuche

Mehrere Excel-Dateien in Stapeln

Mit VBA können Sie ganz einfach alle Excel-Dateien in einem Ordner durchlaufen. Hier ist ein Beispielcode. Sie müssen lediglich das Problem angeben, z. B. welche Zellen Sie summieren möchten, und dann füge ich die entsprechenden Stellen im Code hinzu. „ SubTraverseFiles() Dimmen Sie FolderPath als String Dateiname als Zeichenfolge dimmen Dim wb als Arbeitsmappe Dim ws als Arbeitsblatt Dimmbereich als Bereich 'Ordnerpfad festlegen FolderPath = "****" 'Alle Dateien im Ordner durchlaufen FileName = Dir(FolderPath & "*.xlsx") Do While FileName "" 'Excel-Datei öffnen Setze wb = Workbooks.Open(FolderPath & ""

Sub CombineAll()

Um den Spielern beim Lösen des Rätsels zu helfen, lernen wir die spezifischen Methoden zum Lösen des Rätsels kennen. Um die Bedienung zu erleichtern, müssen wir einige Variablen deklarieren, z. B. „Dim MyPath, MyName, AWbName“, und wir benötigen außerdem eine Variable „Num“, um die Nummer zu speichern. Als nächstes werden wir die Schritte zum Lösen des Rätsels im Detail vorstellen.

Um Spielern zu helfen, die das Level noch nicht abgeschlossen haben, lernen wir die spezifischen Methoden zum Lösen von Rätseln kennen. Während des Rätsellösungsprozesses können wir den folgenden Code verwenden, um die Aufgabe zu erledigen: Dim i As Byte Dim j als Byte Dieser Code kann uns helfen, zwei Variablen, i und j, als Hilfswerkzeuge für unsere Rätsellösung zu definieren. Durch die flexible Nutzung dieser beiden Variablen können wir Rätsel besser verstehen und lösen.

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.PathMyName = Dir(MyPath & """ & "*.xls"")AWbName = ActiveWorkbook.Name

Anzahl = 0

Do While MyName "" If MyName AWbName Then Application.Workbooks.Open (MyPath & "" & MyName) ********************** Workbooks (MyName ).Close False Num = Num + 1 End If MyName = Dir Loop

Application.ScreenUpdating = True

MsgBox „Vollständig kombiniert“ & Anzahl & „Arbeitsmappen im aktuellen Ordner.“, vbInformation, „Infomation“

End Sub

So führen Sie mehrere Excel-Arbeitsmappen zusammen

Der schnellste Weg, mehrere Arbeitsblätter zu einem zusammenzuführen, ist die Verwendung der Makroverarbeitung:

Zum Beispiel mehrere Tabellen zu einer Gesamttabelle zusammenführen:

Die Gesamttabelle hat nur einen Titel

Klicken Sie mit der rechten Maustaste auf die Registerkarte „Zusammenfassungsarbeitsblatt“, sehen Sie sich den Code an, kopieren Sie den folgenden Code hinein und führen Sie F5 aus:

Unterarbeitsblatt zusammenführen()

Für jede Masche in den Arbeitsblättern

If st.Name ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)

Weiter

End Sub

Es werden mehrere Tabellen in der Master-Tabelle zusammengeführt,

Das folgende Beispiel: Führen Sie den obigen Code in Sheet Total aus, und alle monatlichen Untertabellen werden zusammengefasst, um die spätere Verarbeitung zu erleichtern, ohne sie immer wieder einfügen zu müssen

Das obige ist der detaillierte Inhalt vonStapelsumme mehrerer Excel-Dateien. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!

Stellungnahme:
Dieser Artikel ist reproduziert unter:docexcel.net. Bei Verstößen wenden Sie sich bitte an admin@php.cn löschen