PDF oder Speichernamen auslesen

Hallo Forum,
ich möchte gerne eine Tabelle erstellen die entweder PDF Dateien oder dessen Speichernamen ausliest. Je nachdem was einfacher ist. Alle Dateien sind in dem gleichen Ordner untergebracht.
Dabei ist der Speichername so abgelegt:
475 - 04.12.2017 - Firma - Hansen Schildertechnik GmbH - Autokennzeichen - Mühlenstraße 15 - 12345 Zuhause - St. Nr. DE03882837165 - 197,80
Kundennummer-Datum-Anrede-Firmenname-Firmenzusatz-Straße & Hausnummer-PLZ und Ort-Steuernummer-Betrag.
Die Tabelle sollte so aufgebaut werden, ein Datum eingeben kann und Excel die entsprechenden Daten dann in eine Tabelle einträgt. (ausdrucken und fertig)
Ich möchte einfach nur eine Tagesübersicht über die Umsätze erstellen...
Ich hoffe, dass ich mich verständlich genug ausgedrückt habe.
Ach so.... Die Rechnungen sind immer in C:\Recycling\Rechnungen
Danke für eure Vorschläge
Hans

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub dateinameneinlesen1() Dim strPfad As String, strDatnam As String Dim rngEinfüg As Range Dim ACon As Object Dim strTemp As String 'Erst der Pfad strPfad = "C:\Recycling\Rechnungen\" strDatnam = Dir(strPfad & "*.pdf") Set ACon = CreateObject("ADODB.Stream") Do While Len(strDatnam) 'Einfügezelle festlegen Set rngEinfüg = IIf(IsEmpty([A1]), [A1], Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)) rngEinfüg.Offset(, 0) = strTemp 'Dateiname eintragen: rngEinfüg.Offset(, 0) = strDatnam strDatnam = Dir Loop Set rngEinfüg = Nothing Set ACon = Nothing End Sub

Sub dateinameneinlesen1() Dim strPfad As String, strDatnam As String Dim neueZeile As Long, strTemp, i As Integer 'Erst der Pfad strPfad = "C:\Recycling\Rechnungen\" strDatnam = Dir(strPfad & "*.pdf") 'ersteZeile für das Ergebnis neueZeile = 10 'alte Daten löschen Rows(neueZeile).CurrentRegion.Rows.Delete Shift:=xlUp Do While Len(strDatnam) 'Dateinamen aufteilen, Trennzeichen ist " - " strTemp = Split(strDatnam, " - ") 'Prüfen ob Datei mit angegebenen Datum übereinstimmt If strTemp(1) = Format(Range("A1"), "dd.mm.yyyy") Then 'Daten eintragen: For i = 0 To UBound(strTemp) Cells(neueZeile, i + 1) = strTemp(i) Next neueZeile = neueZeile + 1 End If strDatnam = Dir Loop End Sub

Hallo Hans,
dann versuche es mal hiermit:

Sub dateinameneinlesen1()
Dim strPfad As String, strDatnam As String
Dim neueZeile As Long, strTemp, i As Integer
'Erst der Pfad
strPfad = "C:\Recycling\Rechnungen\"
strDatnam = Dir(strPfad & "*.pdf")
'ersteZeile für das Ergebnis
neueZeile = 10
'alte Daten löschen
Rows(neueZeile).CurrentRegion.Rows.Delete Shift:=xlUp
Do While Len(strDatnam)
'Dateinamen (ohne Endung und -Zeichen) aufteilen,  _
Trennzeichen ist " - "
strTemp = Split(Left(strDatnam, Len(strDatnam) - 6), " - ")
'Prüfen ob Datei mit angegebenen Datum übereinstimmt
If strTemp(1) = Format(Range("A1"), "dd.mm.yyyy") Then
'Daten eintragen:
For i = 0 To UBound(strTemp) -1
Cells(neueZeile, i + 1) = strTemp(i)
Next
Cells(neueZeile, i + 1) = CCur(strTemp(i))
Cells(neueZeile, i + 1).Style = "Currency"
neueZeile = neueZeile + 1
End If
strDatnam = Dir
Loop
Cells(neueZeile, i) = "Summe"
Cells(neueZeile, i + 1).Style = "Currency"
Cells(neueZeile, i + 1).FormulaR1C1 = "=SUM(R[-" & neueZeile - 10 & "]C:R[-1]C)"
End Sub

Die rot dargestellten Zeilen habe ich geändert bzw. neu eingefügt.
Die Dateiendung wird dabei entfernt. Außerdem wird der letzte Teil (der Rechnungsbetrag) nicht mehr im String- sondern im Währungsformat in die entsprechende Zelle eingefügt. Damit kann dann in der Tabelle gerechnet werden. Hier wird eine Zeile unter dem letzten Eintrag dann die Summe gebildet.
Gruß
Robert

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PDF oder Speichernamen auslesen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread