创建一个宏,实现通过excel导出TXT文本功能
2013-04-10 23:11
781 查看
创建一个宏,实现通过excel导出TXT文本功能
点击开发工具->宏
Sub 另存本表为TXT文件() Dim s As String Dim FullName As String, rng As Range Application.ScreenUpdating = False FullName = (ActiveSheet.Name & ".txt") '以当前表名为TXT文件名 ' FullName = Replace(ThisWorkbook.FullName, ".xls", ".txt") '以当前文件名为TXT文件名 ' FullName = Replace(ThisWorkbook.FullName, ".xls", ActiveSheet.Name & ".txt") '以文件名&表名为TXT文件名 Open FullName For Output As #1 '以读写方式打开文件,每次写内容都会覆盖原先的内容 '参考帮助,fullname为文件全名 For Each rng In Range("a1").CurrentRegion s = s & IIf(s = "", "", "|") & rng.Value If rng.Column = Range("a1").CurrentRegion.Columns.Count Then Print #1, s & "|" '把数据写到文本文件里 s = "" End If Next Close #1 '关闭文件 Application.ScreenUpdating = True MsgBox "数据已导入文本" End Sub
在开发工具->插入中选择一个控件,将控件与宏关联,最后把excel另存为xlsm格式。点击控件,TXT导出来啦!!!
相关文章推荐
- 编写一个程序,在E盘下创建一个abc.txt的文本文档,通过输出流在文档内添加数据,然后在把abc.txt复制到F盘下
- 实现一个配置简单功能强大的excel工具类搞定excel导入导出(二)
- ThinkPHP 整合 PHPExcel ,数据导出功能实现,解决Invalid cell coordinate PHPExcel想必大家都不陌生,是用来操作Office Excel 文档的一个PHP
- 关于 数据源 导出excel (这是) 通过 画一个html 实现的、最简单、好理解、的代码、
- java实现把对象数组通过excel方式导出的功能
- JAVA通过正则表达式实现EXCEL小插件取文本功能
- 编写一个通讯录,功能与以前的诺基亚手机一样,可以通过键盘进行箭头的移动,回车进入选项,用“W”键代表手机手机左键,“backspace”键代表返回上一级。能够实现基本的人性化的增删改查及文件的导入导出
- java实现把对象数组通过excel方式导出的功能
- // 编写一个程序,在E盘下创建一个abc.txt的文本文档,通过输出流在文档内添加数据,然后在把abc.txt复制到F盘下
- 通过tableExport.js插件来实现导出Excel/Pdf/txt/json等
- 报表导出到word或者excel的功能实现
- Laravel 5使用Laravel Excel实现Excel/CSV文件导入导出的功能详解
- 在 Laravel 5 中使用 Laravel Excel 实现 Excel/CSV 文件导入导出功能
- 【深入了解cocos2d-x 3.x】一步一步通过ClippingNode实现一个功能完善的跑马灯公告(2)
- 假导出Excel功能实现,按CSV格式快速导出功能代码参考(追求代码追求简洁复用)浙江杭州
- asp.net mvc导出excel文件先保存到服务器某个目录,然后再导出到客户端供客户下载功能的实现
- 通过剪贴板实现将DataGridView中的数据导出到Excel
- OpenXmlHelper,其于OpenXml SDK2.0写的帮助类,主要实现Excel的导出、导入的功能及具体的源码Demo
- EXCEL导出功能实现参考
- java通过jxl.jar实现excel导入导出