VBA Excel export in TXT mit TAB
26.02.2020 16:54:36
Hochheim
ich habe eine Frage. Ich möchte meine Exceltabelle via Makro in eine Texdatei schreiben.
Zeile 1 mit Tab´s getrennt dann Enter und Zeile B mit Tab´s getrennt.
Dafür habe ich was aus dem Netz gefunden, was auch wunderbar funktioniert. Das ganze hat nur einen Fehler.
Eine Zelle die als Währung deklariert ist z.B. 100,00 wird in der TXT datei nur als 100 geschrieben.
Es soll aber genau das geschrieben werden was in der Tabelle 1 zu 1 steht.
Sonst hat es alles was ich suche. Es soll halt auch automatisch gespeichert und immer wieder ersetzt werden ohne mich zu fragen.
Kann man mir da helfen ?
Sub tt()
prcDatenExport Sheets("Daten")
End Sub
Sub prcDatenExport(wks As Worksheet)
Dim vntData, vntTmp(), strTmp As String, intfile As Integer
Dim i As Long, j As Long
Const strFile As String = "D:\Mieterdatenbank\Versuch\test.txt" 'anpassen
Const strDelim As String = vbTab 'Trennzeichen Tab
intfile = FreeFile
vntData = wks.Range("A1").CurrentRegion
ReDim vntTmp(1 To UBound(vntData, 2))
Open strFile For Output As intfile
For i = 1 To UBound(vntData)
For j = 1 To UBound(vntData, 2)
vntTmp(j) = vntData(i, j)
Next
strTmp = Join(vntTmp, strDelim)
Print #1, strTmp
Next i
Close intfile
End Sub