| Pregunta: | 31431 - COMO ABRIR HOJA DE CALCULO DE EXCEL DESDE VISUAL FOX |
| Autor: | Lase Sela |
| Como puedo abrir una hoja de calculo desde visual foxpro, y actualizarla con nuevos datos, sin dañar su formato predefinido. | |
| Respuesta: | Carlos Rios |
| Revisa este ejemplo....
LCARCHIVO = "D:\DDD.XLS" oExcel = CREATEOBJECT("Excel.Application") oExcel.VISIBLE = .F. && VISUALIZO EXCEL .T. NO .F. oExcel.Workbooks.ADD && PREPARO UN NUEVO TRABAJO DE EXCEL *oExcel.Workbooks.OPEN(lcArchivo) && ABRIR UN ARCHIVO EXISTENTE oExcel.Cells(1,1)=EVAL("8") &&CARGO ESTE VALOR EN LA CELADA 1 FILA 1 oExcel.Cells(1,2)=EVAL("5") &&Y ESTA EN LA FILA1 CELDA 2 oExcel.Cells(1,3)=("=(a1+b1)") &&ESTA ES COMO SE LLEVA LA FORMULA EN LA CELDA 3 oExcel.ActiveWorkbook.SaveAs("C:\temp2.XLS") &&DONDE GUANDO EL CARCIVO DE EXCEL oExcel.Quit && COMO CIERRO EL EXECL &&& colocar formato a una celda o rango With oExcel.ActiveSheet.Range("A1").Font .Name = "Times New Roman" .Size = 20 .Bold = .T. EndWith | |