xbrowse to excel office 2010

[Richard Chidiak]

Hello

oBrw:lExcelCellwise := .t.
OBRW:TOEXCEL()

makes the computer hang ,

This occurs since i updated to fwh 11.04

Using office 2010

Anyone else experiencing this ?

Thanks for the help

PS : resetting back my xbrowse.prg from fwh 10.10 (previous version i used) , it works as expected

[nageswaragunupudi]

May I know what version of Harbour / XHarbour (Free) / xHb commecial and the compiler are you using please?

Specifically, are you using xharbour commercial?

[Richard Chidiak]

I am using bcc 5.82 and xharbour from fivetech version 1.2.1

[nageswaragunupudi]

Can you please try this simple program and post the result here?

Code: Select all | Expand

#include 'fivewin.ch'

function main()

   local oExcel

   msginfo( 'Before ExcelObj()' )
   oExcel   := ExcelObj()  // is the program hanging here?
   msginfo( 'After ExcelObj()' )
   msginfo( ValType( oExcel ), 'ValType of Object' )

return 0

Let us see if the program is hanging at this function call.

Note: I have only Office2007. Request you to help testing on Office2010

[Otto]

Dear Mr. Rao,
your code is working fine here.
Richard, please have a look to:
viewtopic.php?f=3&t=18483&p=96817&hilit=office#p96817

Did you install Office as usual or did you use the Click-to-Run option?

Best regards,
Otto

[Richard Chidiak]

Mr Rao,

   msginfo( 'Before ExcelObj()' )
   oExcel   := ExcelObj()  // is the program hanging here?

yes it is hanging here

If i can help further, let me know

I have put back my xbrowse.prg from fwh 10.10 and everything works as expected

Otto

I have complete office 2010 professional, and the problem occured when i upgraded from fwh 10.10 to 11.04

Richard

[nageswaragunupudi]

This is working fine for Mr.Otto but not for you. The problem is not because of the version of Office.

Please open \fwh\source\function\olefuncs.prg.
First function is GetOleObject( cApp )

Code: Select all | Expand

function GetOleObject( cApp )

   local oObj

   TRY
      oObj  := GetActiveObject( cApp )
   CATCH
      TRY
         oObj  := CreateObject( cApp )
      CATCH
      END
   END

return oObj
 

This function is reported to hanging with xHarbour commerical. Probably it may be hanging with your version of xHarbour too.

Please try substituing the function with the following function

Code: Select all | Expand

function GetOleObject( cApp )

   local oObj

   TRY
      oObj  := TOleAuto():New( cApp )
   CATCH
   END

return oObj
 

Compile the program and link the object file with your above sample code.
Please let us know if the sample program is working or still hanging.

This work around solved the problem for some users.

[Richard Chidiak]

It works ok with these changes

I do not update to xharbour's actual version because there is a bug with "copy to" and my application uses this syntax in some cases

Thanks for your help,

[nageswaragunupudi]

Good to know.

Can you still help me more? It is desirable to know where exactly the code is hanging, so that we can think of a solution that works for all.

Can you substitute GetOleObject() function with this modification and see where it is failing or hanging?

Code: Select all | Expand

function GetOleObject( cApp )

   local oObj

   TRY
      msginfo( 'Before GetActiveObject' )
      oObj  := GetActiveObject( cApp )
      msginfo( 'GetActiveObject() succeeded' )
   CATCH
      msginfo( 'GetActiveObject() failed' )
   END
   if oObj == nil   
      TRY
         msginfo( 'Before CreateObject()' )
         oObj  := CreateObject( cApp )
         msginfo( 'CreateObj() succeeded' )
      CATCH
         msginfo( 'CreateObj() failed' )
      END
   endf

return oObj
 

Once please test after booting computer.
Second time, first open Excel normally and then run the program while excel is still running.

I would be glad if you can post the test results.

[Richard Chidiak]

Mr Rao

in both cases only one message, the very first one Before GetActiveObject

It is displayed for ever , like in an endless loop , i have to stop the program from the task manager

Hth

Regards,