[Solved] Vbs & Excel COM works, AutoIt doesn't

[ResNullius]

Office 2003 on XP Pro SP3

The following vbs script functions as expected and returns the Author info for the excel file:

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Test.xls")
Wscript.Echo objWorkbook.BuiltinDocumentProperties("Author")
objExcel.quit

However, the following AutoIt script returns an empty string.

$oExcel = ObjCreate("Excel.Application")
$oWorkbook = $oExcel.Workbooks.Open("C:\Book1.xls")
MsgBox(0,"",$oWorkbook.BuiltinDocumentProperties("Author"))
$oExcel.quit

In fact, the value for any of the BuiltinDocumentProperties returned by the AutoIt script is empty.

What, if anything, am I doing wrong?

Edit: changed subject to [solved]

Edited March 15, 2009 by ResNullius

[ChrisL]

Possibly not doing it the correct way but this seemed to work for me

$oExcel = ObjCreate("Excel.Application")
$oWorkbook = $oExcel.Workbooks.Open(@scriptDir & "\test.xls")
$oProperties = $oWorkbook.BuiltinDocumentProperties()
For $items in $oProperties
    If $items.Name = "Author" then MsgBox(0,"Author", $items.Value )
Next

$oExcel.Close
$oExcel.quit

Edited March 14, 2009 by ChrisL

[ChrisL]

You can get quite a lot of information out of it this way, I had to use the error handler in it because some items failed maybe because they need a different way of getting the data or .Value shouldbe an array maybe?

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); error handler

$oExcel = ObjCreate("Excel.Application")
$oWorkbook = $oExcel.Workbooks.Open(@scriptDir & "\test.xls")
$oProperties = $oWorkbook.BuiltinDocumentProperties()
For $items in $oProperties
    ConsoleWrite($items.Name & " = " & $items.Value &  @crlf)
Next

$oExcel.Close
$oExcel.quit


Func MyErrFunc() 
   $g_eventerror = 1; something to check for when this function returns 
Endfunc

Edited March 14, 2009 by ChrisL

[ResNullius]

Thanks ChrisL, works a treat.

Still, I wonder what the difference is in the way AutoIt deals with the collection...

Edit: Re: the errors http://msdn.microsoft.com/en-us/library/mi...rty(VS.80).aspx

If a given application doesn't define a value for one of the built-in document properties, returning the Value property for that document property causes an error.

Edited March 15, 2009 by ResNullius

[ResNullius]

And here is how to modify the AutoIt script in my original post to work:

$oExcel = ObjCreate("Excel.Application")
$oWorkbook = $oExcel.Workbooks.Open("C:\Book1.xls")
MsgBox(0,"",$oWorkbook.BuiltinDocumentProperties("Author").Value)
$oExcel.quit

[ChrisL]

And here is how to modify the AutoIt script in my original post to work:

$oExcel = ObjCreate("Excel.Application")
$oWorkbook = $oExcel.Workbooks.Open("C:\Book1.xls")
MsgBox(0,"",$oWorkbook.BuiltinDocumentProperties("Author").Value)
$oExcel.quit

Cool... I really didn't know what I was doing I just buggered about with it until I got some data out