Change author in excel

[Marc Vanzegbroeck]

Hi,

Is it possible to fill the author, Title and other property-fields of an excel-file via FiveWin?

Thanks

Marc

[Gale FORd]

When I do not know how to do something in Excel I record a macro, make the changes, then go back and edit the macro to see how Excel did it.

[Marc Vanzegbroeck]

The problem is that a macro doesn't record changing the title or author.

Marc

[Gale FORd]

That does make it harder
I will check.

[Marc Vanzegbroeck]

Hi,

I found on the MicroSoft-site an example how to change the 'Subject'-field it in VBA

Code: Select all  Expand view

Dim properties As Microsoft.Office.Core.DocumentProperties

properties = DirectCast(Globals.ThisDocument.BuiltInDocumentProperties, _
    Microsoft.Office.Core.DocumentProperties)

properties.Item("Subject").Value = "Whitepaper"

 

Do you know how to do this in FWH?

Thanks,
Marc

[anserkk]

Please try the following code. I have not tested this.

Code: Select all  Expand view

oWorkBook:BuiltinDocumentProperties("Author") := cAuthor
oWorkBook:BuiltinDocumentProperties("Title") := cTitle
oWorkBook:BuiltinDocumentProperties("Comments") := cComments

Regards
Anser

[Marc Vanzegbroeck]

Anser,

Unfortunately it doesn't work. I have this error

Error description: Error Excel.Application:ACTIVESHEET/16389 E_FAIL: _BUILTINDOCUMENTPROPERTIES
Args:
[ 1] = C Test

Stack Calls
===========
Called from: win32ole.prg => TOLEAUTO:_BUILTINDOCUMENTPROPERTIES(0)

Regards,
Marc

[anserkk]

Sorry, I missed Value in the statement.

This is working fine for me.

Code: Select all  Expand view

#include "FiveWin.ch"

Function Main()
   Local oExcel,oWorkBook
   
   oExcel:=CreateObject( "excel.application" )
   oWorkBook:=oExcel:Workbooks:Add()
   
   oWorkBook:BuiltinDocumentProperties("Author"):Value := "Anser K.K."
   oWorkBook:BuiltinDocumentProperties("Title"):Value := "Test Title"
   oWorkBook:BuiltinDocumentProperties("Comments"):Value := "Test Comments"
   
   cFile := 'D:\test.xlsx'
 
   oWorkBook:saveAS( cFile )
   oExcel:Quit()  
   MsgInfo("Done")    

Return Nil

Regards
Anser

[Marc Vanzegbroeck]

Thanks Anser,

It's working fine now!!

Regards,
Marc