随着手机里面功能越来越丰富,让我们使用起来越来越方便了,给我们的生活带来了极大的便利。怎样使用VBA导出工作表到txt文件?
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Sub工作表到文本()'以output打开方式DimiAsLong,irowAsLong,SAsStringConstNNameAsString="d:\数据.txt"'要保存文件的位置OpenNNameForOutputAs#1'以读写方式打开文件,每次写内容都会覆盖原先的内容irow=[a1048576].End(xlUp).Row'工作表里最后一列Fori=1Toirow'开始循环写入数据S=Cells(i,1)&"|"&Cells(i,2)&"|"&Cells(i,3)&"|"&Cells(i,4)&"|"&Cells(i,5)Print#1,S'把数据写到文本文件里Nexti'写入下一个Close#1'关闭文件MsgBox"工作表到文本文件转换完成!",65,"提示"EndSub
5、用快捷键Alt+F8调出运行宏窗口,然后单击“执行”按钮,程序瞬间将工作表数据导出到文本文件,存于D盘根目录,名为“数据.TXT”