如何使用按鈕單擊將工作簿保存到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文本文件 - 我想這就是你想要的。