text文件按要求将数据写入Excel

开发给过来的数据都是text格式，密密麻麻，可读性很差，没办法，只好自己做一个脚本，将text内容按自己要求写入到Excel中去

Cqb/] GY(f/P seb0Code如下：

0B'eY8G;PEz0Function TextToExcel(TxtFile , ExcelFile)51Testing软件测试网$l|/["}
}*} ^*q }9N
   'TxtFile：需要转换的Text文件路径
#hv1l&GJp0   'ExcelFile：转换后的Excel文件路径
W {5`8La_-t0   Const ForReading = 1  51Testing软件测试网-|@X^%D|v
  
$Xgk_0oN%E@M0   '创建对象51Testing软件测试网^ F#win"Yc*J
   Set fso=createobject("scrīpting.filesystemobject")
;pu BXpu"d
z0   Set ExcelBook = CreateObject("Excel.Application")
7Y(B^.k7OlO!t0   Set ExcelSheet = CreateObject("Excel.Sheet")
E:]S ]f@0  
T(Ooztqg0   '打开一个文本文件
A
OQGBD'[g0   Set f1=fso.opentextfile(TxtFile, ForReading)51Testing软件测试网'G)yVF|
  
$w3x/O%a(Z0   '读取改文件所有内容51Testing软件测试网|*B&w7ZuA4c

   temp= f1.ReadAll
VG!Ot_;Ytn0   51Testing软件测试网"L
E4RV&H
   '按需要进行处理51Testing软件测试网(x'v+xbLV(c
   Arr = Split(temp , ",")51Testing软件测试网[9oC6zl5B4SM!x

51Testing软件测试网Y&@m\y3[9wDC(lv
   If fso.FileExists(ExcelFile) Then
&aUx|rMV0       fso.DeleteFile ExcelFile , True
!b-X4o$a,vt\$fy0   End If51Testing软件测试网Ze FPq+F

   ExcelSheet.Application.visible = False51Testing软件测试网{*`\,ecoNv
   51Testing软件测试网Rk7cHN'pD v
   '将内容逐个写入Excel中   

UaY'kWsU#g^a'x0   For i = LBound(Arr) To UBound(Arr)51Testing软件测试网1].~k~s2B:j {
    ExcelSheet.Activesheet.Cells(i+1 , 1).value = Arr(i)
%j4l+S#{4e^0   Next51Testing软件测试网5Tyc-ZVf

   ExcelSheet.SaveAs ExcelFile51Testing软件测试网A3U:{D1rl.KKD h l
   ExcelBook.Quit
w;m}x#z$`,r0  
7A4Ixt5pf0   '释放对象51Testing软件测试网4?"a5r$l.F1B,g3[z'Q
   Set MyExcelSheet = Nothing
2MP3[v,dn^0   Set MyExcelBook = Nothing
l1[!}KQqs0gs d0   Set ExcelSheet = Nothing
.g`L,U,o0QKu0PCxV0   Set ExcelBook = Nothing
!wn&S9k n~q,j0   Set f1 = Nothing
{Jl8}*w;um,s G0   Set fso = Nothing
#FtMz(i8r"hxJ1WO0End Function51Testing软件测试网7_V2I;o F
} DV