想請問大大們 excel轉txt的vb語法

a5815481

您好 感謝 大大們抽空看 謝謝
使用下列程式碼 可以將excel轉成txt但是轉換出來換變成
a b c d  <-----文字之間有空白最後1行有換行鍵

想修改成abcd  <----這樣 然後最後行沒有換行鍵 該如何進行修改呢
還是要從文書軟體去排版沒辦法這樣改  謝謝大大

1. Sub SaveSheetToFiles()
   
2.     Dim ws As Worksheet
   
3.     For Each ws In ActiveWorkbook.Worksheets
   
4.         Worksheets(ws.Name).Activate
   
5.         ActiveWorkbook.SaveAs Filename:= _
   
6.         ActiveWorkbook.Path & ws.Name & ".txt", FileFormat:=xlText, _
   
7.         CreateBackup:=False
   
8.     Next
   
9. End Sub

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員