如何把Excel中的每一行都存储为一个TXT文档

当Excel中有多行数据时，恰巧我们也需要把每一行数据都存储成一个txt文档，那么我们要手工一个一个Ctrl+c――>Ctrl+v――>Ctrl+s吗？答案是肯定不行的哇，因为本人需要处理一个存储了6万多条数据的文档，为了珍爱生命，那么本人就利用office里的VBA来投机取巧了！

首先利用快捷键Alt+F11，打开Excel的VBA，输入如下代码：

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim nRow As Long
    nRow = Range("a65536").End(xlUp).Row
    For i = 1 To nRow
        Open ThisWorkbook.Path & "\文件" & i & ".txt" For Output As #1
        Print #1, Range("a" & i)
        Close #1
    Next
    Application.ScreenUpdating = True
    MsgBox "ok"

End Sub

然后点击运行即可。

但是当主主看到，当我关闭VBA时，时候就看不出这个文档的特殊功能了时，就在Excel上加了一个按钮控件。在开发工具里面点击控件，点击按钮，进行插入，双击按钮，输入以上代码，即可。