chaby
17 de Febrero del 2004

como puedo abrir un archivo excel y modificar la informacion desde Vfoxpr 6

ernerto
17 de Febrero del 2004

vruta = SET("defa")+CURDIR()
oleapp = CREATEOBJECT("Excel.Application")
oleapp.APPLICATION.displayAlerts =.F.
oleapp.VISIBLE = .F.

oleapp.workbooks.OPEN(vruta + "conectar_dbf.xls")
oleapp.APPLICATION.displayAlerts=.F.

oleapp.sheets("Datos").select
oleapp.Range("A2").value = vruta

oleapp.ActiveWorkbook.Close
RELEASE oleapp