Makro zum Hinzufügen eines täglichen Berichts - Excel-Tipps

Judith hat die Excel-Frage dieser Woche gepostet.

Ich muss täglich eine Datei importieren. Ich möchte die Datei jeden Tag zu einer vorhandenen Excel-Arbeitsmappe hinzufügen und das Arbeitsblatt nach d / m / y benennen lassen.

Ein kurzes visuelles Grundmakro macht dies zu einer einfachen Aufgabe. Ein Problem - Der Registerkartenname eines Blattes darf keinen Schrägstrich enthalten. Daher wird die Lösung das Tagesblatt umbenennen, um einen Namen wie "03. Oktober 1999" zu erhalten.

Die Lösung besteht darin, Ihrem vorhandenen Buch ein oberstes Arbeitsblatt hinzuzufügen. Dieses Blatt mit der Bezeichnung "Menü" bietet eine einfache Benutzeroberfläche, über die Sie diese Aufgabe bei Bedarf an einen anderen Mitarbeiter weitergeben können. Das oberste Blatt enthält Zellen, in denen der Benutzer den Pfadnamen und den Dateinamen der zu importierenden Datei angeben kann. Wenn Sie eine von einem anderen System erstellte Datei importieren, ändern sich diese Felder nicht von Tag zu Tag. Das Menüblatt enthält auch eine Zelle mit dem aktuellen Datum, die ohne Schrägstriche formatiert ist. Ich werde ein Makro zum automatischen Öffnen einfügen, das diese Zelle für den Benutzer automatisch ausfüllt. Sie können sie jedoch jederzeit ändern, bevor Sie auf die Schaltfläche zum Importieren der Datei klicken. Schließlich hat das Menüblatt eine große Schaltfläche, auf die der Benutzer klicken wird.Diese Schaltfläche ruft das Makro auf, um die im Menü genannte Datei mit dem angegebenen Registerkartennamen in das aktuelle Buch zu importieren.

Menü Arbeitsblatt

Öffnen Sie eine neue Arbeitsmappe mit nur einem Blatt. Doppelklicken Sie auf die Registerkarte Blatt und geben Sie einen Namen für das Blatt mit dem Namen "Menü" ein. Fügen Sie einen schönen Titel in Zelle A1 hinzu. Fügen Sie in Zellen C3: C5 den Text wie links gezeigt hinzu. Geben Sie in Zelle D3 den Pfadnamen für das Verzeichnis ein, in dem sich die Datei jeden Tag befindet. Fügen Sie in Zelle D4 den Namen der Datei hinzu. Lassen Sie D5 leer. Es ist einfacher, die Schaltfläche einzurichten, sobald das Makro erstellt wurde, sodass wir dies für später belassen.

  • Starten Sie den Makro-Editor mit alt = "" + F11
  • Wählen Sie Einfügen - Modul
  • Kopieren Sie den folgenden Text in den Makro-Editor
Sub Auto_Open() ' This macro will put today's date as the default new tab name Sheets("Menu").Select Range("D5").Select Selection.Formula = "=text(now(),""mmm dd yyyy"")" Selection.Copy Selection.PasteSpecial Paste:=xlValues Application.CutCopyMode = False Selection.Columns.AutoFit Range("D8").Value = "" End Sub Sub GetFile() ' This macro will import a file into this workbook ' Copyright 1999 www.MrExcel.com Sheets("Menu").Select PathName = Range("D3").Value Filename = Range("D4").Value TabName = Range("D5").Value ControlFile = ActiveWorkbook.Name Workbooks.Open Filename:=PathName & Filename ActiveSheet.Name = TabName Sheets(TabName).Copy After:=Workbooks(ControlFile).Sheets(1) Windows(Filename).Activate ActiveWorkbook.Close SaveChanges:=False Windows(ControlFile).Activate Sheets("Menu").Select Range("D8").Select ActiveCell.Value = "Completed" Range("D9").Select End Sub

Kehren Sie nun zu Excel zurück und fügen Sie dem Menüblatt eine Schaltfläche hinzu.

So fügen Sie einem Arbeitsblatt eine Schaltfläche hinzu

Schaltfläche hinzufügen
  • Zeigen Sie die Formularsymbolleiste an, indem Sie Ansicht - Symbolleisten - Formulare auswählen
  • Wählen Sie das Schaltflächenwerkzeug aus der Symbolleiste
  • Halten Sie die Alt = "" -Taste gedrückt und ziehen Sie von der oberen Ecke von B8 in Zelle C9
  • Wählen Sie im Dialogfeld "Makro zuweisen" unser Makro "GetFile" aus und klicken Sie auf "OK"
  • Während die Schaltfläche noch ausgewählt ist, können Sie klicken und ziehen, um den Text auf der Schaltfläche auszuwählen. Ersetzen Sie diesen Text durch "Prozess!" oder einen Text Ihrer Wahl

Sie haben jetzt die vollständige Bewerbung. Speichern Sie die Datei an einem geeigneten Ort. Sobald Sie Ihre Datei mit den richtigen Informationen in den Zellen D3: D4 eingerichtet haben, sieht der tägliche Vorgang wie folgt aus:

  • Öffnen Sie die gerade erstellte Datei
  • Stellen Sie sicher, dass das in Zelle D5 angegebene Datum angemessen ist.
  • Klicken Sie auf die große Schaltfläche.
  • Speicher die Datei

Hier sind einige Möglichkeiten, wie Sie das Makro ändern können:

  • Wenn Sie möchten, dass die Registerkarte mit dem Datum des Vortages benannt wird, fügen Sie im Makro nach "NOW ()" ein "-1" hinzu.
  • Wenn die zu importierende Datei mehrere Blätter enthält und das Zielblatt möglicherweise nicht oben liegt, fügen Sie Blätter ("Blattname") hinzu. Wählen Sie diese Option nach der obigen Datei "Datei öffnen" aus.

Interessante Beiträge...