Problem you will face that those tickets aren't equally in number of lines. First one has 14 lines, second one 15. ie "Application Impact" isn't provided with the first ticket ... What I say is that you need to check the part before ": " with split and put that in the correct column in excel. If everything was equally logged into a text file you could try this one.
Sub Get_Info_Tickets()'free fileno
Dim fileno As Long
'the lineinfo of the textfile
Dim theinfo As String
'the path
Dim mypath As String
'the file
Dim myfile As String
'rowno in a sheet
Dim rowno As Long
'columnno in a sheet
Dim columnno As Long
'looping through the items of the ticket
Dim theloop As Long
'worksheet holder
Dim myws As Worksheet
mypath = ThisWorkbook.Path & "\"
myfile = "ETSDaily.txt"
'your file ETSDaily.txt resides in the same directory as the workbook
Set myws = ActiveSheet
rowno = 1
columno = 1
fileno = FreeFile
Open mypath & myfile For Input As #fileno
Do While Not EOF(fileno) ' Loop until end of file.
Line Input #fileno, theinfo ' Read line into variable.
If theinfo <> vbNullString Then
If rowno = 1 Then
'we check for headers to put above the columns
For theloop = 1 To 14
If InStr(1, theinfo, ": ") > 0 Then
myws.Cells(rowno, theloop) = Split(theinfo, ": ")(0)
myws.Cells(rowno + 1, theloop) = Split(theinfo, ": ")(1)
Else
myws.Cells(rowno + 1, theloop) = theinfo
End If
Line Input #fileno, theinfo
Next theloop
rowno = rowno + 1
Else
For theloop = 1 To 14
If InStr(1, theinfo, ": ") > 0 Then
myws.Cells(rowno + 1, theloop) = Split(theinfo, ": ")(1)
Else
myws.Cells(rowno + 1, theloop) = theinfo
End If
Line Input #fileno, theinfo
Next theloop
rowno = rowno + 1
End If
End If
Loop
Close #fileno
End Sub
Charlize