FoxPro/Visual FoxPro - EXPORTAR FOXPOR

   
Vista:

EXPORTAR FOXPOR

Publicado por yomaira (9 intervenciones) el 14/01/2009 16:56:32
Hola
Me pueden colaborar diciendome como hago para cuando le de al boton exportar me abra el archivo de excel hay mismo y no me guarde en el disco C.
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:EXPORTAR FOXPOR

Publicado por Ernesto Hernandez (4632 intervenciones) el 14/01/2009 17:36:46
ya probaste con el EXPORT ???

EXPORT TO Filename TYPE XLS
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

RE:EXPORTAR FOXPOR

Publicado por Cesar Diez Canseco (35 intervenciones) el 14/01/2009 21:27:43
wEnvioExcel=alltrim(Ord000.envio_txt) && Donde tengo guardado la ruta donde mando la hoja de excel
cFileName = wEnvioExcel+"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
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

RE:EXPORTAR FOXPOR

Publicado por HELDER MARTINEZ (COUNDY)  (710 intervenciones) el 14/01/2009 18:10:15
SELECT tabla
copy to array _Excel;
field campo1, campo2

o = CreateObject("Excel.Sheet")
o.application.visible=.T.
o.application.WorkBooks.Add()
o = o.application.Sheets[1]

for i = 1 to _TALLY
o.Cells(i+1,1).Value = _Excel(i,1)
o.Cells(i+1,2).Value = _Excel(i,2)
***si tienes mas de dos campos solo vas agregando, y el principio agregas los campos "copy to array _excel field campo1, campo2, campo3 etc.
*o.Cells(i+1,3).Value = _Excel(i,3)
ENDFOR

Saludes amigo
espero te sirva
a mi me funciono

desde Honduras
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