FiveTech Software tech support forums

... to Run a macro oxls := TOleAuto():New("Excel.Application") * Ouvre lefic3 a partir de Temp oxls:WorkBooks:Open("main.xls") * oBook := oxls:Get( "ActiveWorkBook") oSheet := oxls:Get( "ActiveSheet" ) * oxls:visible:=.T. * oxls:Workbooks:Run("'FILE2.xls'!macro1") ...

... Object STATIC Function MakeColAlphabet(nCol) // Generate Alphabet equivalent of Column No Eg."AB" STATIC Function GetNumberFormatId(oBook, cNumberFormat) // Set/Create OpenOffice Date & Number Format STATIC FUNCTION CalcSubTotal(oCalc,oBook,oSheet,nGroupBy,aTotals,nRow,nCol) ...

Dear Silvio, I not see the import dialog your PasteUnformattedText(oCalc,oBook) function run good !! Calc is showing the Dialog while trying to paste the Tab delimited text from the clipboard. That's why I tried another alternative way thru the function PasteUnformattedText(oCalc,oBook). ...

Now run Ok
I not see the import dialog
your PasteUnformattedText(oCalc,oBook) function run good !!

Have you made the Totals ?

Anser have you saw my function ? STAT FUN Dispatcher( oDispatcher,oBook, cMethod, aArgs ) DEFAULT aArgs := {} IF ValType( aArgs ) == "O"; aArgs := { aArgs }; ENDIF RETURN oDispatcher:ExecuteDispatch( oBook:GetCurrentController():GetFrame(), ".uno:" ...

new function STAT FUN Dispatcher( oDispatcher,oBook, cMethod, aArgs ) DEFAULT aArgs := {} IF ValType( aArgs ) == "O"; aArgs := { aArgs }; ENDIF RETURN oDispatcher:ExecuteDispatch( oBook:GetCurrentController():GetFrame(), ".uno:" ...

... := 10 ::lBold := .F. ::lItalic := .F. ::lUnderLine := .F. ::nAlign := 1 return sal Y para cerrarlo así: METHOD CloseBook() CLASS TExcel local obook if valtype(::OleBook) = 'N' OleInvoke(::OleBook, 'Close', .f.) ::OleBook := OleGetProperty( ::OleExcel, 'ActiveWorkbook') endif sysrefresh() return ...

... cSAY := "Opening Excel File "+STR(nREC) oSAY:ReFresh() SysReFresh() oEXCEL := TOleAuto():New( "Excel.Application" ) oExcel:Workbooks:Open( cPATH ) oBook := oExcel:Get( "ActiveSheet" ) nROWS := oBook:UsedRange:Rows:Count() nCOLS := oBook:UsedRange:Columns:Count() SELECT 9 FOR nROW := 3 to nROWS ...

#define xlXMLSpreadsheet 46

oBook:SaveAs( cXlsFile, xlXMLSpreadsheet ) // -4143 = Normal

... DISP_E_MEMBERNOTFOUND: END FUNCTION DEMOXLS CursorWait() oXls:=TOLEAUTO():NEW("EXCEL.APPLICATION") oXls:WORKBOOKS:ADD() oBOOK:=oXLS:GET("ActiveWorkBook") oSHEET:=oXLS:GET("ActiveSheet") * oSHEET:CELLS(6,1):VALUE="CUEN" oloSHEET:CELLS(6,2):VALUE='SCTA' oSHEET:CELLS(6,3):VALUE='SSCT' ...

Buena idea, lo probaré. Supongo que habrá que ponerlo entre oBook := oWord:Get("ActiveWorkBook") y oSheet := oWord:Get("ActiveSheet") Es que soy novato con excel. De todas formas, me gustaría que la hoja (factrura) se guardara, para que sea más automático ...

... el fichero anterior a cada vez) ¿Alguna idea? Ahí va parte del código: oExcel := TOleAuto():New("Excel.Application") oExcel:WorkBooks:Open(cOrig) oBook := oWord:Get("ActiveWorkBook") oSheet := oWord:Get("ActiveSheet") oText := oSheet:Range("A1:"+HazLetra(oSheet:UsedRange:Columns:Count())+LLENO(oSheet:UsedRange:Rows:Count())) ...

... como hacerle para sumar celdas, utilizo la clase tole de la siguiente forma: oXls:=TOLEAUTO():NEW("EXCEL.APPLICATION") oXls:WORKBOOKS:ADD() oBOOK:=oXLS:GET("ActiveWorkBook") oSHEET:=oXLS:GET("ActiveSheet") * oSHEET:CELLS(4,2):VALUE="SALDO INICIAL" oSHEET:CELLS(4,3):VALUE="ENERO" oSHEET:CELLS(4,4):VALUE="FEBRERO" ...

I Hope the code below helps. Birol Betoncu oExcel := CREATEOBJECT( "Excel.Application" ) oBook := oExcel:WorkBooks:Add() oSheet := oBook:Worksheets(1) nLine:=1 (cDBFILE)->(DBGOTOP()) DO WHILE !(cDBFILE)->(EOF()) oSheet:Cells( nLine, 1 ):Value = (cDBFILE)->Field1 ...