文本文件批量转换为EXCEL程序示例.doc
《文本文件批量转换为EXCEL程序示例.doc》由会员分享,可在线阅读,更多相关《文本文件批量转换为EXCEL程序示例.doc(2页珍藏版)》请在三一文库上搜索。
1、此文件可以实现将指定文件夹下的全部TXT文本文件批量转换为 EXCEL格式的XLS文件。为方'便使用,此宏最好放在中(取消窗口隐藏) 。在实际使用中会需要修改。程序来自网上示例,调试时进行了修改Sub txt2xls()Dim tmp As String, fs As StringDim fn As IntegerDim xw As Workbook, yw As WorkbookDim tpfs = ("txt 文件 *.txt,*.txt", , "请选择所在目录的任一个文本文件 ")If CStr(fs) = "false&quo
2、t; ThenMsgBox " 没有选择文件 "ElseSet fso = CreateObject("")tp = (fs)= Falsetmp = Dir(tp & "*.txt")Do While Len(tmp) 下一句为文本文件打开语句。调整时可以进行宏录制替换下一语句。 Filename:=tmp, origin:=936, startrow:= _1, DataType:=xlDelimited, other:=1, otherchar:=",", fieldinfo:=Array(Array
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 文本文件 批量 转换 EXCEL 程序 示例
链接地址:https://www.31doc.com/p-12216439.html