Pregunta: | 65548 - IMPORTAR VARIOS ARCHIVOS DE EXCEL A ACCESS |
Autor: | César Ríos |
Necesito importar miles (literalmente!) de archivos de Excel a Access. Todos los archivos en excel tienen la información solo en una hoja y todos tienen el mismo número de columnas aunque el número de filas puede variar mucho. Encontré este código: Function Impo_allExcel() Dim myfile Dim mypath mypath = "H:EMAsimapan2" Do myfile = Dir(mypath & "*.xls") DoCmd.TransferSpreadsheet acImport, 8, "Zimapan2", mypath & myfile myfile = Dir Loop Until myfile = "" End Function En este caso sería de esperarse que todos los archivos de excel de la carpeta Zimapan2 se importan a una tabla Zimapan2 dentro de Access. Sin embargo, al checarlo importa la información de la hoja1 del primer archivo y lo hace una y otra vez sin pasar al archivo siguiente, de hecho se traba. Alguna idea de como solucionarlo? |