OT EXCEL. Desde VFP hacer una para estar actualizando archivo EXCEL

[Jose Ramon Veliz Martinez]

Buenos dias, alguien que me ayude por favor. Necesito crear un Macro en EXCEL que este grabando el archivo sin necesidad que el usuario le de guardar o lo mejor en todo caso si desde VFP podria hacerlo, desde la mi rutina que captura los datos de ese archivo,  ir a EXCEL que esta abierto y darle guardar datos sin cerrarlo.

Saludos

[Fidel Charny]

lcGuardarComo="Ruta y nombre de archivo"

Oexcel = CREATEOBJECT("Excel.Application")

kelibro=oexcel.workbooks.ADD()

kelibro.SaveAs(LcGuardarComo)

[Jose Ramon Veliz Martinez]

Gracias por responder, me genera error porque el archivo esta en uso y no puedo salvarlo. Si lo cierro no hay problema.

Saludos

[Jorge Kiernan]

¿la planilla la abris desde la aplicacion VFP ?

[Ernesto]

tenes q abrirlo desde fox sino no funciona, es decir los usuarios deben abrir el archivo desde tu aplicacion no desde elwindows

[Jose Ramon Veliz Martinez]

Buenos dias, el archivo esta abierto siempre por EXCEL. Desde VFP ejecuto la rutina que me envio Fidel y siempre sale error que esta en uso. Lo solucione de la siguiente manera, creando un macro en EXEL que salva cada 10 segundos y crea el archivo que necesito trabajar.

**// MACRO EN EXCEL

Sub guardando()

    If ejecutar Then

        guardar

        Application.OnTime Now + TimeValue("00:00:10"), "guardando", , True

    End If

End Sub

Sub parar()

    On Error Resume Next

    ejecutar = False

    guardar

    Application.OnTime Now + TimeValue("00:00:10"), "guardando", , False

End Sub

Sub iniciar()

    ejecutar = True

    guardando

End Sub

Sub guardar()

    'para sobreescribir el archivo

    Application.DisplayAlerts = False

   

    Set l1 = ThisWorkbook

    Set h1 = l1.Sheets("Hoja1")

    wp = l1.Path

    l1.Save

    l1.Sheets.Copy

   

    'Para gardar en versión xls

    ActiveWorkbook.SaveAs wp & "\datos.xls", FileFormat:=xlExcel8

    ActiveWorkbook.Close

End Sub

Con esta rutina que me enviaron de un foro en EXCEL, la ejecuto y funciona a la perfeccion.

Saludos y muchas gracias