EDI (Txt) Datei mit Excel einlesen

Hallo @all,
habe wieder mal ein Problem und hoffe wie so oft, hier eine Lösung bzw. Lösungsansatz zubekommen. Im Moment bekomme ich per FAX eine Sendungsaufstellung ca. 30-70 Positionen, die ich dann in ein Excel Datei (Lieferschein) Sendung für Sendung eingebe und ausdrucke. Jetzt habe ich dem Absender gefragt ob es nicht möglich wäre mir eine Excel bzw. TXT-Datei zu schicken, statt dem FAX. Gesagt ....getan. Nun bekomme ich eine EDI Txt-Datei und habe gehofft, dass diese durch TAB oder ; getrennt wäre! Leider ist es nicht der Fall. Meine Frage kann Excel eine EDI Datei einlesen?
https://www.herber.de/bbs/user/86665.txt und habe noch eine Art Anleitung bekommen?!
https://www.herber.de/bbs/user/86666.xlsx
Vielen Dank
DIRK

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
in ein Modul:

Option Explicit
Sub ReadEDI()
Dim sFile As String, arrFile, i As Long, arrDaten(), iCounter As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Datei wählen"
If .Show = -1 Then
sFile = .SelectedItems(1)
End If
End With
If sFile  "" Then
Open sFile For Input As #1
arrFile = Split(Input(LOF(1), 1), vbCrLf)
Close #1
ReDim arrDaten(UBound(arrFile))
For i = 0 To UBound(arrFile)
Select Case Left(arrFile(i), 2)
Case "R0"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 5, 7, 10, 15, 23, 58), _
Array(2, 2, 3, 5, 8, 35, 30))
Case "R1"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 7, 13, 19, 25, 31, 56, 81, 84, 114, 117, 148, 154, 165, 177, 186, 199), _
Array(4, 6, 6, 6, 6, 25, 25, 3, 30, 3, 31, 6, 11, 12, 9, 13, 3))
Case "R2"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 6, 56, 69), _
Array(3, 50, 13, 3))
Case "R3"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 33, 38, 41, 71, 116), _
Array(30, 5, 3, 30, 45, 11))
Case "R4"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3), _
Array(75))
Case "R6"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 4, 39, 74, 109, 144, 153, 179, 181), _
Array(1, 35, 35, 35, 35, 9, 26, 2, 3))
Case "RT"
arrDaten(i) = fncEDI(arrFile(i), _
Array(3, 6, 12), _
Array(3, 6, 11))
End Select
Next
End If
With Worksheets.Add
For i = 0 To UBound(arrDaten)
If IsArray(arrDaten(i)) Then
.Cells(i + 1, 1).Resize(, UBound(arrDaten(i)) + 1) = arrDaten(i)
End If
Next
.Columns.AutoFit
End With
End Sub
Function fncEDI(ByVal strTmp As String, arr1, arr2)
Dim arrTmp(), i As Integer
ReDim arrTmp(UBound(arr1))
For i = 0 To UBound(arr1)
arrTmp(i) = Trim(Mid(strTmp, arr1(i), arr2(i)))
Next
fncEDI = arrTmp
End Function

Gruß
Rudi

With Worksheets.Add .Columns("A:T").NumberFormat = "@" For i = 0 To UBound(arrDaten) If IsArray(arrDaten(i)) Then .Cells(i + 1, 1).Resize(, UBound(arrDaten(i)) + 1) = arrDaten(i) End If Next .Columns.AutoFit End With

Beliebteste Forumthreads (12 Monate)

	G	H	I	J	K
1
2		So soll es sein	Ausgabe Name	Ausgabe Anzahl
3			Hecker, Berta WB EG	2
4			Müller, Erna WB 1	2
5			Hecker, Berta WB 2	3
6			Schmitt, Petra WB 3	1
7			Schmitt, Angela WB 4	1

verwendete Formeln
Zelle	Formel	Bereich
I3	=A3&" "&B3
J3	=SUMMENPRODUKT((A:A&" "&B:B=I3)*1)
I4	{=INDEX(A$3:A$99&" "&B$3:B$99;VERGLEICH(1;(ZÄHLENWENN(I$3:I3;A$3:A$99&" "&B$3:B$99)=0)*(A$3:A$99&" "&B$3:B$99<>"");0))}	$I$4

EDI (Txt) Datei mit Excel einlesen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

EDI (Txt) Datei mit Excel einlesen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread