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

Question

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

但我使用的按钮点击的就是数据ertreiving到所需的位置和文件的代码包括的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

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

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

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