FiveTech Software tech support forums

Hola JmGarcia:

El post es el comienzo para crear la hoja y cuando termino yo pongo

oHoja:End()
oWorkBook:SaveAs(fichsali)
oExcel:Quit()
oExcel:End()
oExcel:=NIL
OleUnInitialize()

en donde fichsali es el nombre del fichero excel que quiero.

Un saludo

Carlos

... advance Otto FUNCTION MAIN() // LOCAL oExcel := CREATEOBJECT( "Excel.Application" ) LOCAL oExcel := TOleAuto( ):New( "Excel.Application" ) LOCAL oWorkbook := oExcel:Workbooks:Add() LOCAL oSheet := oExcel:ActiveSheet oSheet:Cells( 1, 1 ):Value = "Test 1A" oSheet:Cells( 1, 2 ):Value = "Test 1B" ...

... from: EXCEL1.PRG => MAIN(54) // dbf2xls conversion #include "fivewin.ch" function Main() local nCounter, nStart, oClipBoard local oExcel, oWorkBook, oSheet // create excel objects oExcel = CREATEOBJECT( "Excel.Application" ) oExcel:WorkBooks:Add() oWorkBook = oExcel:Get( "ActiveWorkBook" ...

... LOCAL cOrigen := "c:\fwh\samples\manu.xls" LOCAL cDestino := "c:\fwh\samples\manu2.xls" LOCAL oExcel := CREATEOBJECT( "Excel.Application" ) LOCAL oWorkBook := oExcel:WorkBooks:Open(cOrigen) oExcel:ActiveSheet:Copy( oExcel:ActiveWorkbook:Sheets [oExcel:ActiveWorkbook:Sheets:Count ] ) //misma linea ...

Manu,

FUNCTION MAIN()
LOCAL cOrigen := "c:\fwh\samples\manu.xls"
LOCAL oExcel := CREATEOBJECT( "Excel.Application" )
LOCAL oWorkBook := oExcel:WorkBooks:Open(cOrigen)

oExcel:ActiveSheet:Copy()

oExcel:Visible = .T.

RETURN NIL