Martyn,

The code is outputting the results to the VBE immediate window.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Martyn" wrote in message
...
Thanks Tom, I managed to install the *.dll but fail to test it. Couse I
haven't got VB5 or VB6 on my PC. Anyway I do not get any errors now when I
run the macro but I ain't getting any Properties either on myscreen?


"Tom Ogilvy" wrote in message
...
Have you downloaded the DSO dll, installed it and registered it?

If not, thats your huckleberry.

http://support.microsoft.com/?id=224351

set the section "Steps to Setup and Test"

--
Regards,
Tom Ogilvy

"Martyn" wrote in message
...
Hi Bob,
Thanks for the answer. But using your suggestion I get a "Run-time
error
'429': ActiveX component can't create object error" this time. By the
way
I
am using XL 2000 with WindowsXP.

"Bob Phillips" wrote in message
...
Hi Martyn,

Try this late binding version

Private Sub Workbook_Open()
Dim FileName As String
Dim DSO As Object
Set DSO = CreateObject("DSOleFile.PropertyReader")
FileName = "c:\myTest\volker1.xls"
With DSO.GetDocumentProperties(sfilename:=FileName)
Debug.Print .AppName
Debug.Print .Author
Debug.Print .ByteCount
Debug.Print .Company
Debug.Print .Title
Debug.Print .Subject
Debug.Print .Author
Debug.Print .Category
Debug.Print .Keywords
Debug.Print .Comments
End With
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)