Aktuell kann es Probleme bei der Anmeldung mit dem Chrome oder Edge Browser geben. Ihr müsstet in die Einstellungen des Browsers gehen und Cache, Cookies und sofern vorhanden, gespeicherte Passwörter vom CEF löschen oder alternativ auf einen anderen Browser ausweichen. Ursache sind vermutlich kürzliche Browserupdates. x

Power Query - Quellbezug
#1
Question 
Guten Tag,

ich möchte meine Power Query (welche Ordnerstrukturen ausliest und die PDF-Dateien auflistet) automatisieren, diese soll ihren Quellbezug immer aus dem Verzeichnis nehmen in der die aktuelle Excel-Datei liegt. Also wenn z.B. Excel-Datei in "C:\Dokumente\Neu" liegt, dann soll die Power Query die Ordner aus "C:\Dokumente\Neu" durchsuchen und dort alle PDF's rausfiltern und auflisten, ohne dass ich das Verzeichnis manuell angebe, weil ich möchte diese als Vorlage verwenden und immer nur die Excel-Datei kopieren.

Vielen Dank im Voraus!

Mit freundlichen Grüßen
Atomic
Top
#2
Hallo, :19:

wenn Du rein gar nichts mehr anklicken und ändern möchtest, bietet sich hier VBA an - Stichwort "Workbook_Open()" und "ThisWorkbook.Path". :21:
Top
#3
Hallo

Ein Treffer aus meiner Web-Suche:
https://social.msdn.microsoft.com/Forums...otforexcel

Weitere Treffer solltest du selber finden können.
Wir sehen uns!
... Detlef

Meine Beiträge können Ironie oder Sarkasmus enthalten.

Top
#4
hallo

das Prinzip wird auch in Shifts Link beschrieben, ich nutze eine PQ-Funktion fnGetParameters() zum Auslesen einer Parametertabelle(in eine leere Abfrage kopieren)
Code:
(ParameterName as text) =>
let
   ParamSource = Excel.CurrentWorkbook(){[Name="Parameters"]}[Content],
   ParamRow = Table.SelectRows(ParamSource, each ([Parameter] = ParameterName)),
   Value=
       if Table.IsEmpty(ParamRow)=true
       then null
       else Record.Field(ParamRow{0},"Value")
in
   Value

Die eigentliche Abfrage kann dann z.B. so lauten:
Code:
let
   FilePath = Text.From(fnGetParameters("FilePath")),
   Source = Excel.Workbook(File.Contents(FilePath & "\fnGetParameters.xlsx"), null, true)
in
   #"Source"
Der Parameter FilePath im Beispiel wird mit einer Formel so gebildet
Code:
=LINKS(ZELLE("filename";A1);FINDEN("[";ZELLE("filename");1)-1)


Angehängte Dateien
.xlsx   fnGetParameters.xlsx (Größe: 15,64 KB / Downloads: 12)
Willie
Top
#5
Hallo,

So sieht sie der Query-Code derzeit aus mit meiner Formatierungen und Regeln für die Tabelle:

let

    Quelle = Folder.Files("D:\Excel-Vorlage"), (Was muss "Quelle =" sein, damit sie den ThisWorkbook.Path nimmt?)
    #"Gefilterte Zeilen" = Table.SelectRows(Quelle, each Text.Contains([Name], "_")),
    #"Entfernte Spalten" = Table.RemoveColumns(#"Gefilterte Zeilen",{"Content", "Date accessed", "Extension", "Date modified", "Date created", "Attributes", "Folder Path"}),
    #"Sortierte Zeilen" = Table.Sort(#"Entfernte Spalten",{{"Name", Order.Ascending}}),
    #"Umbenannte Spalten" = Table.RenameColumns(#"Sortierte Zeilen",{{"Name", "Hersteller1"}}),
    #"Sortierte Zeilen1" = Table.Sort(#"Umbenannte Spalten",{{"Hersteller1", Order.Ascending}})
in
    #"Sortierte Zeilen1"
Top
#6
hallo

was genau ist an meiner Beschreibung unverständlich?
Willie
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste