Wie Exportieren mehrerer Excel-Spalten in eine Textdatei ohne Tabulatoreinzug mithilfe von VBA?

Question

Ich habe versucht, zwei Spalten in eine Textdatei zu exportieren. Ich habe den folgenden Code geschrieben:

Dim wb As Workbook 
Dim WorkRng As Range 
Dim saveFile As String 
//Some code for selecting the range 

Set wb = Application.Workbooks.Add 
WorkRng.Copy 
wb.Worksheets(1).Paste 

//Code for saving the file in *.txt 
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt") 
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False 

Nach dem Speichern der Datei. Die Zeilen in zwei Spalten werden als Tab getrennt eingefügt. Gibt es eine Möglichkeit, sie ohne Einrückung einzufügen?

Wie in einer der Antworten erwähnt, wenn Dateiformat xlCSV ist, werde ich eine Datei mit kommagetrennten Werten erhalten. Ähnlich möchte ich wissen, wie man eine ":" getrennte Spalten erhält.

Answer 1

Sie können jede Zeile durchlaufen und die beiden Spalten vor dem Speichern verketten.

Dim wb As Workbook 
Dim WorkRng As Range 
Dim saveFile As String 
Dim sh As Worksheet 
Dim rw As Range 

//Some code for selecting the range 

Set wb = Application.Workbooks.Add 
WorkRng.Copy 

Set sh = wb.Worksheets(1) 
sh.Paste 

For Each rw In sh.Rows 
    If sh.Cells(rw.Row, 1).Value = "" Then 
    Exit For 
    End If 

    rw.Cells(rw.Row, 1).Value = Concat(rw.Cells(rw.Row, 1).Value, rw.Cells(rw.Row, 2).Value) 
    rw.Cells(rw.Row, 2).Value = "" 
Next rw 

//Code for saving the file in *.txt 
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt") 
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False