FoxPro/Visual FoxPro - PARA DAVID AMADOR ...

Hola .... estoy intentado importar todas las hojas de un archivo Excel de una aplicación remota a una SOLA TABLA la cual tenga anexadas todas las hojas, pero no lo consigo, me da error Ole: infraccion de recurso compartido.

Por favor, dame una solución que lo necesito mucho.

************************************************************************
Excel = Createobject("Excel.Application")
cImport=GETFILE("xls", 'Nombre de archivo', 'Importar',0,'Importar')
oExcel.Workbooks.Open(cImport)
For Each oSheet In oExcel.Sheets
import from &cImport type xl5 SHEET &oSheet.Name
Endfor
oExcel.ActiveWorkbook.Close()
oExcel.Quit()
************************************************************************

Hola JuanMa ... en los foros evita dirijir la preguntas a una persona especifica,....

Hola... Claro, el problema es que tienes abierto el documento de Excel y le estas haciendo el Import .... lo que debes hacer es colocar en una variable los nombres de los libros de Excel y luego cerrar el documento XLS y luego hacer el import con los nombres de los libros que están en la variable.

Te recomiendo evitar la macrosustitución en las rutas (&) puesto que cuando las rutas tienen espacios te da error.. lo mejor es utilizar ( ) .. por ejemplo :

import from (cImport) type xl5 SHEET &oSheet.Name

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia