EXCEL VBA 读取文本文件宏

EXCEL VBA 读取文本文件宏

Sub readtxt()

Dim RlumpLog As String

RlumpLog = Application.GetOpenFilename("BSC Log (*.log), *.log", 1)

If RlumpLog = "False" Then Exit Sub

Dim fn As Integer, i As Integer

Dim MyStr As String

''''''''''''''''''''''

If MyStr = "CELL UTRAN MEASUREMENT FREQUENCY DATA" Then

RlumpM = "ON"

End If

If MyStr = "END" And RlumpM = "ON" Then

RlumpM = "OFF"

If Wcell = "ON" And Len(MyStr) = 7 Then

' i = i + 1

Cells(i, 1) = MyStr

Wcell = "OFF"

End If

''''''''''''''''''''''''

If RlumpM = "ON" And InStr(MyStr, "NODIV") > 0 Then