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.
Exportieren von TXT in eine Formular
-
- Beiträge: 13
- Registriert: 19.02.2020, 15:04
Re: Exportieren von TXT in eine Formular
Hi,
ist die TXT richtig formatiert? Also UTF-8 mit BOM
Grüße,
Andreas
ist die TXT richtig formatiert? Also UTF-8 mit BOM
Grüße,
Andreas
-
- Beiträge: 13
- Registriert: 19.02.2020, 15:04
Re: Exportieren von TXT in eine Formular
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
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
Re: Exportieren von TXT in eine Formular
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
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