應(yīng)該還有3個相關(guān)的參數(shù)你沒有給弄出來吧 呵呵！哥們寫的不錯�。〈�碼很簡練�。�！
這個工具之前寫過一段！
Sub HAM()
Dim TEMP As Integer
Dim file As String
Dim strtemp As String
Dim tempv
Dim row_num As Long
Dim NODEBNAME As String
Dim tm
tm = Timer

row_num = 2
inputfilename = Application.GetOpenFilename("LOG文件(*.txt;), *.txt;*.xlsx;*.csv", , , , True) '打開支持2003，2007，.CSV文件
If Not IsArray(inputfilename) Then Exit Sub '如果沒有選中相關(guān)工作簿，退出程序
'實現(xiàn)將讀取到的多個文件的第一個文件名轉(zhuǎn)換為字符串類型的變量
filenum = UBound(inputfilename) '讀取打開工作簿的個數(shù)

'Debug.Print (filenum)
For tempv = 1 To filenum
file = CStr(inputfilename(1))
Open file For Input As #tempv
Do While Not EOF(tempv)

file = CStr(inputfilename(1))

Line Input #filenum, strtemp
'Debug.Print (strtemp)
If InStr(strtemp, "LST RANDOMACC") Then
'Debug.Print (strtemp)
Line Input #filenum, strtemp
'Debug.Print (strtemp)
ThisWorkbook.Worksheets("結(jié)果").Cells(row_num + 1, 1) = strtemp
temp_num = row_num
NODEBNAME = ThisWorkbook.Worksheets("結(jié)果").Cells(temp_num, 1)
' Debug.Print (NODEBNAME)
row_num = row_num + 1
'Debug.Print (row_num)
If InStr(strtemp, "RETCODE = 0執(zhí)行成功") Then
row_num = row_num - 1
End If

Else

If IsNumeric(Left(strtemp, 1)) Then
Debug.Print (strtemp)
ThisWorkbook.Worksheets("結(jié)果").Cells(row_num, 1) = NODEBNAME
ThisWorkbook.Worksheets("結(jié)果").Cells(row_num, 4) = Mid(strtemp, 1, 3)
temp1 = Mid(strtemp, 1, 3)

ThisWorkbook.Worksheets("結(jié)果").Cells(row_num, 5) = Mid(strtemp, 16, 3)

ThisWorkbook.Worksheets("結(jié)果").Cells(row_num, 6) = Mid(strtemp, 385, 3)
ThisWorkbook.Worksheets("結(jié)果").Cells(row_num, 7) = Mid(strtemp, 475, 3)
ThisWorkbook.Worksheets("結(jié)果").Cells(row_num, 8) = Mid(strtemp, 510, 3)
ThisWorkbook.Worksheets("結(jié)果").Cells(row_num, 9) = Mid(strtemp, 549, 3)
ThisWorkbook.Worksheets("結(jié)果").Cells(row_num, 2) = NODEBNAME & "_" & ((temp1 / 6) + 1)
row_num = row_num + 1
End If

End If



Loop
Next
ThisWorkbook.Worksheets("結(jié)果").Cells(1, 1) = "基站名"
ThisWorkbook.Worksheets("結(jié)果").Cells(1, 4) = "本地小區(qū)ID"
ThisWorkbook.Worksheets("結(jié)果").Cells(1, 2) = "小區(qū)名"
ThisWorkbook.Worksheets("結(jié)果").Cells(1, 3) = "小區(qū)號"
ThisWorkbook.Worksheets("結(jié)果").Cells(1, 5) = "載波ID"
ThisWorkbook.Worksheets("結(jié)果").Cells(1, 6) = "DCH IN SYNC初始漢明距離檢測門限"
ThisWorkbook.Worksheets("結(jié)果").Cells(1, 7) = "SPECIAL BURST IN SYNC檢測門限(dB)"
ThisWorkbook.Worksheets("結(jié)果").Cells(1, 8) = "SPECIAL BURST IN SYNC初始檢測門限(dB)"
ThisWorkbook.Worksheets("結(jié)果").Cells(1, 9) = "SPECIAL BURST OUT SYNC檢測門限(dB)"
row_num = ThisWorkbook.Worksheets("結(jié)果").UsedRange.Count
'Debug.Print (row_num)
'For temp2 = 1 To row_num
'If IsEmpty(Cells(temp2, 2)) Then
'Rows(temp2).Delete
'End If
'Next



Close #filenum

MsgBox ("程序運行結(jié)束！ 運行時間為：" & Format(Timer - tm))
End Sub