I'm not sure this will work in your case, but try this one.

Sub importlog()
Dim QuoteIN As Long
Dim HeadIn As Long
Dim i As Long, j As Long, pos As Long
Dim strdata As String
Dim HBuf As String, dBuf As String, s As String
Dim Filename
Dim Filenum

Filename = Application.GetOpenFilename _
(FileFilter:= _
"Text file (*.prn;*.txt;*.csv;*.log),*.prn;*.txt;*.csv;*.log" )
If Filename = "False" Then
Exit Sub
End If
Application.ScreenUpdating = False

Filenum = FreeFile()
Open Filename For Input As #Filenum
i = 1

Do While Not EOF(Filenum)
Line Input #Filenum, strdata
j = 1
pos = 1
HeadIn = 1
QuoteIN = 0
Do While (pos <= Len(strdata))
s = Mid(strdata, pos, 1)
If HeadIn = 1 Then
If s = "=" Then
If i = 1 Then
Cells(i, j) = HBuf
End If
HBuf = ""
HeadIn = 0
Else
HBuf = HBuf + s
End If
pos = pos + 1
Else
If s = " " Then
If QuoteIN = 1 Then
dBuf = dBuf + s
Else
Cells(i + 1, j) = dBuf
j = j + 1
dBuf = ""
HeadIn = 1
End If
pos = pos + 1
Else
If s = """" Then
If QuoteIN = 0 Then
QuoteIN = 1
pos = pos + 1
Else
If Mid(strdata, pos + 1, 1) = """" Then
dBuf = dBuf + s
pos = pos + 2
Else
QuoteIN = 0
pos = pos + 1
End If
End If
Else
dBuf = dBuf + s
pos = pos + 1
End If
End If
End If
Loop
Cells(i + 1, j) = dBuf
dBuf = ""
i = i + 1
If i + 1 Cells.Rows.Count And Not EOF(Filenum) Then
Worksheets.Add after:=ActiveSheet
i = 1
End If
Loop
End Sub

keizi

"Yuri S" wrote in message
...
Hi,

I am trying to import data from a firewall log into excel sheet but the
logfile (txt) has rows which contains fieldnames seperated with the =
signs.
The values and fieldnames also contains spaces see example below. Can
anybody
help me to write a macro so I can import the data into Excel?

Example:

start_time="2007-09-20 15:29:33" duration=59 policy_id=2
service=udp/port:1900 proto=17 src zone=Trust dst zone=Untrust
action=Permit
sent=343 rcvd=0 src=1.2.3.4 dst=4.3.2.1 src_port=1487 dst_port=1900
src-xlated ip=1.0.1.0 port=12570<000
start_time="2007-09-20 15:29:33" duration=59 policy_id=2
service=udp/port:1900 proto=17 src zone=Trust dst zone=Untrust
action=Permit
sent=402 rcvd=0 src=1.2.3.4 dst=4.3.2.1 src_port=1488 dst_port=1900
src-xlated ip=1.0.1.0 port=11673<000
start_time="2007-09-20 15:29:33" duration=59 policy_id=2
service=udp/port:1900 proto=17 src zone=Trust dst zone=Untrust
action=Permit
sent=408 rcvd=0 src=1.2.3.4 dst=4.3.2.1 src_port=1489 dst_port=1900
src-xlated ip=1.0.1.0 port=12423<000
start_time="2007-09-20 15:29:33" duration=59 policy_id=2
service=udp/port:1900 proto=17 src zone=Trust dst zone=Untrust
action=Permit
sent=396 rcvd=0 src=1.2.3.4 dst=4.3.2.1 src_port=1490 dst_port=1900
src-xlated ip=1.0.1.0 port=12116<000

Thanks!!