openWB Forum

PyvanPyro hat geschrieben: ↑Do Mai 16, 2024 11:00 am Hallo Zusammen,
ich habe mir eine Lösung über PowerQuery gebastelt die Großteils automatisiert funktioniert.

Das Prinzip funktioniert wie folgt:

Ich muss händisch jeden Monat die CSV Datei des Abrechnungsmonats herunterladen und in meinen "Hot Folder" ablegen.
Dort habe ich eine xlsm-Datei bei deren Start wird automatisch die CSV Datei eingelesen, Formatierungen (Datum, Währung) und überschüssige Spalten entfernt und auf dem jeweiligen Kalendermonat übertragen.

2.PNG
1.PNG

Im Kopfbereich werden händisch die Benutzerdaten Name , KFZ-Kennzeichen, Strompreis gehegt.
Da ich noch eine Aufwandsentschädigung für meine Private WB bekomme, steht der Einfachheit die Gesamtsumme im Kopf.

Per VBA Makro erstelle ich eine PDF, öffne Outlock und bereite Empfänger, Betreff und Inhalt der Mail per Standardinhalt vor.

Code: Alles auswählen

Sub ExportAndEmailActiveSheet()
    Dim strPath As String
    Dim strFileName As String
    Dim outlookApp As Object
    Dim outlookMail As Object
    
    ' Pfadeinstellung anpassen (zum Desktop des aktuellen Benutzers)
    strPath = Environ("USERPROFILE") & "\Desktop\"
    
     ' Dateiname basierend auf dem Namen des aktiven Tabellenblatts
    strFileName = strPath & ActiveSheet.Name & ".pdf"
    
    ' Tabellenblatt als PDF exportieren
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    ' Outlook-Verbindung herstellen
    Set outlookApp = CreateObject("Outlook.Application")
    Set outlookMail = outlookApp.CreateItem(0)
    
    ' E-Mail-Einstellungen festlegen
    With outlookMail
        .To = "max.mustermann@geht.dich.nix.an.de" ' Hier die gewünschte E-Mail-Adresse eintragen
        .Subject = "Abrechnung WB Mustermann 2024 " & ActiveSheet.Name
        .Body = "Guten Tag xxx" & Chr(13) & _
                "anbei die Abrechnung der Wb vom letzten Monat." & Chr(13) & Chr(13) & _
                "Mit freundlichen Grüßen" & Chr(13)
        .Attachments.Add strFileName
        .Display ' Zum Anzeigen der E-Mail vor dem Senden
        ' .Send ' Zum automatischen Senden der E-Mail
    End With
    
    ' Aufräumen
    Set outlookMail = Nothing
    Set outlookApp = Nothing
End Sub

Mit dieser Lösung bin ich für ein Script Kiddy ganz zufrieden.
Was noch besser wäre wenn ich den Download der CSV, anpassen der Spaltenbreite und Auslösung des VBA Scripts automatisiert bekäme.

Wenn ich mal Zeit finde versuche ich das mithilfe von Power Bi noch weiter auszuwerten, evtl. findet sich ja jemand der da schon einen Ansatz verfolgt.

Gruß Py

PyvanPyro hat geschrieben: ↑Di Dez 03, 2024 5:58 pm Hey,
mit Boardmitteln nicht, müsste mal schauen ob man die Datei so teilen kann das es einfacher geht.