![]() |
VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
Von |
Fross |
E-Mail |
alexander.fross@gmx.net |
Datum |
04. Dezember 2015 um 18:39:22 |
Frage |
Guten Abend
Mit dem nachfolgenden Code wird aus Excel eine Zeichenfolge in eine Textdatei geschrieben:Private Sub Write_Textfile(ByVal svText As String) Dim fn As Long Dim sFile As String Dim sPath As String fn = FreeFile sPath = ThisWorkbook.Path & "\" sFile = "IMP_NAV_Serviceartikel.txt" Kill sPath & sFile Open sPath & sFile For Binary As fn Put #fn, 1, svText Close fn End Sub Weiss jemand, wie ich den String svText so konvertieren kann, dass die Umlaute und Sonderzeichen im Format MS-DOS in die Textdatei geschrieben werden. D.h. die Textdatei soll so erstellt werden, wie wenn man die Excel Tabelle mit 'Speichern Unter' im Fileformat 'Text MS-DOS' abspeichert.
Besten Dank für die Hilfe. A. Fross |
|
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|