Excel fail when insert OLEObject with Word document

[hmpaquito]

Hi, as subject.

Code: Select all  Expand view

cFull:= "C:\word\document.docx"
oles:= oExcel:ActiveSheet:OLEObjects

1st try:

Code: Select all  Expand view

  oles:Add(nil, cFull, .f.,;           // Here fail
                .f., nil, 0, nil,;
                1, 1, 100, 100)

2nd try:

Code: Select all  Expand view

  ole:= oles:Add("Word.Document")
   ole:Name:= cFull             // Here Fail

3rd try:

Code: Select all  Expand view

  oShapes:= oExcel:ActiveSheet:Shapes

   ole:= oShapes:AddOLEObject("Word.Document", cFull, .t.,;    // Here Fail
                        .t., "", 0, "",;
                        350, 60, 40, 40)

Regards

[karinha]

Examples for test?

Saludos.

[hmpaquito]

Sample:

Code: Select all  Expand view

cFullDoc:= "c:\doc\doc.docx"

oExcel:= TOleAuto:New("Excel.Application")
oExcel:WorkBooks:Add()
oExcel:Visible:= .t.

oShapes:= oExcel:ActiveSheet:Shapes

oShapes:AddOLEObject("Word.Document", cFullDoc, .t.,;    // Here Fail
                        .t., "", 0, "",;
                        350, 60, 40, 40)

[karinha]

Sorry. Maybe:

http://fivewin.com.br/index.php?/topic/21673-usando-o-createobject-excelapplication/

https://wiki.fivetechsoft.com/doku.php?id=ole_excel

http://www.forums.fivetechsupport.com/viewtopic.php?f=3&t=24100

Regards, saludos.

[hmpaquito]

karinha,

No running.

Harbour and VBA, they dancing badly.

thks. Regards