Hallo ValentinS,

volgens mijn vriend kan die PQ-code een heel stuk strakker, dus kijk maar of je er iets mee kan...

let
    P = Excel.CurrentWorkbook(){[Name="Parameter"]}[Content][Value]{0},
    N = Table.Sort(Table.SelectRows(Folder.Files(P), each Text.StartsWith(Text.Lower([Name]), "euromillions-winnende-my-bonus-codes-")), {{"Date modified", Order.Descending}}){0}[Content],
    T = Table.SelectRows(Pdf.Tables(N), each Text.StartsWith([Id], "Table")),
    K = List.Distinct(List.Combine(List.Transform(T[Data], each Table.ColumnNames(_)))),
    X = Table.ExpandTableColumn(T, "Data", K),
    B = Table.FillDown(Table.AddColumn(X, "Bedrag", each try Number.From(Text.AfterDelimiter(_{K{0}}, "€")) otherwise null), {"Bedrag"}),
    C = Table.SelectRows(B, each Text.StartsWith(Text.Trim(_{K{0}}), "B")),
    R = Table.Distinct(Table.TransformColumns(Table.UnpivotOtherColumns(C, {"Bedrag"}, "A", "BonusCode"), {{"BonusCode", Text.Trim, type text}}), {"BonusCode"})
in
    R
SoftAid              

Hallo Valentin,

probeer deze aanpassing eens. Het moeilijkste hieraan is, ik kanje PDF, je kolomnamen, jePDF‑structuur, je Parameter‑tabel en je Excel‑omgeving niet zien.
Dus ik kan nooit 100% garanderen dat het bij jou werkt. Structureel zou het moeten kloppen.

let
    P = Excel.CurrentWorkbook(){[Name="Parameter"]}[Content][Value]{0},
    N = Table.Sort(Table.SelectRows(Folder.Files(P), each Text.StartsWith(Text.Lower([Name]), "euromillions-winnende-my-bonus-codes-")), {{"Date modified", Order.Descending}}){0}[Content],
    T = Table.SelectRows(Pdf.Tables(N), each Text.StartsWith([Id], "Table")),
    K = List.Distinct(List.Combine(List.Transform(T[Data], each Table.ColumnNames(_)))),
    X = Table.ExpandTableColumn(T, "Data", K),
    B = Table.FillDown(Table.AddColumn(X, "Bedrag", each try Number.From(Text.AfterDelimiter(Record.Field(_, K{0}), "€")) otherwise null), {"Bedrag"}),
    C = Table.SelectRows(B, each Text.StartsWith(Text.Trim(Record.Field(_, K{0})), "B")),
    R = Table.Distinct(Table.TransformColumns(Table.UnpivotOtherColumns(C, {"Bedrag"}, "A", "BonusCode"), {{"BonusCode", Text.Trim, type text}}), {"BonusCode"})
in
    R

Succes,

SoftAid              

Ik denk dat er tijdswinst te behalen is als het document in .csv- of .xlsx-formaat zou zijn. Ik weet alleen niet of dat haalbaar is. In jouw voorbeeld haalt Power Query nu telkens 92 tabellen uit het PDF, en dat kost enorm veel tijd.

Als de PDF tabellen bevat:
Excel ... Gegevens .... Gegevens ophalen .... Uit bestand .... Uit PDF 
Excel haalt de tabellen binnen .... je kunt exporteren naar CSV

SoftAid              

Ik heb snellere manier gevonden voor PDF import in Excel. VBA en Python.

VBA code:   
Sub RunPythonScriptPDF()
    Dim ShellApp As Object
    Dim PythonExe As String, PythonScript As String, Command As String
    Dim PdfFolder As String, ScriptFolder As String
    Dim CsvPath As String, FoutlogPath As String
    Dim wsParam As Worksheet
   
    Set wsParam = ThisWorkbook.Sheets("Parameter")
   
    ' 1. Paden rechtstreeks uitlezen uit de 4 aparte tabellen
    On Error Resume Next
    PdfFolder = wsParam.ListObjects("tblFile").DataBodyRange(1, 2).Value
    PythonExe = wsParam.ListObjects("tblExe").DataBodyRange(1, 2).Value
    PythonScript = wsParam.ListObjects("tblScript").DataBodyRange(1, 2).Value
    ScriptFolder = wsParam.ListObjects("tblFolder").DataBodyRange(1, 2).Value
    On Error GoTo 0
   
    ' Controleer of alle parameters succesvol zijn geladen
    If PdfFolder = "" Or PythonExe = "" Or PythonScript = "" Or ScriptFolder = "" Then
        MsgBox "Fout: Een of meerdere parameters konden niet worden gevonden.", vbCritical
        Exit Sub
    End If
   
    ' CSV en Foutlog paden samenstellen
    CsvPath = ScriptFolder & "output_codes.csv"
    FoutlogPath = ScriptFolder & "foutlog.txt"
   
    ' Verwijder oud CSV- en foutlogbestand indien aanwezig
    On Error Resume Next
    Kill CsvPath
    Kill FoutlogPath
    On Error GoTo 0

    ' 2. Python uitvoeren (0 = Onzichtbaar venster, True = Wacht op afronding)
    Command = """" & PythonExe & """ """ & PythonScript & """ """ & PdfFolder & """"
    Set ShellApp = CreateObject("WScript.Shell")
    ShellApp.Run Command, 0, True
   
    ' 3. Controleer of de CSV is aangemaakt, zo niet lees foutlog
    If Dir(CsvPath) = "" Then
        If Dir(FoutlogPath) <> "" Then
            MsgBox "Fout in Python script. Bekijk " & FoutlogPath & " voor details.", vbCritical
        Else
            MsgBox "Fout: Python heeft geen data kunnen wegschrijven.", vbCritical
        End If
        Exit Sub
    End If
   
    ' 4. Tabblad controleren of aanmaken
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets("Bonus")
    On Error GoTo 0
   
    If ws Is Nothing Then
        Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        ws.Name = "Bonus"
    Else
        Dim qt As QueryTable
        For Each qt In ws.QueryTables
            qt.Delete
        Next qt
        ws.Cells.Clear
    End If
   
    ' 5. QueryTable om de CSV in te laden
    With ws.QueryTables.Add(Connection:="TEXT;" & CsvPath, Destination:=ws.Range("A1"))
        .TextFileParseType = xlDelimited
        .TextFileSemicolonDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
   
    MsgBox "Klaar! De bonuscodes zijn succesvol bijgewerkt in het tabblad 'Bonus'.", vbInformation
End Sub
-----------------------------------------------------------------------------------------------------
Python script:

import os
import re
import sys
import pandas as pd
import pdfplumber
def verwerk_my_bonus_pdf(geselecteerd_pad):
    # Verwijder spaties én eventuele verdwaalde aanhalingstekens uit het pad
    geselecteerd_pad = geselecteerd_pad.strip().replace('"', "")

# 1. Nieuwste bestand zoeken
    zoek_patroon = r"^euromillions-winnende-my-bonus-codes-.*\.pdf$"
    bestanden = []

    for f in os.listdir(geselecteerd_pad):
        if re.match(zoek_patroon, f, re.IGNORECASE):
            full_path = os.path.join(geselecteerd_pad, f)
            bestanden.append(full_path)

    if not bestanden:
        raise FileNotFoundError(
            f"Geen geldige PDF gevonden in de map: {geselecteerd_pad}"
        )

    # Sorteer op modificatiedatum (nieuwste eerst)
    nieuwste_bestand = max(bestanden, key=os.path.getmtime)

    # 2. PDF uitlezen met pdfplumber
    data_lijst = []
    actueel_bedrag = None

    with pdfplumber.open(nieuwste_bestand) as pdf:
        for pagina in pdf.pages:
            tekst = pagina.extract_text()
            if not tekst:
                continue

            regels = tekst.split("\n")
            for regel in regels:
                regel_clean = regel.strip()

                if "€" in regel_clean:
                    bedrag_match = re.search(r"€\s*(\d+)", regel_clean)
                    if bedrag_match:
                        actueel_bedrag = int(bedrag_match.group(1))
                    continue

                # Zoek naar bonuscodes
                codes = re.findall(r"\bB[A-Z0-9-]+\b", regel_clean)
                for code in codes:
                    if actueel_bedrag is not None:
                        data_lijst.append(
                            {"Bedrag": actueel_bedrag, "BonusCode": code}
                        )

    if not data_lijst:
        raise ValueError("Geen bonuscodes gevonden in de PDF")

    # 3. DataFrame maken en duplicaten verwijderen
    df_resultaat = pd.DataFrame(data_lijst)
    df_resultaat = df_resultaat.drop_duplicates(subset=["BonusCode"])

    # 4. Dynamisch pad bepalen op basis van de huidige Windows-gebruikersnaam
    username = os.getlogin()
    basis_pad = f"C:\\Users\\{username}\\OneDrive\\Bureaublad\\Nationale loterij spellen\\Euromillions\\Script"

    output_csv = os.path.join(basis_pad, "output_codes.csv")
    df_resultaat.to_csv(output_csv, index=False, sep=";")


if __name__ == "__main__":
    if len(sys.argv) > 1:
        pdf_folder_path = sys.argv[1]
        try:
            verwerk_my_bonus_pdf(pdf_folder_path)
        except Exception as e:
            # Sla foutlog dynamisch op
            username = os.getlogin()
            foutlog_pad = f"C:\\Users\\{username}\\OneDrive\\Bureaublad\\Nationale loterij spellen\\Euromillions\\Script\\foutlog.txt"
            with open(foutlog_pad, "w") as f:
                f.write(str(e))