|
Guten Morgen zusammen,
ein leider plötzlich verstorbener Arbeitskollege von mir hat ein Skript erstellt, mit dem aus digitalen PDFs Daten ausgelesen (PDFs werden zuvor komplett in txt umgewandelt) und in Excel eingefügt / weiter verarbeitet werden.
Bei den PDFs handelt es sich um Rechnungen, bei welchen sich nun wiederum das Format geändert hat.
Zuvor stand die Zahl / Barcode linksbündig, nun steht sie eingerückt.
Ich habe dies hier mal als Link eingefügt.
https://de.share-your-photo.com/1bfc6dc217
Im alten Format funktioniert der Code/Weiterverarbeitung problemlos, im neuen Format wird Laufzeitfehler 9 ausgegeben.
Der Debugger markiert die fett hervorgehobene Zeile im Code (Auszug):
Function strGetAddress(strDone As String, i As Integer, _
arrFileTXT As Variant, intCnt As Double) As String
Dim strLine As String
Dim strTMP As String
Dim strTMP1 As String
Do While i < 100
strTMP = Trim(Left(arrFileTXT(intCnt - i), 50))
strTMP1 = strTMP
strTMP = UCase(FilterLine("L", strTMP))
If strTMP Like "*" & strDone & "*" Then
strGetAddress = strLine
Exit Do
End If
If Not strTMP1 = "" Then
' Debug.Print "+ "; strLine
strLine = strLine & " | " & strTMP1
End If
'
i = i + 1
Loop
End Function
Vermutlich ist dies kein großes Problem, nur leider sind meine VBA Kenntnisse marginal und ich weiß ehrlich gesagt nicht was zu tun ist, von daher hoffe ich das mir hier jemand helfen kann.
Vielen Dank im Voraus für die Unterstützung!
Micha
|