VBA-將Excel工作表導出到.txt文件

Question

我正在嘗試將Excel表格中的特定列導出為.txt文件格式。 我想允許用戶提供要保存的文件的名稱和位置。

我能夠將其保存為.xlsx格式。 有人知道如何將其導出為.dat格式嗎？

這是我的.xlsx導出代碼，

Workbooks.Add
ActiveSheet.Paste
Cells.Select
Selection.Columns.AutoFit
Application.CutCopyMode = False

sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, fileFilter:="Excel Files (*.xlsx), *.xls")

        If sFileSaveName <> False Then
        ActiveWorkbook.SaveCopyAs sFileSaveName
        MsgBox "File Successfully Saved!"
        ActiveWorkbook.Close
        End if

我已經嘗試過這樣的事情，

myFile = Application.GetSaveAsFilename(filefilter:="Text Files (*.txt),*txt")

但是我的輸出完全混亂了，看起來像這樣-

謝謝。

Answer 1

您必須包括一種保存為文本文件的文件格式： FileFormat:=xlText 。

ActiveWorkbook.SaveAs Filename:=YourTextFile.txt, FileFormat:=xlText