Access - macro

macro

Publicado por wild (3 intervenciones) el 03/12/2004 13:05:13

Buenos días...
Necesitamos crear una macro para importar de excel x archivio .txt ya que me llegan diariamente no queremos hacerlo desde las tablas, la gracia es que la macro me ejecute todo y solo tengamos que decirle cual es el archivo...

Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Importar archivos .txt desde Excel mediante una macro

Publicado por Alejandro (4142 intervenciones) el 19/05/2023 18:22:50

Puedes utilizar el siguiente código VBA para crear una macro en Access que importe archivos .txt desde Excel de forma automática:

1. Abre Access y ve al editor de Visual Basic presionando Alt + F11.
2. En el editor, selecciona el módulo donde deseas agregar la macro o crea uno nuevo.
3. Agrega el siguiente código VBA:

Sub ImportarArchivoTxt()

    Dim dlg As FileDialog

    Dim archivo As Variant

    ' Crea un cuadro de diálogo para seleccionar el archivo .txt

    Set dlg = Application.FileDialog(msoFileDialogFilePicker)

    dlg.AllowMultiSelect = False

    dlg.Title = "Seleccionar archivo .txt"

    ' Muestra el cuadro de diálogo y verifica si se seleccionó un archivo

    If dlg.Show = -1 Then

        ' Obtiene la ruta completa del archivo seleccionado

        archivo = dlg.SelectedItems(1)

        ' Importa los datos del archivo .txt a una tabla en Access

        DoCmd.TransferText acImportDelim, "", "NombreTabla", archivo, True

        ' Muestra un mensaje de éxito

        MsgBox "El archivo .txt se ha importado correctamente.", vbInformation

    End If

    ' Limpia los objetos

    Set dlg = Nothing

End Sub

4. Reemplaza "NombreTabla" con el nombre de la tabla donde deseas importar los datos del archivo .txt.
5. Guarda el módulo y cierra el editor de Visual Basic.

Ahora puedes ejecutar la macro "ImportarArchivoTxt" desde Access. Al hacerlo, se abrirá un cuadro de diálogo que te permitirá seleccionar el archivo .txt que deseas importar. Una vez seleccionado, los datos se importarán automáticamente a la tabla especificada.

Recuerda ajustar el código según tus necesidades, como el nombre de la tabla y el formato del archivo .txt.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar