Importar excel a access con dos pestañas diferentes

Tengo un fichero excel que se llama FICHERO.xlsx en el cual hay dos pestañas una que se llama EXTRACCIÓN BASICA y otra que se llama SITUACIONES HISTORICO. Y una base de datos en la cual tengo creado dos tablas EXTRACCIÓN BÁSICA_tmp y SITUACIONES HISTORICO_tmp. Lo que me gustaría que hiciera es que al darle a un botón se abriese el navegador de windows para seleccionar el fichero ya que no siempre estará depositado el excel en la misma ubicación y por otro lado que en el mismo código importase las dos pestañas a sus tablas correspondientes. Es un caso que no se me ha dado nunca puesto que habitualmente para hacer importaciones siempre era sobre una sola pestaña en excel y en este caso son dos.

1 respuesta

Respuesta
2

Este código le sirve, lo puede llamar desde un botón en el evento "Al hacer clic"

Private Sub btnImportar_Click()
Dim i As Integer
Dim FileName As String
' Requiere referencia a Microsoft Office 11.0 Object Library.
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
     .InitialFileName = CurrentProject.Path & "\FICHERO.xlsx"
     .InitialView = msoFileDialogViewDetails
     .AllowMultiSelect = False
     .Title = "Seleccione el archivo"
     .Filters.Clear
     .Filters.Add "FICHERO", "*.xlsx"
    If .Show = True Then
     FileName = .SelectedItems(1)
    Else
     MsgBox "Ha cancelado la operación.", vbInformation, "Importar Excel a Access"
     Exit Sub
    End If
End With
 If Len(FileName) > 0 Then 'Comprobamos que se haya seleccionado correctamente el archivo.
        FileName = fDialog.InitialFileName
        DoCmd. TransferSpreadsheet acImport, 10, "EXTRACCIÓN BÁSICA_tmp", FileName, True, "EXTRACCIÓN BASICA!"
        DoCmd. TransferSpreadsheet acImport, 10, "SITUACIONES HISTORICO_tmp", FileName, True, "SITUACIONES HISTORICO!"
        If Err.Number = 0 Then
          MsgBox "Hojas importadas OK", vbInformation, "Le informo"
        End If
  Else
    MsgBox "No ha seleccionado un archivo para procesar.", vbInformation, "Importar Excel a Access"
End If
End Sub

Puede suprimir la línea
Dim i AS Integer

En primer lugar gracias. He quitado estos dos y me sigue dando error

Dim i As Integer
Dim FileName As String

Bueno quité solamente el primero y al darme error quité los dos. el error que me sale es éste. 

Eso indica que no ha hecho referencia a la librería Microsoft Office 16.0 Object Library..

Vaya a Herramientas, Referencia y active la casilla de esta referencia. Observe la imagen.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo importar datos de un libro excel desde access con código vba?

Ahí va el reto. Tengo en una carpeta varios libros de excel, cada libro tiene una o dos hojas que quiero importar con el nombre de Gama 1 y Gama2. Así que lo que quiero principalmente, es que desde (un formulario) aparezca un listbox, donde este el...
2 respuestas

Importar Libro de Excel a Tablas Access

Deseo importar las hojas de un libro Excel a una tabla Access de forma automatizada, es decir, sin intervención del usuario. Ya se que existe un método manual a través de un asistente que te va guiando para hacer la importación, pero yo necesito...
1 respuesta

Alimentar tabla de datos de Access por medio de un archivo

Y a su vez solicitar de su amable ayuda. Quiero realizar un proceso donde pueda alimentar una tabla de datos de Aceess por medio de un archivo que se adjunte no se si es posible?. La idea que me ronda es: crear un formulario que me permita descargar...
1 respuesta

FileDialog Error de compilación: No se ha definido el tipo definido por el usuario

Desde un procedimiento de formulario, llamo a una función que se llama "CarpetaArchivo" a la cual le paso un valor. La función la tengo en un módulo llamado "basFileDialog". La función está basada en el ejemplo que Microsoft muestra en la Ayuda, pero...
2 respuestas

Actualizar Tabla de Registros Access con Transferspreadsheet (Sin generar duplicados)

Mi duda es que importo los datos de archivos excel a mi base de datos osea (Agrego nuevos). Pero hasta hace poco se me solicita que "ACTUALICE" un registro existente osea sustituya los valores que son diferentes a los del nuevo archivo excel. He...
1 respuesta

¿Duda en Dim openFileDialog1 As New OpenFileDialog()?

Tengo este código con el que intento guardar una rita en un cuadro de texto pero en la parte de Dim openFileDialog1 As New OpenFileDialog() me la marca en rojo y no se porque, ¿Me ara falta hacer algo con alguna librería o algo así? Como puedo hacer...
1 respuesta

Importar varias hojas de Excel a Access.

Tu respuesta me ayudo bastante la primera vez, ahora nuevamente necesito de tu valiosa ayuda. Te explico necesito importar un libro de excel completo, sin importar cuantas hojas este tenga. En este archivo deben ser importadas las tres o más hojas a...
1 respuesta

Importar Hoja Excel a Access con VBA

He leído varias cosas en Internet al respecto, pero no consigo implementarlo en el trabajo para que de los resultados esperados. Necesito crear un botón, que al pulsarlo desde una base de datos Access, importe una hoja Excel que se encuentra en una...
1 respuesta

No se ha definido el tipo definido por el usuario Access 2007

Tengo una base de datos en Access 2013, en la que uso tengo una función en la que uso el método fdialog para seleccionar un fichero de un determinado directorio. El código de la función es este : Public Function buscaArchivo() As String Dim fDialog...
2 respuestas

Anexar datos a tabla que no estén ya cargados

Quisiera saber como puedo actualizar una tabla de mi base de datos, con datos que tomará de un archivo Excel, de la cual solo quiero que anexe los registros que yo no tengo. Ejemplo: tengo una tabla clientes donde esta el cliente Pablo y un archivo...
1 respuesta