请选择 进入手机版 | 继续访问电脑版
查看: 774|回复: 0

把excel每一行各导出为一个txt文本

[复制链接]

346

主题

501

帖子

1929

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
1929
QQ
发表于 2019-12-30 23:43:43 | 显示全部楼层 |阅读模式
  excel中需要把每一行数据都导出为一个txt文本的时候,一行一行复制出来很简单,但是遇到特别多数据的时候,怎么可能一个一个复制出来呢?这个时候就需要借助excel的VBA。
forum.jpg
  工具/原料 excel中的VBA  方法/步骤 1  首先用快捷键Alt+F11,打开VBA,打开后界面如下。
forum.jpg
2
  然后在左上的那个窗口里面找到导出的表格,左键双击输入指令。
forum.jpg
3
  输入的指令为: 
  1.   Sub txt()
  2.   Dim i, j, arr(), brr(), myRow, myCol
  3.   arr = Sheet1.UsedRange
  4.   myRow = UBound(arr, 1)
  5.   myCol = UBound(arr, 2)
  6.   For i = 1 To myRow
  7.   Open ThisWorkbook.Path & "" & arr(i, 1) & "1.txt" For Output As #1
  8.   Print #1, Join(Application.Index(arr, 1), ",")
  9.   Print #1, Join(Application.Index(arr, i), ",")
  10.   Close #1
  11.   Next
  12.   End Sub
复制代码



这个指令具体是什么意思是需要系统学习VBA的,非专业人员只需要复制就ok了。
forum.jpg
4
  输入完指令后在上面的菜单栏找到运行,然后选择第一个:运行子过程/用户窗体
forum.jpg
5
  最后点击运行就可以了,输出的txt会保存在excel的目录里面。
forum.jpg
6
  如图所示,导出的txt中,第一行是表格名称,第二排是这行的所有信息。
forum.jpg

f703738da97739122b16d42ff4198618367ae248.jpg.png
a8773912b31bb05163f0e5663a7adab44bede0ac.jpg.png
78310a55b319ebc43b4827d78e26cffc1e17164f.jpg
b17eca8065380cd76b85f4a3ad44ad34588281e1.jpg
37d3d539b6003af3d7218a2e392ac65c1138b6e1.jpg
79f0f736afc379318354d767e7c4b74543a911bb.jpg
0824ab18972bd4074313b9b377899e510eb309a3.jpg
观棋不语真君子,落子无悔大丈夫
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册  

本版积分规则

快速回复 返回顶部 返回列表