E-Rechnung

VBA ist ein tolles Werkzeug auch wenn es etwas Microsoft lastig ist. XML Dateien kann VBA allerdings von Hause aus nicht verarbeiten. Das Schöne ist, eine XML Datei ist ja nur eine einfache Textdatei. Die können wir mit VBA lesen und schreiben.

z.B. mit so einer Funktion:

Function ReadFile(strFilePath As String) As String
On Error GoTo ErrHandler
Dim myFSO As Object
Dim myFSOTs As Object
Dim DataLine As String, tmpCtr As Integer
Dim Data As String, xml As Boolean

    Set myFSO = CreateObject("scripting.FileSystemObject")
    Set myFSOTs = myFSO.OpenTextFile(strFilePath, 1)

    Do Until myFSOTs.AtEndOfStream
        DataLine = myFSOTs.readline
        If InStr(1, DataLine, "<?xml") > 0 Then xml = True
        If xml Then Data = Data & DataLine
    Loop

    ReadFile = Data

errExit:
    Exit Function
ErrHandler:
    MsgBox Err.Number & vbCrLf & Err.Description
    Resume errExit
End Function

Ich habe hier schon den oberen Teil des Files abgeschnitten, der nicht zum XML gehört, weil ich die Funktion nutze um das XML aus einer ZUGFReD Rechnung zu extrahieren.

Das geht dann etwa so:

  Dim strStream As String
  strStream = Mid(strStream,   InStr(1, strStream, "<?xml"))
  If InStr(1, strStream, "</rsm:CrossIndustryDocument>") > 0 Then
      strStream = Mid(strStream, 1, InStr(1, strStream, "</rsm:CrossIndustryDocument>") + 27)
  Else
      strStream = Mid(strStream, 1, InStr(1, strStream, "</rsm:CrossIndustryInvoice>") + 26)
  End If

Die zwei unterschiedlichen Endtags verraten mir auch ob es ein CII oder CID Dokument ist. CID wird übrigens nur noch von veralteten Rechnungssystemen benutzt und ist gemäß Wachstumschancengesetzt kein gültiges E-Rechnungsformat mehr.