Opbygning af automatiserede rapporter

Månedlig rapportmønster Alle automatiserede rapporter i dette kursus følger samme struktur: ryd tidligere tilstand, filtrer eller opsummer dataene, opdater eller genopbyg det visuelle output, anvend præsentationsformatering og bekræft færdiggørelse til brugeren.

Gennemarbejdet eksempel: Én-klik månedlig rapport

Option Explicit
 
Sub GenerateMonthlyReport()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim targetMonth As String
 
    Set ws = ThisWorkbook.Worksheets("Reports")
    Set tbl = ws.ListObjects("tblReports")
    targetMonth = "March"
 
    ' 1. Start from a clean slate
    If tbl.AutoFilter.FilterMode Then tbl.AutoFilter.ShowAllData
 
    ' 2. Filter to the month being reported on
    tbl.Range.AutoFilter Field:=1, Criteria1:=targetMonth
 
    ' 3. Refresh the summary PivotTable so it reflects current data
    On Error Resume Next
    ThisWorkbook.Worksheets("Pivot").PivotTables("ptProfitByRegion").RefreshTable
    On Error GoTo 0
 
    ' 4. Apply export-ready formatting
    With ws.PageSetup
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintArea = tbl.Range.Address
    End With
 
    ' 5. Confirm completion
    MsgBox targetMonth & " report is ready — filtered, " & _
        "refreshed, and print-formatted."
End Sub

De fem nummererede kommentarer er ikke kun etiketter — de udgør rapportmønsteret fra tidligere i dette afsnit, gjort bogstaveligt, ét trin pr. fase. Nogle detaljer, der er værd at fremhæve:

• targetMonth As String, sat til en fast værdi øverst, er den ene linje, som Opgaven beder dig ændre til "January" — fordi alle senere trin læser fra denne ene variabel i stedet for at ordet "March" gentages andre steder i Sub'en, kræver det kun én ændring at skifte rapportens mål-måned;
• Trin 3 omslutter RefreshTable med On Error Resume Next / On Error GoTo 0 af samme grund som Pivot-makroen gjorde i afsnit 4.3: hvis Pivot-arket ikke eksisterer endnu, ville denne linje ellers give en fejl og stoppe hele rapportmakroen, i stedet for blot at springe et trin over, der ikke er klar endnu;
• Trin 4's PrintArea = tbl.Range.Address binder udskriftsområdet direkte til Tabelens egen adresse, så hvis rækker senere tilføjes via ListRows.Add, matcher udskriftsområdet stadig præcist dataene — ingen separat vedligeholdelse af udskriftsområde er nødvendig;
• Trin 5's MsgBox sammenkæder targetMonth med bekræftelsesteksten, så beskeden altid nævner den måned, der faktisk netop er blevet behandlet.

Dashboard-opdatering

Hvis en projektmappe indeholder flere pivottabeller og diagrammer, der føder et dashboard-ark, genberegner RefreshAll alle datakilder og PivotCache med ét kald — den énliniers version af det, GenerateMonthlyReport gør manuelt for en enkelt pivottabel: ThisWorkbook.RefreshAll

Denne ene linje udfører samme opgave som trin 3 i GenerateMonthlyReport, blot i hele projektmappen i stedet for én navngiven pivottabel — nyttigt, når et dashboard er vokset til at inkludere flere pivottabeller, eksterne datakilder eller tilknyttede forespørgsler, der alle skal holdes synkroniseret.

Eksportklar formatering

Ud over sideopsætning skal en færdig rapport ofte eksporteres ud af Excel. ExportAsFixedFormat genererer en PDF direkte fra koden:

ws.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ThisWorkbook.Path & "\March_Report.pdf", _
    Quality:=xlQualityStandard

ThisWorkbook.Path returnerer mappen, hvor den aktuelle projektmappe er gemt, uden en afsluttende backslash — derfor bygges filnavnet ved at sammenkæde "\March_Report.pdf" eksplicit. Hvis ThisWorkbook ikke er gemt endnu, returnerer .Path en tom streng, og denne linje vil forsøge at gemme til blot "\March_Report.pdf" på roden af det aktuelle drev, så det er værd at sikre, at projektmappen er gemt mindst én gang, før dette mønster anvendes.

Opgave

1. Skriv GenerateMonthlyReport nøjagtigt som vist (du skal have Pivot-arket fra tidligere kapitler oprettet først) og kør det. Bekræft, at tabellen filtreres til March, og at Pivot opdateres.
2. Skift targetMonth til "January" og kør igen — bekræft, at rapporten opdateres til at afspejle den nye måned.
3. Tilføj én linje i slutningen af Sub'en, før MsgBox, der eksporterer Reports-arket til PDF ved hjælp af ExportAsFixedFormat som vist ovenfor.