FiveTech Software tech support forums

...   LOCAL oExcel := CREATEOBJECT( "Excel.Application" )    LOCAL cXls := "e:\xharbour\test.xls"    oExcel:WorkBooks:Open( cXls, , , OLEDEFAULTARG(), , , , OLEDEFAULTARG(), , , .T., , .T. )    oExcel:Visible = .T.    RETURN NIL#define ...

Please see local 6 and 7 They are oBook and oSheet The values are still NIL. That means failure started at the line oBook := oExcel:WorkBooks:Add() I do not know why we did not get error here For the time being can you please insert these traces in the ToExcel method in your copy of xbrowse ...

... VARIANT, [optional] VARIANT, [optional] VARIANT, [optional] VARIANT ) STDCALL dispatch PROPERTYGET PTR Windows() STDCALL dispatch PROPERTYGET PTR Workbooks() STDCALL dispatch PROPERTYGET PTR WorksheetFunction() STDCALL dispatch PROPERTYGET PTR Worksheets() STDCALL dispatch PROPERTYGET PTR Excel4IntlMacroSheets() ...

... ) CATCH Alert( "Cannot Connect to Excel. [" + Ole2TxtError()+ "]" ) RETURN (.T.) END END // Open XLS... TRY oExcel:WorkBooks:Open( cSource ) // Also tried oExcel:WorkBooks:Open( cSource, OleDefaultArg(), OleDefaultArg(), OleDefaultArg() ) oSheet = oExcel:ActiveSheet ...

Hi again, I'm noticing a recurrent runtime error at line 6811 on xbrowse.prg. Line 6811 is:   oBook   := oExcel:WorkBooks:Add()  The error log is: detailled error description --------------------------- Error Excel.Application:WORKBOOKS/14 DISP_E_BADPARAMCOUNT: ADD Parameter ...

tentei o seguinte: cArqExcel:="c:\temp\test.xls" oExcel := CreateObject("Excel.Application") oPlani := oExcel:WorkBooks:Open( cArqExcel, OleDefaultArg() , OleDefaultArg() , OleDefaultArg() ) / nao abre e cArqExcel:="c:\temp\test.xls" oExcel := CreateObject("Excel.Application") ...

... Gracias por sus futuros comentarios Lubin oExcel:=CreateObject( "excel.application" )oExcel:DisplayAlerts=.F.oBook :=oExcel:Workbooks:Add()oSheet:=oExcel:ActiveSheet xls_nFormat := oBook:Get("FileFormat")   *Titulos de la HojaoSheet:Cells(1,01):Value ...

... echo %bcdir%\lib\psdk\rasapi32.lib, >> b32.bc code: local oExcel, oBook oExcel := CREATEOLEOBJECT( "Excel.Application" ) oExcel:Workbooks:Add() oBook := oExcel:Workbooks:Open('Xls\Template\BilRacDo.xls', 0, .f., 5) error: Error description: Error BASE/1004 No exported method: ...

When I try to save, I got this error. Error description: Error Excel.Application:WORKBOOKS/14 DISP_E_BADPARAMCOUNT: SAVEAS Args: [ 1] = C C:\Myguests\akcije.xls [ 2] = N 43 [ 3] = C i1978 The line where the program crashes is this oFoglio:SaveAs( fileXL , 43 , "i1978" ...

... 7601 Service Pack 1 Time from start: 0 hours 0 mins 19 secs Error occurred at: 09/06/2012, 20:38:43 Error description: Error Excel.Application:WORKBOOKS:ADD:ACTIVESHEET:CELLS/0 S_OK: _FORMULA Args: [ 1] = C =SUBTOTAL( 9, G7:G8) Stack Calls =========== Called from: => TOLEAUTO:_FORMULA( 0 ...

#include "fivewin.ch" FUNCTION MAIN LOCAL oExcel LOCAL oAs oExcel := CreateObject( "Excel.Application" ) oExcel:WorkBooks:Add() oAS := oExcel:ActiveSheet() oAs:Range( "A1" ):Value := 10 oAS:Columns( "A" ):AutoFit() oExcel:Visible := .T. inkey(3) oAs:Range( ...

... xlEdgeBottom 9 #define xlEdgeRight 10 FUNCTION MAIN() LOCAL oExcel LOCAL oAs oExcel := CreateObject( "Excel.Application" ) oExcel:WorkBooks:Add() oAS := oExcel:ActiveSheet() oAs:Range( "C10" ):Value := "Marco" oAs:Range( "C10" ):Borders( xlEdgeTop ...

ruben,

yo lo tengo asi:

...
oWorkBooks:= oExcel:WorkBooks
oWorkBooks:Close()
oWorkBooks:= NIL

oExcel:Quit()
oExcel:= NIL

Hb_GCall(.t.)
...

... me puede facilitar un ejemplo? Esto es lo que estoy generando: oExcel := TOleAuto():New("Excel.Application") oWorkBook := oExcel:WorkBooks:Add() oExcel:Visible := .t. oHoja := oExcel:ActiveSheet() oHoja:Name:= "Datos" oHoja:Range("B1:B"+ALLTRIM(STR(n))):select() ...

... nveces, N, oExcel, oWorkBook, xatt, oSheet oExcel := CREATEOBJECT( "Excel.Application" ) OEXCEL:DISPLAYALERTS=.F. oWorkBook := oExcel:WorkBooks:Add() oSheet := oExcel:ActiveSheet aEstructura:={} aadd(aEstructura,{"ART_CODIG","C",16,0}) aadd(aEstructura,{"ART_DESCR","C",40,0}) ...