Schlagwort: Ordner

Das Auge liest mit!

Power Query

Ich erstelle häufig Power Query-Lösungen für Mitarbeiter und Mitarbeiterinnen verschiedener Firmen. Dabei werden oft Parameter in andere Zellen ausgelagert. Beispielsweise der Ordner, aus dem die Dateien herausgeholt werden.

Sollte der Anwender nun einen falschen Ordnernamen eintragen, soll eine Fehlermeldung kommen. Das geht nicht in Power Query. Aber warum nicht eine Tabelle mit dem Hinweis, dass dieser Ordner nicht existiert. Bei korrekter Eingabe erfolgt die Transformation und das Laden der gewünschten Tabelle in Excel. Hier eine Auflistung der Dateinamen des Ordners:

Wie macht man so etwas?

Man benötigt eine Weiche.

Der eingetragene Pfad wird als Tabelle/Bereich in Power Query verwendet. Nun kommt der Befehl try ins Spiel, der entweder einen Fehler produziert oder nicht. Und je nachdem – Fehler oder nicht – wird die eine Abfrage oder die andere Abfrage aufgerufen. Hier der Code:

let

    Dateipfad  = Excel.CurrentWorkbook(){[Name="Pfad2"]}[Content]{0}[Column1],
    // holt den eingetragenen Verzeichnisnamen aus der Zelle, die "Pfad2" heißt

    Quelle = try Table.RowCount(Folder.Files(Dateipfad)),
    // der try-Befehl

    Ausgabe = if Logical.From(Quelle[HasError]) then Ergebnis_FalscherPfad else Ergebnis_KorrekterPfad
    // Weiche zu der Abfrage/Tabelle, welche angezeigt wird, wenn der Pfad korrekt oder falsch ist
in
    Ausgabe

man probiert also irgendeinen Befehl, beispielsweise Folder.Files. Der Befehl try hat den Parameter HasError, der True oder False liefert – je nachdem, ob Fehler oder nicht:

Eigentlich denkbar einfach, so eine Weiche, oder?

Damit solche Fehlermeldungen nicht auftauchen:

Kommentar hinterlassen , , ,

Ich komme noch aus der Zeit als es keine Selfie-Sticks gab. Da musste noch der Hässlichste aus der Gruppe das Foto machen.

Outlook nervt auch

Manchmal nervt Outlook auch. Vor allem, weil einige Befehle so sehr versteckt sind.

Ich suche über verschiedene Ordner in Outlook und erhalte eine lange Liste:

Nun würde ich gerne wissen, in welchem Ordner diese Mail liegt.

Markiert man eine Mail und drückt [Alt] + [Enter] (bekannt vom Dateisystem vom Explorer), so werden die Eigenschaften der Mail angezeigt. Und damit auch der Speicherort.

Kommentar hinterlassen

Men are like mascara, they usually run on the first sign of emotion.

Excel-Objekte, Power Query, VBA-Befehle

Der Auftrag hörte sich einfach an: Der Kunde wollte ein Add-In, welches alle Dateien aus allen Unterordnern vom firmeneigenen Sharepoint herunterlädt und in bestimmten Zellen Werte einfügt.

Der Knackpunkt war: Sharepoint!

Ich habe lange getüftelt, wie ich „auf den Sharepoint komme“, wie ich die Ordner und Unterordner und die dort befindlichen Dateien auslesen könne. Und herunterladen und bearbeiten.

Irgendwann kam mir die Idee: nicht mit VBA und DIR oder den FileScription-Objekt auf den Ordner losgehen, sondern mit Power Query! Damit kann man leicht alle Dateien aller Unterordner auslesen und auflisten. Der Befehl

SharePoint.Files

macht es möglich. Dieses Power Query-Skript kann leicht mit VBA aufgerufen werden (der Makrorekorder zeigt, wie das funktioniert:

    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=qry_Sharepoint_Dateien;Extended Properties=""""", _
            Destination:=ActiveSheet.Range("$B$5")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [qry_Sharepoint_Dateien]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = strTabellenname
        .Refresh BackgroundQuery:=False
    End With

Das Ergebnis sieht dann so aus:

Und nun gestaltet sich der Zugriff auf die Dateien leicht:

Set xlDateiZugriff = Application.Workbooks.Open ...

Ändern, speichern (eigentlich nicht nötig) und schließen.

Geht doch!

Zugegeben: Sharepoint Zickt! Das hat auch Martin Weiß (https://www.tabellenexperte.de/) bestätigt:

  • Manchmal stürzt das Programm ab!
  • Manchmal öffnet er nicht (obwohl die Datei vorhanden)
  • Manchmal schließt er nicht. Macht einfach nicht mehr zu!

Dennoch: Meistens klappt es. Und schließlich: Excel muss halt ab und zu nerven …

Kommentar hinterlassen , ,

Was kann die Türkei uns schon anhaben? – Sie ernten 70% aller Haselnüsse! – … – Nutella? – Jemanden muss diesen Kerl stoppen!

Power Query

Lustiger Fehler in der PowerQuery-Schulung.

Wir üben, wie man auf einen Ordner zugreift und dort Dateien eines bestimmten Typs, beispielsweise Textdateien ausliest und zusammenfasst.

Ein Teilnehmer meldet sich und fragt, warum es bei ihm nicht funktioniere. Warum bei ihm nur eine Datei bearbeitet wird.

Als ich es mir anschaue, stelle ich fest, dass er nicht auf das Symbol in der Überschrift, also neben dem Feldnamen geklickt hatte:

sondern auf den ersten „Binary“-Eintrag:
Und so wird nur diese eine Datei extrahiert:

Aber kein Problem – denn zum Glück kann man diesen Schritt wieder löschen:

Kommentar hinterlassen

Heute kommt Mutti und bringt zehn Original Thüringer mit. Ich weiß gar nicht, wo die alle schlafen sollen.

Power Query

PowerQuery-Schulung. Ein Teilnehmer sagt, dass er nicht den gesamte Ordnernamen sehen kann und deshalb nicht den richtigen Ordner deselektieren kann.

„Dann schieben Sie halt die Bildlaufleiste nach rechts“, meine ich. „Geht nicht!“

Was ist pasiert?

Wir üben in der PowerQuery-Schulung den Zugriff auf Ordner:

Der Teilnehmer hat die Dateien (auf OneDrive) in einem sehr, sehr langen Ordnernamen abgelegt. Und wirklich: es ist dann leider nicht mehr möglich, die Bildlaufleiste so zu verschieben, dass ich das rechte Ende des Ordners sehen kann:

Die Lösung: Da ich den Text kenne, der am Ende steht, kann ich den gewünschten Ordner auch über „endet nicht mit“ filtern. DAS klappt.

Kommentar hinterlassen , , ,