首页 > 代码库 > 如何把Excel中的每一行都存储为一个TXT文档
如何把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上加了一个按钮控件。在开发工具里面点击控件,点击按钮,进行插入,双击按钮,输入以上代码,即可。
如何把Excel中的每一行都存储为一个TXT文档
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。