Error de Programa
Publicado por Loly (103 intervenciones) el 08/02/2009 17:07:43
Holas buenos dias... estoy tratando de abrir un archivo exportado a Excel y me presenta un error que dice asi:
Codigo de Excepcion OLE IDispatch 0 de Microsoft Office Excel: no se encontro el archivo: "nombrearchivo.xlsx" comprueba la ortografia del nombre del archivo y su ubicacion correcta.
Cancelar Suspender pasar por alto Ayuda
el codigo que tengo es el siguiente:
en el formulario tengo un boton.. y ahi el siguiente codigo
SET PROCEDURE TO funciones
=Convierte(nametabla)
Thisform.Release
**** EL EL PRG FUNCIONES.....
FUNCTION CONVIERTE
LPARAMETERS nametabla
cFileName=ALLTRIM(NameTabla)
oExcel = CreateObject("Excel.Application")
if vartype(oExcel) != "O"
return .F.
endif
oExcel.visible = .T.
oExcel.SheetsInNewWorkBook = 1
oWorkbook = oExcel.Workbooks.Open(cFileName)
*** y continúa el programa hasta darle presentacion a la hoja de excel.
espero me ayuden Gracias a todos... bye
Codigo de Excepcion OLE IDispatch 0 de Microsoft Office Excel: no se encontro el archivo: "nombrearchivo.xlsx" comprueba la ortografia del nombre del archivo y su ubicacion correcta.
Cancelar Suspender pasar por alto Ayuda
el codigo que tengo es el siguiente:
en el formulario tengo un boton.. y ahi el siguiente codigo
SET PROCEDURE TO funciones
=Convierte(nametabla)
Thisform.Release
**** EL EL PRG FUNCIONES.....
FUNCTION CONVIERTE
LPARAMETERS nametabla
cFileName=ALLTRIM(NameTabla)
oExcel = CreateObject("Excel.Application")
if vartype(oExcel) != "O"
return .F.
endif
oExcel.visible = .T.
oExcel.SheetsInNewWorkBook = 1
oWorkbook = oExcel.Workbooks.Open(cFileName)
*** y continúa el programa hasta darle presentacion a la hoja de excel.
espero me ayuden Gracias a todos... bye
Valora esta pregunta
0
