Excel每行資料匯出成txt.檔案的VBA程式碼：

步驟一 設定宏先把載入宏安全性設為中或低

步驟二 插入模組alt+f11開啟VBA編輯器

開啟 選單欄》插入》模組，把下面程式碼加進去

1

2

3

4

5

6

7

8

9

10

11

Sub DaoChu()

Dim I As Integer, J As Long, RW As Long

For I = 1 To

ActiveSheet.UsedRange.Columns.Count

Open

ThisWorkbook.Path

& "\" & Cells(1, I) & ".txt" For Output As 1

For J = 2 To Cells(65536, I).End(3)

.Row

Print #1, Cells(J, I)

.Value

Next J

Close 1

Next I

MsgBox "資料匯出完畢!", vbOKOnly, "匯出成功"

End Sub

步驟三 儲存以後關閉EXCEL步驟四 測試再重新開啟excel，按ctrl+shift+P就完成匯出了，檔案在D盤根目錄下

如果你想放在其他目錄，可以吧Open “D:\” &中的D:\改成你要的目錄，但是目錄不能有中文字元