FiveTech Software tech support forums

... from samples #include "FiveWin.ch" function Main() local oExcel := CreateObject( "excel.application" ) local oBook := oExcel:Workbooks:Add() local oSheet := oBook:Worksheets( 1 ) oSheet:Range( "A1" ):Value = "Last Name" oSheet:Range( "B1" ):Value ...

Amigos tengo esto y funciona bien : local oExcel := CreateObject( "excel.application" ) local oBook := oExcel:Workbooks:Add() local oSheet oSheet:=oExcel:ActiveSheet oSheet:=oBook:Worksheets( 1 ) oSheet:Shapes:AddTextbox(1, 50, 125, 250, 130):TextFrame:Characters:Text = "EMPRESA ...

... LOCAL rLogo:="c:\systema\bus\ima\logorojas.bmp" local oExcel := CreateObject( "excel.application" ) local oBook := oExcel:Workbooks:Add() local oSheet := oBook:Worksheets( 1 ) oSheet:= oBook:Worksheets( 1 ) oSheet:name:="EMPRESA-1" oExcel:Sheets( "EMPRESA-1"):Select() ...

... // oExcel = CREATEOBJECT( "Excel.Application" ) // Así también funciona oExcel := TOleAuto():New( "Excel.Application" ) oExcel:WorkBooks:Open(ALLTRIM(oDdf:FIL)) oHoja := oExcel:Get( "ActiveSheet" ) Fijate que me marca este error Path and name: P:\Fuentes\xHarbour\NomEle\BIN\NomEle.Exe ...

... CRLF + "No Encontrado..!!", "Error..." )      RETURN nil   ENDIF   /*IF Empty(cFile)      RETURN nil   ENDIF*/   //oExcel:WorkBooks:Open( cFile )   oBook := oExcel:WorkBooks:Open( cFile )   oHoja := oExcel:Get( "ActiveSheet" )  Y ahora tengo el ...

... CRLF + "No Encontrado..!!", "Error..." )      RETURN nil   ENDIF   /*IF Empty(cFile)      RETURN nil   ENDIF*/   //oExcel:WorkBooks:Open( cFile )   oBook := oExcel:WorkBooks:Open( cFile )   oHoja := oExcel:Get( "ActiveSheet" )  Y ahora tengo el ...

... 6.2, Build 9200 Time from start: 0 hours 0 mins 27 secs Error occurred at: 17/12/2016, 09:35:27 Error description: Error Excel.Application:WORKBOOKS/14 DISP_E_BADPARAMCOUNT: OPEN Args: [ 1] = C C:\nomina\nomina2.xlsm Stack Calls =========== Called from: => TOLEAUTO:OPEN( 0 ) Called from: ...

... ) CATCH oError RetornaErrorTryCatch( oError, 'PLANILHA EXCEL' ) Return END cTitulo := ".:: EXCEL ::. "+Alltrim(cPlanilha) oExcel:Workbooks:Open(cPlanilha) SysRefresh() define window s_oWndExcel mdichild of M->oWnd vscroll title cTitulo s_oWndExcel:bKeyDown := {| nKey | IIf(nKey==VK_ESCAPE,s_oWndExcel:end(),; ...

... ) CATCH oError RetornaErrorTryCatch( oError, 'PLANILHA EXCEL' ) Return END cTitulo := ".:: EXCEL ::. "+Alltrim(cPlanilha) oExcel:Workbooks:Open(cPlanilha) SysRefresh() define window s_oWndExcel mdichild of M->oWnd vscroll title cTitulo s_oWndExcel:bKeyDown := {| nKey | IIf(nKey==VK_ESCAPE,s_oWndExcel:end(),; ...

... oexcelsolver :=CreateObject( "Excel.Application" ) oexcelsolver:Workbooks:Open(clibro) sysrefresh() oexcelsolver:Visible(.t.) hWndexcel := FindWindow(0,"Microsoft Excel - "+cfilenopath(clibro)) SetParent(hwndexcel,oWnd:hWnd) ...

... secs Error occurred at: 08/27/16, 09:48:19 Error description: (DOS Error -2147352567) WINOLE/1007 Não é possível obter a propriedade Add da classe Workbooks (0x800A03EC): Microsoft Office Excel Stack Calls =========== Called from: => TOLEAUTO:ADD( 0 ) Called from: teste2.prg => MAIN( 14 )

... a cada hoja el dia, tengo este ejemplo pero no me funciona local oExcel := CreateObject( "excel.application" ) local oBook := oExcel:Workbooks:Add() local oSheet := oBook:Worksheets( 1 ) Local nHojas := oExcel:Sheets:Count() Local ndias :=31 Local nD:=1 For Nd=4 To nDias oExcel:Sheets:ADD() ...

... .t. ) DEFINE WINDOW oWnd oClp := TClipboard():New() USE "AA_CHN" GO TOP nCols := FCount() oExcel := ExcelObj() oBook := oExcel:WorkBooks:Add() oSheet := oBook:ActiveSheet uVal := FieldGet( 1 ) scrivicella( "A1" , uVal , oSheet , oClp ) uVal := FieldGet( 2 ) scrivicella( ...

... ) CATCH TRY oExcel := CreateObject( "Excel.Application" ) CATCH MsgAlert( "Excel no instalado" ) return END END Try oExcel:WorkBooks:Add() Catch MsgAlert( "Cierre las Hojas de Excel" ) return End oHoja := oExcel:ActiveSheet oHoja:name := 'Totales' If oExcel:sheets:count() ...

... ) CATCH TRY oExcel := CreateObject( "Excel.Application" ) CATCH MsgAlert( "Excel no instalado" ) return END END Try oExcel:WorkBooks:Add() Catch MsgAlert( "Cierre las Hojas de Excel" ) return End oHoja := oExcel:ActiveSheet oHoja:name := 'Totales' If oExcel:sheets:count() ...