|
发表于 2010-2-8 09:34
|
显示全部楼层
本楼为最佳答案
Sub 读取() Dim fso As Object Dim objTxt As Object Dim strFileName As String Dim ArrYS, ArrJG, i&, Temp&, j& strFileName = ThisWorkbook.Path & "\11.txt" Set fso = CreateObject("Scripting.FileSystemObject") Set objTxt = fso.OpenTextFile(strFileName) ArrYS = Split(objTxt.readall, vbCrLf) objTxt.Close Set objTxt = Nothing Set fso = Nothing Range("B3:C33").ClearContents ArrJG = Range("B3:C33") For i = 0 To UBound(ArrYS) Temp = Day(Split(ArrYS(i), ",")(0)) If InStr(1, ArrYS(i), "OK", vbTextCompare) > 0 Then ArrJG(Temp, 2) = ArrJG(Temp, 2) & Chr(10) & ArrYS(i) Else ArrJG(Temp, 1) = ArrJG(Temp, 1) & Chr(10) & ArrYS(i) End If Next i For i = 1 To UBound(ArrJG, 1) For j = 1 To 2 If Len(ArrJG(i, j)) > 0 Then ArrJG(i, j) = Right(ArrJG(i, j), Len(ArrJG(i, j)) - 1) End If Next j Next i Range("B3:C33") = ArrJG End Sub |
|