ich habe versucht daten aus DATEV-inputforamt "c:\change\ED00008" auszulesen mit folgendem Script
Dim s As New SELFRead
Dim int_Fehler As Long
'Open Format
x = s.Open("Datev-FBOP-BW-KNE", "V:\Produkte\MESO_DATEV_NEU\Source\DatevNewStyle Version 3.3.1\self32.ini", "c:\change\ED00008", 1)
Debug.Print "OPEN " & x
'Create TempSet
x = s.CreateTempSet("Datev-FIBU-KNE-Gruppensumme")
Debug.Print "TempSet " & x
'Read Temp
x = "ReadTempSet " & s.ReadTempSet(int_Fehler)
'Deklarationen
Dim DFV As String
Dim man As String
'Get Field
x = s.GetField("Summe", DFV)
'x = s.GetFieldAt(0, DFV)
Debug.Print "Get Field " & x
Debug.Print "Wert " & DFV
'----------------------------------------
bitte um zu prüfen.
Danke für eure Aufmerksamkeit
Mimo