{"id":1895,"date":"2021-10-01T10:50:17","date_gmt":"2021-10-01T10:50:17","guid":{"rendered":"https:\/\/www.exceldepartment.com\/?p=1895"},"modified":"2026-10-31T12:13:37","modified_gmt":"2026-10-31T12:13:37","slug":"automate-excel-reports-vba","status":"publish","type":"post","link":"https:\/\/www.exceldepartment.com\/en\/automate-excel-reports-vba\/","title":{"rendered":"Automate Excel reports: Step by step with VBA"},"content":{"rendered":"
\n

It is 16:45 on a Friday afternoon. You open five different Excel files, copy data from each one, paste it into the report template, format the headings, add charts, check the totals. Two hours later you can finally send the week’s report.<\/p>\n

Next Friday you do exactly the same thing again. And the week after that. 104 hours a year on the same repetitive task.<\/p>\n

I helped a finance manager automate exactly this. Now the report takes 3 minutes to generate with the click of a button. The same report, the same quality, 117 times faster.<\/p>\n

In this guide we build a complete reporting system step by step. You get ready-made code and detailed explanations. When you are done you can adapt the system to your own reports.<\/p>\n

What we are going to build<\/h2>\n

An automated reporting system that: 1. Imports data from several source files 2. Compiles and calculates key figures 3. Creates a formatted report with a standard layout 4. Generates charts automatically 5. Saves the report with a date-stamped file name 6. Sends the report by email (optional)<\/p>\n

All of this with a single press of a button.<\/p>\n

Preparation<\/h2>\n

File structure<\/h3>\n<\/p>\n

Create the following folder structure:<\/p>\n

C:\\Rapporter\\\n\u251c\u2500\u2500 K\u00e4lldata\\\n\u2502   \u251c\u2500\u2500 F\u00f6rs\u00e4ljning.xlsx\n\u2502   \u251c\u2500\u2500 Kostnader.xlsx\n\u2502   \u2514\u2500\u2500 Budget.xlsx\n\u251c\u2500\u2500 Rapportmall.xlsm\n\u2514\u2500\u2500 Genererade rapporter\\<\/code><\/pre>\n
Rapportmall.xlsm<\/strong> is the file where we put all the VBA code. The generated reports end up in the subfolder.<\/p>\n
Structure of the source files<\/h3>\n
Each source file needs to have its data in a predictable structure:<\/p>\n
F\u00f6rs\u00e4ljning.xlsx, sheet \u201cData\u201d:<\/strong><\/p>\n
Rad 1: Datum | Produkt | Antal | Belopp\nRad 2+: 2026-01-15 | Produkt A | 10 | 15000<\/code><\/pre>\n
Kostnader.xlsx, sheet \u201cData\u201d:<\/strong><\/p>\n
Rad 1: Datum | Kategori | Belopp\nRad 2+: 2026-01-15 | Personal | 125000<\/code><\/pre>\n
Budget.xlsx, sheet \u201cData\u201d:<\/strong><\/p>\n
Rad 1: M\u00e5nad | F\u00f6rs\u00e4ljning Budget | Kostnad Budget\nRad 2+: 2026-01 | 500000 | 350000<\/code><\/pre>\n
Adapt it to your actual data structure \u2013 the principles are the same.<\/p>\n
Structure of the report template<\/h3>\n
Rapportmall.xlsm consists of three sheets:<\/p>\n
1. \u201cImport\u201d<\/strong> \u2013 The raw data is imported here (hidden from end users)<\/p>\n
2. \u201cBer\u00e4kningar\u201d<\/strong> \u2013 All calculations and key figures are made here (hidden)<\/p>\n
3. \u201cRapport\u201d<\/strong> \u2013 The formatted report that becomes visible<\/p>\n
Step 1: Import data from source files<\/h2>\n
We start by fetching data from the three source files.<\/p>\n
The code for the import<\/h3>\n
Sub ImporteraData()\n    Dim wbK\u00e4lla As Workbook\n    Dim wsK\u00e4lla As Worksheet\n    Dim wsImport As Worksheet\n    Dim sistaRad As Long\n    Dim k\u00e4llS\u00f6kv\u00e4g As String\n\n    k\u00e4llS\u00f6kv\u00e4g = "C:\\Rapporter\\K\u00e4lldata\\"\n\n    ' Rensa tidigare import\n    Set wsImport = ThisWorkbook.Worksheets("Import")\n    wsImport.Cells.Clear\n\n    ' Importera f\u00f6rs\u00e4ljning\n    Set wbK\u00e4lla = Workbooks.Open(k\u00e4llS\u00f6kv\u00e4g & "F\u00f6rs\u00e4ljning.xlsx", ReadOnly:=True)\n    Set wsK\u00e4lla = wbK\u00e4lla.Worksheets("Data")\n\n    sistaRad = wsK\u00e4lla.Cells(wsK\u00e4lla.Rows.Count, "A").End(xlUp).Row\n\n    ' Kopiera rubriker och data till kolumn A-D\n    wsK\u00e4lla.Range("A1:D" & sistaRad).Copy wsImport.Range("A1")\n\n    wbK\u00e4lla.Close SaveChanges:=False\n\n    ' Importera kostnader\n    Set wbK\u00e4lla = Workbooks.Open(k\u00e4llS\u00f6kv\u00e4g & "Kostnader.xlsx", ReadOnly:=True)\n    Set wsK\u00e4lla = wbK\u00e4lla.Worksheets("Data")\n\n    sistaRad = wsK\u00e4lla.Cells(wsK\u00e4lla.Rows.Count, "A").End(xlUp).Row\n\n    ' Kopiera till kolumn F-H (l\u00e4mnar E tom som separator)\n    wsK\u00e4lla.Range("A1:C" & sistaRad).Copy wsImport.Range("F1")\n\n    wbK\u00e4lla.Close SaveChanges:=False\n\n    ' Importera budget\n    Set wbK\u00e4lla = Workbooks.Open(k\u00e4llS\u00f6kv\u00e4g & "Budget.xlsx", ReadOnly:=True)\n    Set wsK\u00e4lla = wbK\u00e4lla.Worksheets("Data")\n\n    sistaRad = wsK\u00e4lla.Cells(wsK\u00e4lla.Rows.Count, "A").End(xlUp).Row\n\n    ' Kopiera till kolumn J-L\n    wsK\u00e4lla.Range("A1:C" & sistaRad).Copy wsImport.Range("J1")\n\n    wbK\u00e4lla.Close SaveChanges:=False\n\n    MsgBox "Import klar!", vbInformation\nEnd Sub<\/code><\/pre>\n
What happens here?<\/h3>\n
    \n
  • Opens each source file in ReadOnly mode (prevents them from being changed by mistake)<\/li>\n
  • Copies all the data to the Import sheet<\/li>\n
  • Closes the source file without saving<\/li>\n
  • Repeats for each source file<\/li>\n<\/ul>\n
    Tip:<\/strong> Put Application.ScreenUpdating = False<\/code> at the beginning and = True<\/code> at the end to make it faster.<\/p>\n
    Step 2: Calculate key figures<\/h2>\n
    Now that all the data is in the Import sheet, we can calculate key figures.<\/p>\n
    The code for the calculations<\/h3>\n
    Sub Ber\u00e4knaNyckeltal()\n    Dim wsImport As Worksheet\n    Dim wsBer\u00e4kning As Worksheet\n    Dim sistaRadF\u00f6rs\u00e4ljning As Long\n    Dim sistaRadKostnad As Long\n    Dim totF\u00f6rs\u00e4ljning As Double\n    Dim totKostnad As Double\n    Dim aktuellM\u00e5nad As String\n\n    Set wsImport = ThisWorkbook.Worksheets("Import")\n    Set wsBer\u00e4kning = ThisWorkbook.Worksheets("Ber\u00e4kningar")\n\n    wsBer\u00e4kning.Cells.Clear\n\n    ' Aktuell m\u00e5nad f\u00f6r filtrering\n    aktuellM\u00e5nad = Format(Date, "yyyy-mm")\n\n    ' Hitta sista raderna\n    sistaRadF\u00f6rs\u00e4ljning = wsImport.Cells(wsImport.Rows.Count, "A").End(xlUp).Row\n    sistaRadKostnad = wsImport.Cells(wsImport.Rows.Count, "F").End(xlUp).Row\n\n    ' Summera f\u00f6rs\u00e4ljning f\u00f6r aktuell m\u00e5nad\n    Dim i As Long\n    totF\u00f6rs\u00e4ljning = 0\n\n    For i = 2 To sistaRadF\u00f6rs\u00e4ljning\n        If Format(wsImport.Cells(i, 1).Value, "yyyy-mm") = aktuellM\u00e5nad Then\n            totF\u00f6rs\u00e4ljning = totF\u00f6rs\u00e4ljning + wsImport.Cells(i, 4).Value\n        End If\n    Next i\n\n    ' Summera kostnader f\u00f6r aktuell m\u00e5nad\n    totKostnad = 0\n\n    For i = 2 To sistaRadKostnad\n        If Format(wsImport.Cells(i, 6).Value, "yyyy-mm") = aktuellM\u00e5nad Then\n            totKostnad = totKostnad + wsImport.Cells(i, 8).Value\n        End If\n    Next i\n\n    ' Skriv resultat till Ber\u00e4kningar-bladet\n    wsBer\u00e4kning.Range("A1").Value = "Nyckeltal"\n    wsBer\u00e4kning.Range("A2").Value = "F\u00f6rs\u00e4ljning"\n    wsBer\u00e4kning.Range("B2").Value = totF\u00f6rs\u00e4ljning\n    wsBer\u00e4kning.Range("B2").NumberFormat = "#,##0"\n\n    wsBer\u00e4kning.Range("A3").Value = "Kostnader"\n    wsBer\u00e4kning.Range("B3").Value = totKostnad\n    wsBer\u00e4kning.Range("B3").NumberFormat = "#,##0"\n\n    wsBer\u00e4kning.Range("A4").Value = "Resultat"\n    wsBer\u00e4kning.Range("B4").Formula = "=B2-B3"\n    wsBer\u00e4kning.Range("B4").NumberFormat = "#,##0"\n\n    wsBer\u00e4kning.Range("A5").Value = "Marginal %"\n    wsBer\u00e4kning.Range("B5").Formula = "=B4\/B2"\n    wsBer\u00e4kning.Range("B5").NumberFormat = "0.0%"\n\n    MsgBox "Ber\u00e4kningar klara!", vbInformation\nEnd Sub<\/code><\/pre>\n
    Explanation<\/h3>\n
      \n
    • Filters data for the current month (based on today’s date)<\/li>\n
    • Sums sales and costs<\/li>\n
    • Calculates profit and margin<\/li>\n
    • Writes everything to the Ber\u00e4kningar sheet<\/li>\n<\/ul>\n
      In a real situation you would have more key figures, perhaps broken down by product, region, salesperson, etc. The principle is the same.<\/p>\n
      Step 3: Create a formatted report<\/h2>\n
      Now we take the values from the Ber\u00e4kningar sheet and create a neat report.<\/p>\n
      The code for report generation<\/h3>\n
      Sub GenereraRapport()\n    Dim wsBer\u00e4kning As Worksheet\n    Dim wsRapport As Worksheet\n\n    Set wsBer\u00e4kning = ThisWorkbook.Worksheets("Ber\u00e4kningar")\n    Set wsRapport = ThisWorkbook.Worksheets("Rapport")\n\n    ' Rensa gammal rapport\n    wsRapport.Cells.Clear\n\n    ' Rubrik\n    wsRapport.Range("A1").Value = "M\u00c5NADSRAPPORT"\n    wsRapport.Range("A1").Font.Size = 18\n    wsRapport.Range("A1").Font.Bold = True\n\n    wsRapport.Range("A2").Value = "Period: " & Format(Date, "mmmm yyyy")\n    wsRapport.Range("A2").Font.Italic = True\n\n    ' Nyckeltal\n    wsRapport.Range("A4").Value = "RESULTAT\u00d6VERSIKT"\n    wsRapport.Range("A4").Font.Bold = True\n    wsRapport.Range("A4").Font.Size = 12\n\n    ' Kopiera nyckeltal fr\u00e5n Ber\u00e4kningar\n    wsBer\u00e4kning.Range("A2:B5").Copy wsRapport.Range("A6")\n\n    ' Formatera tabellen\n    With wsRapport.Range("A6:B9")\n        .Borders.LineStyle = xlContinuous\n        .Columns(2).HorizontalAlignment = xlRight\n    End With\n\n    ' G\u00f6r rubrikerna feta\n    wsRapport.Range("A6:A9").Font.Bold = True\n\n    ' F\u00e4rgkoda resultatet\n    If wsRapport.Range("B9").Value > 0 Then\n        wsRapport.Range("B9").Interior.Color = RGB(198, 239, 206)  ' Gr\u00f6nt f\u00f6r positivt\n    Else\n        wsRapport.Range("B9").Interior.Color = RGB(255, 199, 206)  ' R\u00f6tt f\u00f6r negativt\n    End If\n\n    ' Anpassa kolumnbredder\n    wsRapport.Columns("A:B").AutoFit\n\n    ' L\u00e4gg till genererad-tid\n    wsRapport.Range("A15").Value = "Rapport genererad: " & Format(Now, "yyyy-mm-dd hh:mm")\n    wsRapport.Range("A15").Font.Size = 8\n    wsRapport.Range("A15").Font.Italic = True\n\n    MsgBox "Rapport genererad!", vbInformation\nEnd Sub<\/code><\/pre>\n
      Result<\/h3>\n
      You now get a neat report with: – A clear heading – The current period – Key figures in a formatted table – Colour coding of results – Timestamp<\/p>\n
      Step 4: Add a chart<\/h2>\n
      A chart makes the report more visual and easier to take in.<\/p>\n
      The code for the chart<\/h3>\n
      Sub SkapaGraf()\n    Dim wsRapport As Worksheet\n    Dim grafObjekt As ChartObject\n\n    Set wsRapport = ThisWorkbook.Worksheets("Rapport")\n\n    ' Ta bort eventuell tidigare graf\n    Dim obj As ChartObject\n    For Each obj In wsRapport.ChartObjects\n        obj.Delete\n    Next obj\n\n    ' Skapa ny graf\n    Set grafObjekt = wsRapport.ChartObjects.Add(Left:=300, Top:=100, Width:=400, Height:=250)\n\n    With grafObjekt.Chart\n        .ChartType = xlColumnClustered\n\n        ' Data f\u00f6r grafen (F\u00f6rs\u00e4ljning och Kostnader)\n        .SetSourceData Source:=wsRapport.Range("A6:B8")\n\n        .HasTitle = True\n        .ChartTitle.Text = "F\u00f6rs\u00e4ljning vs Kostnader"\n\n        .HasLegend = False\n\n        ' Formatera axlar\n        .Axes(xlValue).HasTitle = True\n        .Axes(xlValue).AxisTitle.Text = "Belopp (kr)"\n    End With\n\n    MsgBox "Graf skapad!", vbInformation\nEnd Sub<\/code><\/pre>\n
      Customisation<\/h3>\n
      You can change the chart type: – xlColumnClustered<\/code> \u2013 Column chart – xlLine<\/code> \u2013 Line chart – xlPie<\/code> \u2013 Pie chart – xlArea<\/code> \u2013 Area chart<\/p>\n
      Step 5: Combine into one complete macro<\/h2>\n
      Now we combine all the steps into a single main macro.<\/p>\n
      The main macro<\/h3>\n
      Sub GenereraM\u00e5nadsrapport()\n    On Error GoTo FelHantering\n\n    ' St\u00e4ng av sk\u00e4rmuppdatering f\u00f6r hastighet\n    Application.ScreenUpdating = False\n    Application.Calculation = xlCalculationManual\n\n    ' K\u00f6r alla steg i ordning\n    Call ImporteraData\n    Call Ber\u00e4knaNyckeltal\n    Call GenereraRapport\n    Call SkapaGraf\n\n    ' Spara rapporten med datumst\u00e4mplat filnamn\n    Dim rapportNamn As String\n    rapportNamn = "M\u00e5nadsrapport_" & Format(Date, "yyyy-mm-dd") & ".xlsx"\n\n    ThisWorkbook.Worksheets("Rapport").Copy\n    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\\Genererade rapporter\\" & rapportNamn\n    ActiveWorkbook.Close SaveChanges:=False\n\n    ' Sl\u00e5 p\u00e5 sk\u00e4rmuppdatering igen\n    Application.ScreenUpdating = True\n    Application.Calculation = xlCalculationAutomatic\n\n    MsgBox "Komplett rapport genererad och sparad som:" & vbCrLf & rapportNamn, vbInformation\n\n    Exit Sub\n\nFelHantering:\n    Application.ScreenUpdating = True\n    Application.Calculation = xlCalculationAutomatic\n    MsgBox "Ett fel uppstod: " & Err.Description, vbCritical\nEnd Sub<\/code><\/pre>\n
      What happens here?<\/h3>\n
        \n
      1. Turns off screen updating for faster execution<\/li>\n
      2. Runs all the sub-steps in order<\/li>\n
      3. Copies the Rapport sheet to a new workbook<\/li>\n
      4. Saves with a date-stamped file name<\/li>\n
      5. Closes the new workbook<\/li>\n
      6. Restores the Excel settings<\/li>\n
      7. Error handling to catch any problems<\/li>\n<\/ol>\n
        Step 6: Make it user-friendly<\/h2>\n
        Add a button so users can easily run the report.<\/p>\n
        Create a run button<\/h3>\n
        Step 1:<\/strong> Go to the Rapport sheet<\/p>\n
        Step 2:<\/strong> Developer > Insert > Button (Form Control)<\/p>\n
        Step 3:<\/strong> Draw the button where you want it<\/p>\n
        Step 4:<\/strong> Select \u201cGenereraM\u00e5nadsrapport\u201d in the dialog box<\/p>\n
        Step 5:<\/strong> Right-click the button > Edit Text<\/p>\n
        Step 6:<\/strong> Type \u201cGENERATE REPORT\u201d<\/p>\n
        Step 7:<\/strong> Format the button (right-click > Format Control for colour and size)<\/p>\n
        Now anyone can click the button and get a complete report in seconds.<\/p>\n
        Bonus feature: Send by email<\/h2>\n
        If you want to send the report automatically by email, add this:<\/p>\n
        The code for sending email<\/h3>\n
        Sub SkickaRapportMail()\n    Dim OutlookApp As Object\n    Dim Mail As Object\n    Dim rapportFilNamn As String\n\n    ' Senast genererade rapporten\n    rapportFilNamn = ThisWorkbook.Path & "\\Genererade rapporter\\M\u00e5nadsrapport_" & _\n                     Format(Date, "yyyy-mm-dd") & ".xlsx"\n\n    ' Kontrollera att filen finns\n    If Dir(rapportFilNamn) = "" Then\n        MsgBox "Ingen rapport hittades. Generera rapporten f\u00f6rst.", vbExclamation\n        Exit Sub\n    End If\n\n    ' Skapa mail\n    Set OutlookApp = CreateObject("Outlook.Application")\n    Set Mail = OutlookApp.CreateItem(0)\n\n    With Mail\n        .To = "chef@f\u00f6retag.se"\n        .CC = "ekonomi@f\u00f6retag.se"\n        .Subject = "M\u00e5nadsrapport " & Format(Date, "mmmm yyyy")\n        .Body = "Hej," & vbCrLf & vbCrLf & _\n                "Bifogat finner ni m\u00e5nadsrapporten f\u00f6r " & Format(Date, "mmmm yyyy") & "." & vbCrLf & vbCrLf & _\n                "Nyckeltal:" & vbCrLf & _\n                "- F\u00f6rs\u00e4ljning: " & Format(ThisWorkbook.Worksheets("Ber\u00e4kningar").Range("B2").Value, "#,##0") & " kr" & vbCrLf & _\n                "- Resultat: " & Format(ThisWorkbook.Worksheets("Ber\u00e4kningar").Range("B4").Value, "#,##0") & " kr" & vbCrLf & vbCrLf & _\n                "Mvh," & vbCrLf & "Automatiserad rapportering"\n\n        .Attachments.Add rapportFilNamn\n\n        .Display  ' Anv\u00e4nd .Send f\u00f6r att skicka direkt utan att visa\n    End With\n\n    Set Mail = Nothing\n    Set OutlookApp = Nothing\nEnd Sub<\/code><\/pre>\n
        Add a call to Call SkickaRapportMail<\/code> in the main macro if you want to send automatically.<\/p>\n<\/p>\n
        The time saved<\/h2>\n
        Manual process:<\/strong> – Open source files: 5 min – Copy data: 10 min – Calculate key figures: 5 min – Format report: 15 min – Create chart: 5 min – Save and send: 5 min – Total: 45 minutes<\/strong><\/p>\n
        Automated process:<\/strong> – Click the button: 10 seconds – Wait for the run: 30 seconds – Check the result: 2 minutes – Total: 3 minutes<\/strong><\/p>\n
        Saving per month:<\/strong> 42 minutes Saving per year:<\/strong> 8.4 hours<\/p>\n
        And this is just ONE report. Most people have several.<\/p>\n
        Adapting it to your reports<\/h2>\n
        The system is built modularly so you can easily adapt it:<\/p>\n
        More data sources:<\/strong> Add more import blocks in ImporteraData<\/p>\n
        More key figures:<\/strong> Extend Ber\u00e4knaNyckeltal with your specific calculations<\/p>\n
        A different layout:<\/strong> Change GenereraRapport to your desired structure<\/p>\n
        Different charts:<\/strong> SkapaGraf can be adapted to any visualisation<\/p>\n
        Next steps<\/h2>\n
        You now have a working reporting system. To take it further:<\/p>\n
        1. Add error handling<\/strong> What happens if a source file is missing? Add checks:<\/p>\n
        If Dir(k\u00e4llS\u00f6kv\u00e4g & "F\u00f6rs\u00e4ljning.xlsx") = "" Then\n    MsgBox "K\u00e4llfilen F\u00f6rs\u00e4ljning.xlsx saknas!", vbCritical\n    Exit Sub\nEnd If<\/code><\/pre>\n
        2. Make it flexible for different periods<\/strong> Let the user choose the month instead of always using the current month.<\/p>\n
        3. Log report runs<\/strong> Write to a log every time a report is generated (who, when, result).<\/p>\n
        4. Add comparisons<\/strong> Compare against the previous month or the budget. Show variances.<\/p>\n
        5. Build a dashboard<\/strong> Instead of a simple report, build an interactive dashboard with buttons for different views.<\/p>\n
        Get professional help<\/h2>\n
        If you want a robust reporting system but do not have time to build it yourself, we are happy to help at Excel Department.<\/p>\n
        We build tailor-made reporting systems that: – Handle complex data sources (databases, multiple systems, APIs) – Include advanced error handling and logging – Have user-friendly interfaces – Are documented and easy to maintain – Follow the company’s security requirements<\/p>\n
        Read more about how we helped a client save 20 hours a week<\/a> with automated reporting.<\/p>\n
        Book a free consultation<\/a> and we will discuss your reporting needs.<\/p>\n
        Or learn to build it yourself on our VBA course<\/a>, where we go through reporting automation from the ground up.<\/p>\n
        \n
        Written by Lukas Lilja, Excel Department. We have built automated reporting systems for companies with 10 to 10,000 employees.<\/em><\/p>\n<\/div>\n
        \n
        Do you need help with this?<\/strong> Our VBA course<\/a> helps you \u2013 the first consultation is free of charge.<\/p>\n
        Book a free call<\/a> or call 010-264 20 20<\/a>.<\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
        Learn to automate monthly Excel reports with VBA. A complete tutorial that saves you hours every month. Includes ready-made code and a step-by-step guide.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-1895","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/www.exceldepartment.com\/en\/wp-json\/wp\/v2\/posts\/1895","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.exceldepartment.com\/en\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.exceldepartment.com\/en\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.exceldepartment.com\/en\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.exceldepartment.com\/en\/wp-json\/wp\/v2\/comments?post=1895"}],"version-history":[{"count":0,"href":"https:\/\/www.exceldepartment.com\/en\/wp-json\/wp\/v2\/posts\/1895\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.exceldepartment.com\/en\/wp-json\/wp\/v2\/media?parent=1895"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.exceldepartment.com\/en\/wp-json\/wp\/v2\/categories?post=1895"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.exceldepartment.com\/en\/wp-json\/wp\/v2\/tags?post=1895"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}