|
Guten Tag zusammen,
ich versuche zurzeit, mehrere Tabellen, die ich über Query aus einem PDF gelesen habe, zusammenzuführen. Das Problem jedoch ist, dass ich dies ganze skalibar für unterschiedliche Seitenanzahlen benötige (zuvor 6 Seiten). Dazu habe ich versucht, das Argument von Table.Combine als Array vorher zu definieren. Jedoch wird das Array von der Funktion nicht akzeptiert und ich weiß nicht, wo die Syntax fehlerhaft ist.
Ich danke euch schonmal für eure Hilfe.
Lg Max
Codeausschnitt:
'Max_Seiten wird von einer vorherigen Funktion geliefert
Dim Insert_Array() As Variant
ReDim Insert_Array(Max_Seiten)
Insert_Array(0) = "#" & Chr(34) & Chr(34) & "Geänderter Typ" & Chr(34) & Chr(34)
For i = 1 To (Max_Seiten)
Insert_Array(i) = " #" & Chr(34) & Chr(34) & "Table00" & (i + 1) & " (Page " & (i + 1) & ")" & Chr(34) & Chr(34)
Next i
ActiveWorkbook.Queries.Add Name:="Raumberechtigungstabelle", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Quelle = Pdf.Tables(File.Contents(""" & Dateipfad & """), [Implementation=""1.2""])," & Chr(13) & "" & Chr(10) & " Table001 = Quelle{[Id=""Table001""]}[Data]," & Chr(13) & "" & Chr(10) & " #""Geänderter Typ"" = Table.TransformColumnTypes(Table001,{{""Column1"", type text}, {""Column2"", type text}, {""Co" & _
"lumn3"", type text}})," & Chr(13) & "" & Chr(10) & " #""Angefügte Abfrage"" = Table.Combine(Insert_Array)" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Angefügte Abfrage"""
Für Insert_Array stand dort zuvor: {#""Geänderter Typ"", #""Table002 (Page 2)"", #""Table003 (Page 3)"", #""Table004 (Page 4)"", #""Table005 (Page 5)"", #""Table006 (Page 6)""}
|