excel - 如何使用按钮单击将工作簿保存到 txt 文件中

Question

需要将电子表格中的工作簿保存到我所在位置的单独 txt 文件中。

但是我在按钮单击中使用的代码正在将数据传输到所需的位置，并且文件包含我不感兴趣的特殊字符。

当我在打印预览屏幕中获得详细信息时，任何人都可以帮助我获取 txt 文件。

使用的代码：

Private Sub CommandButton1_Click()
Dim xlApp As Object
  Dim xlBook As Object
  Dim xlSheet As Object
  Dim strOutputFileName
  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\bera02a\Desktop\Arun_TAT_Testing_orig_14022013.xls")
  For Each xlSheet In xlBook.Worksheets
    strOutputFileName = "C:\Documents and Settings\bera02a\Desktop\" & xlSheet.Name & ".txt"
    xlSheet.SaveAs strOutputFileName
  Next
  xlApp.Quit

End Sub

Answer 1

我认为您的输出不正确的原因是没有指定所需的保存格式。尝试用以下代码替换您保存的代码行：

xlSheet.SaveAs Filename:=strOutputFileName, FileFormat:=xlUnicodeText

这会将输出定义为 Unicode 文本文件——我想这就是你想要的。