伊莉討論區

標題: 想請問大大們 excel轉txt的vb語法 [打印本頁]

作者: a5815481 時間: 2020-6-20 02:01 PM 標題: 想請問大大們 excel轉txt的vb語法

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

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

Sub SaveSheetToFiles()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Worksheets(ws.Name).Activate
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & ws.Name & ".txt", FileFormat:=xlText, _
CreateBackup:=False
Next
End Sub

複製代碼

歡迎光臨伊莉討論區 (http://a402.file-static.com/)