thanks for responding Rodrigo
Estoy usando Visual Foxpro 9 con todas sus actualizaciones y el siguiente codigo es el que tengo.
* La columna IdArticulo es de tipo C(25)
SET COLLATE TO "SPANISH"
SELECT IdArticulo ;
FROM Articulos ;
INTO CURSOR curArticulos1 READWRITE
SELECT curArticulos1
local loExcelXML, llOk
loExcelXML = newobject("ExcelXML","ExcelXML.VCX")
loExcelXML.SheetName = "Articulos"
loExcelXML.OpenAfterSaving = .t.
llOk = loExcelXML.Save("Ejemplo.XML")
IF llOk
MESSAGEBOX("Archivo guardado", 64)
ELSE
MESSAGEBOX("Archivo no guardado", 16)
ENDIF
↧