VBA - 将Excel工作表导出到.txt文件

时间:2017-10-16 10:42:30

标签: excel vba excel-vba

我正在尝试将特定列从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")

但我的输出完全搞砸了,看起来像这样 - Text output

感谢。

1 个答案:

答案 0 :(得分:0)

您必须包含要保存为文本文件的文件格式:Public requestedqueue() As Integer = {1, 2, 3}

FileFormat:=xlText