资源描述：
《文本文件批量转换为EXCEL程序示例.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、‘此文件可以实现将指定文件夹下的全部TXT文本文件批量转换为EXCEL格式的XLS文件。为方’便使用，此宏最好放在personal.xls中（取消窗口隐藏）。‘在实际使用中会需要修改。‘程序来自网上示例，调试时进行了修改‘Subtxt2xls()DimtmpAsString,fsAsStringDimfnAsIntegerDimxwAsWorkbook,ywAsWorkbookDimtpfs=Application.GetOpenFilename("txt文件*.txt,*.txt",,"请选择所在目录的任一个文本文件")IfCStr(fs)="false"Then
2、MsgBox"没有选择文件"ElseSetfso=CreateObject("scripting.filesystemobject")tp=fso.getparentfoldername(fs)Application.ScreenUpdating=Falsetmp=Dir(tp&"*.txt")DoWhileLen(tmp)‘下一句为文本文件打开语句。调整时可以进行宏录制替换下一语句。Workbooks.OpenTextFilename:=tmp,origin:=936,startrow:=_1,DataType:=xlDelimited,other:=1,oth
3、erchar:=",",fieldinfo:=Array(Array(1,1),_Array(2,1),Array(3,2),Array(4,1),Array(5,1),Array(6,1),Array(7,1),_Array(8,1),Array(9,1),Array(10,1),Array(11,1),Array(12,1),Array(13,1),_Array(14,1),Array(15,1),Array(16,1),Array(17,1),Array(18,1),Array(19,1),_Array(20,1),Array(21,1),Array(22,1
4、),Array(23,1)),trailingminusnumbers:=True‘otherchar为分隔符时（other需为1，datatype需为xlDelimited‘array内的两参数分别为列数和类型。‘'另存时覆盖要有提示去除下面一句Application.DisplayAlerts=FalseDimtpathAsString,xsheetAsWorksheettpath=ActiveWorkbook.PathForEachxsheetInActiveWorkbook.Sheetsxsheet.CopyActiveWorkbook.SaveAsFile
5、name:=tpath&""&ActiveSheet.Name&".xls"ActiveWindow.CloseNext'另存时覆盖要有提示去除下一句Application.DisplayAlerts=TrueApplication.ScreenUpdating=TrueApplication.CutCopyMode=FalseActiveWindow.Closesavechanges:=Falsefn=fn+1tmp=DirLoopApplication.ScreenUpdating=TrueMsgBox"共转换了"&fn&"个文件!"EndIfEndSub
