VBA - 将 excel 工作表导出到 .txt 文件答案

【问题标题】：VBA - Export excel sheet to a .txt fileVBA - 将 excel 工作表导出到 .txt 文件
【发布时间】：2017-10-16 10:42:30
【问题描述】：

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

但是我的输出完全搞砸了，看起来像这样 -

谢谢。

【问题讨论】：

这可能对mrexcel.com/forum/excel-questions/…有帮助
我正在尝试，但它失败了 - 只是试图将 excel 文件保存为 .txt 文件 - sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, FileFilter:="(*.txt)" )
链接不显示如何写出范围吗？它是您要写入文件的列。
选择范围或列不成问题。问题在于将数据导出为 .txt 格式 - 记事本文件。我无法打开对话框。我想立即将 excel 文件保存为 .txt 文件
请尝试ActiveWorkbook.SaveAs Filename:=YourTextFile.txt, FileFormat:=xlText

标签： vba excel

【解决方案1】：

您必须包含文件格式才能另存为文本文件：FileFormat:=xlText。

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

【讨论】：