thefull wrote: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 ---------------------------------------