查看完整版本: 想請問大大們 excel轉txt的vb語法

論壇 › Visual Basic 語言 › 想請問大大們 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



...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>