資源描述：
《文本文件批量轉(zhuǎn)換為EXCEL程序示例.doc》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、‘此文件可以實(shí)現(xiàn)將指定文件夾下的全部TXT文本文件批量轉(zhuǎn)換為EXCEL格式的XLS文件。為方’便使用，此宏最好放在personal.xls中（取消窗口隱藏）?！趯?shí)際使用中會需要修改?！绦騺碜跃W(wǎng)上示例，調(diào)試時進(jìn)行了修改‘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)‘下一句為文本文件打開語句。調(diào)整時可以進(jìn)行宏錄制替換下一語句。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‘a(chǎn)rray內(nèi)的兩參數(shù)分別為列數(shù)和類型。‘'另存時覆蓋要有提示去除下面一句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"共轉(zhuǎn)換了"&fn&"個文件!"EndIfEndSub
