Sub 另存本表為TXT文件()Dim s As StringDim FullName As String, rng As RangeApplication.ScreenUpdating = FalseFullName = (ActiveSheet.Name & ".txt") '以當前表名為TXT文件名' FullName = Replace(ThisWorkbook.FullName, ".xls", ".txt") '以當前文件名為TXT文件名' FullName = Replace(ThisWorkbook.FullName, ".xls", ActiveSheet.Name & ".txt") '以文件名&表名為TXT文件名 Open FullName For Output As #1 '以讀寫方式打開文件，每次寫內容都會覆蓋原先的內容'參考幫助，fullname為文件全名For Each rng In Range("a1").CurrentRegions = s & IIf(s = "", "", "|") & rng.ValueIf rng.Column = Range("a1").CurrentRegion.Columns.Count ThenPrint #1, s & "|" '把數據寫到文本文件里 s = ""End IfNextClose #1 '關閉文件 Application.ScreenUpdating = TrueMsgBox "數據已導入文本"End Sub

轉載于:https://www.cnblogs.com/anjey/archive/2012/09/24/2700826.html

與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的将excel用VBA生成指定格式的TXT文件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。