当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上加了一个按钮控件。在开发工具里面点击控件，点击按钮，进行插入，双击按钮，输入以上代码，即可。
原文地址：http://sz1409024.blog.51cto.com/7007696/1563593
