excel中多列数据分别按列导出txt

忽而暖冬 · 发表于 2019-6-29 12:00

本帖最后由忽而暖冬于 2019-6-29 16:28 编辑

求助大神，excel中有多列数据，想按列导出txt（一列一个txt），最好是每列的第一行生成文件名，然后第一行至最后一行为txt的内容。有没有技术大神帮忙指点下代码~~

changhong8 · 发表于 2019-6-29 12:10

代码如图所示

约定的童话 · 发表于 2019-6-29 12:29

一个没附件，一个直接飙代码。。。。。都是牛人！

zpy2 · 发表于 2019-6-29 13:11

一个没附件，一个直接飙代码。。。。。都是牛人！

忽而暖冬 · 发表于 2019-6-29 16:47

changhong8 发表于 2019-6-29 12:10
代码如图所示

呜呜~提示：类型不匹配

忽而暖冬 · 发表于 2019-6-29 16:47

约定的童话发表于 2019-6-29 12:29
一个没附件，一个直接飙代码。。。。。都是牛人！

不好意思呀，初来乍到不太懂规矩，已上传附件

changhong8 · 发表于 2019-6-29 16:55

是不是哪里抄错了，运行的没问题

忽而暖冬 · 发表于 2019-6-29 18:16

changhong8 发表于 2019-6-29 16:55
是不是哪里抄错了，运行的没问题

我又对了一遍，现在会提示文件未找到，但其实是可以跑出结果来的，，万分感谢！
然后还想请教下，如果行参数插入了了空白行，就会只显示到空白行，这个可以修改成固定显示30行的内容嘛

changhong8 · 发表于 2019-6-29 18:24

arr = range("a1").currentregion ---> arr = intersect(activesheet.usedrange.entirecolumn,rows("1:30")

changhong8 · 发表于 2019-6-30 08:24

忽而暖冬发表于 2019-6-29 18:16
我又对了一遍，现在会提示文件未找到，但其实是可以跑出结果来的，，万分感谢！
然后还想请教下，如果行 ...

文件未找到的错误原因是shell "explorer.exe " & mypath
explorer.exe后面跟的有个空格，这句就是打开txt所在文件夹的语句

		自动登录	找回密码
密码			免费注册

最新热点 /1