ACRONAUT Diskussions Forum

Guten Tag,

ich habe ein Problem.

Wenn ich meine Textdatei in ein PDF Formular importiere gibt es eine unschöne Sache.
Meine Daten werden aus einer Exceltabelle via VBA in eine TXT mit Tab geschrieben. Danach importiere ich Sie in meine PDF.
Alle Daten werden auch korrekt an die richtige stelle transferiert ABER meine Zahlen mit Endungen € werden im PDF mit " dargestellt.

ALSO

10,00 € in der TXT
UND
10,00 " im PDF

Kann man das ändern ?
Gibt es da eine Lösung ?

Vielen Dank schon mal.

Hi,

ist die TXT richtig formatiert? Also UTF-8 mit BOM

Grüße,
Andreas

Wenn es was hilft oder jemand sich damit auskennt dann hier mal das Makro dazu.
Es ist ja kein VBA Forum hier.

Sub prcDatenExport(wks As Worksheet)
Const strFile As String = "C:\Neuer Ordner\Versuch\test.txt" 'anpassen

Dim vntTmp(), strTmp As String, intFile As Integer
Dim lngRows As Long, lngRow As Long
Dim lngColumns As Long, lngColumn As Long

intFile = FreeFile

With wks.Range("A1").CurrentRegion

lngRows = .Rows.Count
lngColumns = .Columns.Count

End With

ReDim vntTmp(1 To lngColumns)

Open strFile For Output As #intFile

With wks

For lngRow = 1 To lngRows

For lngColumn = 1 To lngColumns

vntTmp(lngColumn) = .Cells(lngRow, lngColumn).Text

Next

Print #1, Join(vntTmp, vbTab)

Next
End With

Close #intFile

End Sub

Hi,

häng doch bitte der Einfachheit halber mal noch so eine TXT Datei an. (Mit irgendwelchen Fake Daten bitte, damit wir keine Datenschutzprobleme bekommen)

Danke,
Andi