Excel. Traspasar datos.

[thefull]

Situacion:
Un XLS que se alimenta de datos DBF, necesito guardarlo como DATOS sin alimentarse de la DBF.

¿ Alguien a traves de OLE a realizado algo similar ?

La cuestion es enviar por Mail el resultado, sin tener que enviar la dbf.

[thefull]

Situacion:
Un XLS que se alimenta de datos DBF, necesito guardarlo como DATOS sin alimentarse de la DBF.

¿ Alguien a traves de OLE a realizado algo similar ?

La cuestion es enviar por Mail el resultado, sin tener que enviar la dbf.

Bueno, al final peleandome yo y internet, he conseguido realizar un script
que realiza lo que estaba buscando.

Lo dejo por aqui en formato VBScript, que es fácilmente pasarlo a Harbour;

--------------------------- cut --------------------------------------------
' enumeración para espcificar el formato de salida de los datos
' Private Enum EFormato
' CSV = 6
' HTML = 44
' TEXTO = 20
' EXCEL = -4143
' End Enum


Dim objWorkbook , oHoja
Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = false
Set objWorkbook = objExcel.Workbooks.Open("C:\Y1.XLS")

Set oSheet = objExcel.Sheets.Item( 1 )
oSheet.Copy ' Esto crea un nuevo libro

Set oLibro = objExcel.ActiveWorkbook

oLibro.SaveAs "c:\jo.xls", -4143

objExcel.Quit
Set objExcel = Nothing
Set oSheet = Nothing
Set oLibro = Nothing

--------------------------------- cut ---------------------------------------

[thefull]

Ups! Sorry, I thought forum spanish!.