Eine Excel-Makro alle Arbeitsmappen, die in einem Verzeichnis zu drucken

Wenn Sie aus mehreren Excel-Dateien in einem Verzeichnis drucken möchten, können Sie das Makro hier vorgestellten verwenden sie alle auf einmal zu drucken.

Wie die Makro funktioniert

In diesem Makro verwenden Sie die Dir-Funktion eine Zeichenfolge zurück, die den Namen der Datei darstellt, die dem entspricht, was Sie an es übergeben.

Sie verwenden die Funktion Dir alle XLSX-Dateien in einem bestimmten Verzeichnis aufzuzählen, durch jede Datei den Namen zu erfassen. Dann öffnen Sie jede Datei, drucken Sie es aus, und schließen Sie es dann.

Sub Macro1 () 'Schritt 1: Erklären Sie Ihre variablesDim MyFiles Als String'Step 2: Geben Sie ein Ziel directoryMyFiles = Dir ( "C:. Temp * xlsx") Do While MyFiles lt;> "" 'Schritt 3: Öffnen Arbeitsmappe ein von oneWorkbooks.Open "C: Temp " MyFilesActiveWorkbook.Sheets ( "Sheet1") PrintOut Kopien:. = 1ActiveWorkbook.Close Savechanges: = False'Step 4: Nächste Datei in den directoryMyFiles = DirLoopEnd Sub

Schritt 1 erklärt die MyFiles String-Variable, die jeden Dateinamen in der Aufzählung erfassen wird.

Schritt 2 verwendet die Funktion Dir das Verzeichnis und den Dateityp angeben, die Sie suchen. Beachten Sie, dass der Code für * .xlsx suchen, so dass nur Dateien xlsx wird durchgeschleift werden. Wenn Sie für .xls-Dateien suchen möchten, müssen Sie das angeben (zusammen mit dem Verzeichnis müssen Sie suchen). Das Makro übergibt einen beliebigen Dateinamen an die MyFiles String-Variable findet.

Schritt 3 öffnet die Datei und druckt dann eine Kopie von Tabelle1. Unnötig zu sagen, dass Sie wahrscheinlich zu drucken, die Blätter ändern möchten. Sie können auch die Anzahl der Kopien zu drucken, ändern.

Schritt 4 Schleife zurück mehr Dateien zu finden. Wenn es keine weiteren Dateien vorhanden sind, ist die MyFiles Variable leer und die Schleife und das Makro Ende.

Wie das Makro zu verwenden,

Um dieses Makro implementieren, können Sie es in einem Standardmodul kopieren und einfügen:

  1. Visual Basic-Editor aktivieren, indem Sie Alt + F11 drücken.

  2. rechts, klicken Sie auf das Projekt / die Arbeitsmappe Namen im Projektfenster.

  3. Wählen Sie Einfügen-Modul.

  4. Geben oder den Code in das neu erstellte Modul einfügen, ändern Sie die Print-Anweisung nach Bedarf.

Ähnliche

Menü