unicode bei export und doppelzeichen verhindern

Hallo ich drehe mich mit Excel / VBA nun ewigkeiten im Kreis.
entweder das eine oder das andere scheint nicht zu funktionieren.
Mit dem nachfolgenden Script kann ich eine excel Seite in eine Text Datei exportieren.
In der Hochgeladenen Datei ist sie auch inkludiert.
https://www.herber.de/bbs/user/107904.xlsm
Und das klappt auch sogar mit meinem Wunsch dem Unicode format als Text datei sehr gut.
Leider werden damit Sonderzeichen wie [ " ] verdoppelt./ bzw verdreifacht.
Meine bisherige Idee war die Datei nachträglich zu ändern. Also nach ["""] zu suchen und mit " zu ersetzten leider verliere ich dadurch den unicode status.
Ich suche nun nach einer Lösung beim Export diese Zeichen nicht zu vermehren. hat jemand eine idee wie ich dieses Probelm unterbinden kann?.
gruß chris

Sub export()
Application.DisplayAlerts = False
Dim Grundpfad As String
Grundpfad = ActiveWorkbook.Path
Sheets("Sayfa1").Select
Sheets("Sayfa1").Copy
Filename = "\export.txt"
ActiveWorkbook.SaveAs Filename:=Grundpfad & Filename, FileFormat:=xlUnicodeText, CreateBackup:= _
False
ActiveWorkbook.Save
ActiveWorkbook.Close savechanges:=True 'popup bestätigung
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub export() Dim r As Long Dim arr As Variant Dim file As Variant Dim makeFile As String makeFile = ActiveWorkbook.Path & "\export.txt" 'Bitte Pfad anpassen Set file = CreateObject("Scripting.FileSystemObject").CreateTextFile(makeFile, True, True) With ActiveSheet arr = .Range(.[A1], .UsedRange.Cells(.UsedRange.Cells.Count)) If Not IsArray(arr) Then file.WriteLine arr Else For r = 1 To UBound(arr) file.WriteLine Join(WorksheetFunction.Index(arr, r, 0), Chr(9)) Next End If End With file.Close End Sub

Sub M_snb() Tabelle1.UsedRange.Copy With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .GetFromClipboard CreateObject("scripting.filesystemobject").createtextfile("G:\OF\UTf8.txt").write .GetText End With End Sub

Sub export() Dim r As Long Dim arr As Variant Dim file As Variant Dim makeFile As String makeFile = ActiveWorkbook.Path & "\export.txt" ' Pfad Set file = CreateObject("Scripting.FileSystemObject").CreateTextFile(makeFile, True, True) ' _ export.txt wird erstellt With ActiveSheet arr = .Range(.[A1], .UsedRange.Cells(.UsedRange.Cells.Count)) ' der Bereich der _ Kopiert werden soll wird festgelegt If Not IsArray(arr) Then ' wenn der Bereich kein Array (nur eine Zeile also die erste) file.WriteLine arr ' wird die erste Zeile in die TXT geschrieben Else For r = 1 To UBound(arr) ' Hier wird das array auseinander gepflückt für jede Zeile _ ( bei dir 95) file.WriteLine Join(WorksheetFunction.Index(arr, r, 0), Chr(9)) ' hier wird die _ Zeile r in die Txt eingetragen und die einzelnen Spalten mit einem Tab(Chr(9)) getrennt Next End If End With file.Close ' TXT wird geschlossen End Sub

Beliebteste Forumthreads (12 Monate)

unicode bei export und doppelzeichen verhindern

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread