FoxPro/Visual FoxPro - CONVERTIR A FORMATO EXCEL

 
Vista:
sin imagen de perfil

CONVERTIR A FORMATO EXCEL

Publicado por KIKILLO (148 intervenciones) el 14/10/2008 15:26:48
saludos amigos.
tengo un dbf y quiero convertirlo a formato excel. incluyendo titulos de cada columna.

o hay otra forma, que puedo hacer.

gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:CONVERTIR A FORMATO EXCEL

Publicado por Cesar (35 intervenciones) el 16/10/2008 00:02:11
Hola,
Lo puedes hacer mediante automtizacion. Aqui te muestro un ejemplo.

cFileName = "facturas.xls"

SELE facturasxrangofechas
COPY to wEnvioExcel+'facturas' type xl5

&& Crea una objeto excel
oExcel = CreateObject("Excel.Application")

&& Abre un hoja de calaculo
oWorkbook = oExcel.Workbooks.Open(cFileName)

&& Selecciona una fila
oExcel.Rows("1:1").Select

&& Inserta dos filas
oExcel.Selection.Insert
oExcel.Selection.Insert

&& Insertar valores en una celda
oExcel.ActiveSheet.Range("C1").value="RELACION DE FACTURAS"

&& Poner en negrita el Titulo
WITH oExcel.Range("C1").Font

.Name = "Arial"
.Bold = .T.

ENDWITH

&& Agranda los nombres de los campos y los pone en negrita
WITH oExcel.Range("A3:Z3").Font

.Name = "Arial"
.Size = 10
.Bold = .T.

ENDWITH

&& Agranda una Columna
WITH oExcel.ActiveSheet.Columns[3]

.ColumnWidth =.ColumnWidth + 50

ENDWITH

&& Hace visible la hoja de calculo.
oExcel.Visible = .T.

&& Borra el objeto oExcel
Release oExcel

Saludos,
Cesar
Lima Peru
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar