使用VBA将EXCEL中部分行列导出到txt文件-excel导出txt宏,excel宏生成txt文件

Excel每行数据导出成txt.文件的VBA代码：

步骤一 设置宏先把加载宏安全性设为中或低
步骤二 插入模块alt+f11打开VBA编辑器
打开 菜单栏》插入》模块，把下面代码加进去

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 "数据导出完毕7a64e78988e69d83335!", vbOKOnly, "导出成功"
End Sub

步骤三 保存以后关闭EXCEL步骤四 测试再重新打开excel，按ctrl+shift+P就完成导出了，文件在D盘根目录下
如果你想放在其他目录，可以吧Open “D:\” &中的D:\改成你要的目录，但是目录不能有中文字符

答：百导出的数据不变的原因是程序读取度的总是之前保存的文件中的值。

我重知写了下代码，生成的文件道名是：结果.txt，放在桌面上。

Sub ExlportText()
    Dim Rng As Range
    Set Rng = Range("H9") ''红框线专内左上角单元格，我猜的属
    Open "C:\Users\my\Desktop\结果.txt" For Output As #1
    Do Until IsEmpty(Rng)
        Print #1, Rng & Rng.Offset(0, 1)
        Set Rng = Rng.Offset(1, 0)
    Loop
    Close #1
End Sub

用一百个循度环知就搞道定了版。权
Sub save2Txt()
Dim f As String
Dim BigString As String

Range("C1:F9").Select

BigString = ""

For Each r In Selection
BigString = BigString & " " & r.Value
Next r

f = ThisWorkbook.Path & "\a.txt"

Open f For Output As #1

Write #1, BigString

Close #1

End Sub

excel宏导出完美解决