如何使用button单击将工作簿保存到txt文件中

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

但是我在button点击中使用的代码正在将数据提交到所需的位置，并且这些文件包含了iam不感兴趣的特殊字符。

任何人都可以帮助我获取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

我认为不正确的输出的原因是不指定所需的保存格式。 尝试用这个replace你的保存的代码行：

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

这将定义出作为Unicode文本文件 – 我想这就是你想要的。