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

轉(zhuǎn)載于:https://www.cnblogs.com/anjey/archive/2012/09/24/2700826.html

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。