文本文件批量轉(zhuǎn)換為EXCEL程序示例文本文件批量轉(zhuǎn)換為EXCEL程序示例文本文件批量轉(zhuǎn)換為EXCEL程序示例xxx公司文本文件批量轉(zhuǎn)換為EXCEL程序示例文件編號(hào)：文件日期：修訂次數(shù)：第1.0次更改批準(zhǔn)審核制定方案設(shè)計(jì)，管理制度‘此文件可以實(shí)現(xiàn)將指定文件夾下的全部TXT文本文件批量轉(zhuǎn)換為EXCEL格式的XLS文件。為方’便使用，此宏最好放在中（取消窗口隱藏）?！趯?shí)際使用中會(huì)需要修改?！绦騺?lái)自網(wǎng)上示例，調(diào)試時(shí)進(jìn)行了修改‘Subtxt2xls()DimtmpAsString,fsAsStringDimfnAsIntegerDimxwAsWorkbook,ywAsWorkbookDimtpfs=("txt文件*.txt,*.txt",,"請(qǐng)選擇所在目錄的任一個(gè)文本文件")IfCStr(fs)="false"ThenMsgBox"沒(méi)有選擇文件"ElseSetfso=CreateObject("")tp=(fs)=Falsetmp=Dir(tp&"\*.txt")DoWhileLen(tmp)‘下一句為文本文件打開(kāi)語(yǔ)句。調(diào)整時(shí)可以進(jìn)行宏錄制替換下一語(yǔ)句。Filename:=tmp,origin:=936,startrow:=_1,DataType:=xlDelimited,other:=1,otherchar:=",",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),Array(23,1)),trailingminusnumbers:=True‘otherchar為分隔符時(shí)（other需為1，datatype需為xlDelimited‘a(chǎn)rray內(nèi)的兩參數(shù)分別為列數(shù)和類型?！?另存時(shí)覆蓋要有提示去除下面一句=FalseDimtpathAsString,xsheetAsWorksheettpath=ForEachxsheetInFilename:=tpath&"\"&&".xls"Next'另存時(shí)覆蓋要有提示去除下一句=True=True=Falsesavechanges:=Falsefn=