How will you be extracting the data from the file? Using VB or something else? If you want it with the help of VBA then simply create a code which looks like this:
Code:
Option Explicit
Public iR, jZ As Long, theRows
Sub getFields()
theRows = Application.CountA(ActiveSheet.Range("A:A"))
For jZ = 2 To theRows
Open Cells(jZ, 6) For Input Access Read As #6
Line Input #6, xR
If Left(iR, 7) = "Title: " Then
Cells(jZ, 2) = Right(iR, Len(iR) - 7)
End If
If Left(iR, 8) = "Author: " Then
Cells(jZ, 4) = Right(iR, Len(iR) - 8)
End If
If Left(iR, 9) = "Subject: " Then
Cells(jZ, 3) = Right(iR, Len(iR) - 9)
End If
Loop
Close #6
Next
End Sub
Bookmarks