Wie Verwenden von Makros in Excel-Arbeitsmappen erstellen
Sie können manchmal wollen oder müssen, eine Excel-Arbeitsmappe in einer automatisierten Art und Weise zu erstellen. Zum Beispiel müssen Sie Daten aus einer Tabelle zu kopieren und in eine neu erstellte Arbeitsmappe einfügen. Das folgende Makro kopiert einen Bereich von Zellen, die aus dem aktiven Blatt und fügt die Daten in eine neue Arbeitsmappe.
Wie die Makro funktioniert
Wie Sie sehen werden, wenn Sie durch die Zeilen des Codes zu lesen, ist dieses Makro relativ intuitiv:
Sub Macro1 () 'Schritt 1 Kopieren Sie die Datenblätter ( "Beispiel 1") Bereich.. ( "B4: C15") Copy'Step 2 Erstellen Sie ein neues workbookWorkbooks.Add'Step 3 Fügen Sie den dataActiveSheet.Paste Destination: = Range ( " A1 ") 'Schritt 4 Schalten Sie Anwendung alertsApplication.DisplayAlerts = False'Step 5 speichern Sie die neu workbookActiveWorkbook.SaveAs _Filename erstellt: =" C: Temp MyNewBook.xlsx "' Schritt 6 Schalten Anwendung Warnungen zurück onApplication.DisplayAlerts = TrueEnd Sub
In Schritt 1 kopieren Sie einfach die Daten, die von den Zellen B4 bis C15 liegt. Beachten Sie, dass Sie sowohl das Blatt angeben und den Bereich mit Namen. Dieser Ansatz ist eine bewährte Methode, wenn Sie mit mehreren geöffneten Arbeitsmappen arbeiten.
In Schritt 2 Verwenden Sie die Add-Methode des Workbook-Objekt, eine Arbeitsmappe zu erstellen. Die leere Arbeitsmappe entspricht manuell Datei-New-leeres Dokument in der Excel-Band zu wählen.
In Schritt 3 verwenden Sie die Methode Paste die kopierten Daten auf die Zelle A1 der neuen Arbeitsmappe zu senden.
Achten Sie auf die Tatsache, dass der Code auf dem Active Objekt verweist. Wenn Sie eine Arbeitsmappe hinzufügen, erhält der neue Arbeitsmappe sofort konzentrieren, die aktive Arbeitsmappe wird. (Excel tut das gleiche, wenn Sie eine Arbeitsmappe manuell hinzufügen.)
In Schritt 4 des Codes, stellen Sie die Displayalerts-Methode auf False, effektiv Excel Warnungen ausschalten. Sie tun dies, weil im nächsten Schritt des Codes, können Sie die neu erstellte Arbeitsmappe speichern. Sie können dieses Makro mehrere Male ausgeführt, in welchem Fall Excel die Datei mehrmals zu speichern versucht.
Was passiert, wenn Sie versuchen, eine Arbeitsmappe mehrere Male zu retten? Das ist richtig - Excel warnt Sie, dass es bereits eine Datei mit diesem Namen und fragt dann, ob Sie die bereits vorhandene Datei überschrieben werden soll. Da Ihr Ziel, die Schaffung der Arbeitsmappe zu automatisieren ist, möchten Sie diese Warnung zu unterdrücken.
In Schritt 5 speichern Sie die Datei mit der SaveAs-Methode. Beachten Sie, dass Sie den vollständigen Pfad der als Speicherort eingeben, den endgültigen Dateinamen einschließlich.
Weil Sie Anwendung ändert in Schritt 4 ausgeschaltet ist, müssen Sie sie wieder einschalten (siehe Schritt 6). Wenn Sie dies nicht tun, geht Excel alle Warnungen während der aktuellen Sitzung zu unterdrücken.
Wie das Makro zu verwenden,
Um dieses Makro implementieren, können Sie es in einem Standardmodul kopieren und einfügen:
Visual Basic-Editor aktivieren, indem Sie Alt + F11 drücken.
rechts, klicken Sie auf das Projekt / die Arbeitsmappe Namen im Projektfenster.
Wählen Sie Einfügen-Modul.
Geben oder den Code in das neu erstellte Modul einfügen.
Sie werden wahrscheinlich die Blattnamen ändern müssen, um den Bereich Adresse und die Position zu speichern.