如何使用单击按钮将工作簿保存到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

这会将put定义为Unicode文本文件 - 我想这就是你想要的。