RE:Enviar datos de una tabla a un archivo con form
Hola!
prueba con este código y cuentame que pasa.
saludos.
esto te abre ecxel desde tu prg y pone algunas notas.... Suerte...
************************************************************************
Local lcWord,lcFileName,gcNomXls,tamarc1,gdFecVerL
local c,d
close data
lcFileName='Reporte' && este es el nombre del libro de Excel
mresp=MessageBox("Está su versión de Excel en idioma Inglés ?",547,"Generación de Planilla")
do case
case mresp=2
return
case mresp=6
lcword="Sheet1"
case mresp=7
lcword="Hoja1"
endcase
ExcObj=CREATEOBJECT("EXCEL.APPLICATION")
ExcObj.VISIBLE=.T.
ExcObj.WORKBOOKS.add
ExcObj.sheets(lcWord).Select
Excobj.sheets(lcWord).Name= "Ampliaciones"
* Encabezados *
ExcObj.RANGE("A2:I3").SELECT
ExcObj.RANGE("A2:I3").FONT.NAME="Times New Roman"
ExcObj.RANGE("A2:I3").FONT.BOLD=.f.
ExcObj.RANGE("A2:I3").FONT.SIZE=10
ExcObj.RANGE("A2:I3").VerticalAlignment = 3
ExcObj.RANGE("A2:J2").SELECT
ExcObj.selection.Borders(3).weight=4 && Derecho
ExcObj.RANGE("C1").SELECT
ExcObj.ACTIVECELL.FONT.BOLD=.t.
ExcObj.ACTIVECELL.FONT.SIZE=15
ExcObj.ACTIVECELL.VALUE= " Hola, prueba de exportación"
ExcObj.RANGE("C3").SELECT
ExcObj.ACTIVECELL.FONT.BOLD=.t.
ExcObj.ACTIVECELL.FONT.SIZE=17
ExcObj.ACTIVECELL.VALUE= " REPORTE DE PRUEBA "
ExcObj.RANG