如下图所示，要将单元格里边的内容输出到评鲦易纪文本文档里面，手动复制比较费劲，如何才能自动将Excel内容输出到文本文档上面？
工具/原料
操作设备：计算机
操作系统：Windows7
办公软件：Excel2010
方法/步骤
1、打开Excel表格，点击【开发工具】、【VisualBasic】调出VBE编辑器。
2、在VBE编辑器的菜单栏上面点击【插入】、【模块】。
3、在模块代码框里边输入以下VBA程序代码，再按【F5】键运行程序。SubExStr坡纠课柩ing()Dimstr0,st鸡堕樱陨r1,str2,She,myWay,i1,WaitTimeOnErrorResumeNext'忽略运行过程中可能出现的错误Setmysheet1=ThisWorkbook.Worksheets("Sheet1")'定义工作表Sheet1myWay="D:\ABCD1\Wenben.txt"'文本文档输出路径Fori1=2To1000Ifmysheet1.Cells(i1,2)<>""Then'如果单元格不是空白，则str0=">>"&myWay&"&&echo"str1=Replace(mysheet1.Cells(i1,2),Chr(10),str0)'将换行符替换str2="cmd/cecho"&str1&">>"&myWay'命令字符拼接She=Shell(str2,0)'执行cmd命令程序WaitTime=TimeSerial(Hour(Now()),Minute(Now()),Second(Now())+1)Application.WaitWaitTime'间隔1秒后再执行EndIfNextMsgBox"导出完成"EndSub
4、程序运行完成。
5、打开输出路径下面的文本文档。
6、文本文档输出完成。
