Carga de Archivos de Texto a Acces

    Importar varios Archivos de Texto a las tabla en acces, debo seleccionar la carpeta donde estan almacenados, que tome los dos primeros caracteres del Nombre del Archivo de texto y busque en la base de datos con esos 2 caracteres y los importe,  los atchivos de texto no tiene encabezados que al insertarlo no me toca cambiar los nombres de los campos de las tablas
Private Sub Comando1_Click()
Dim nombreArchivo As String
    Dim nombreTabla As String

    'Seleccionar archivos de texto
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Seleccionar archivos de texto"
        .Filters.Clear
        .Filters.Add "Archivos de texto", "*.txt", 1
        .AllowMultiSelect = True
        If .Show = True Then
            'Recorrer archivos seleccionados
            For i = 1 To .SelectedItems.Count
                nombreArchivo = .SelectedItems(i)

                'Obtener nombre de tabla según los dos primeros caracteres del archivo
                nombreTabla = Left$(Dir(nombreArchivo), 2)

                'Importar tabla
                DoCmd.TransferText acImportDelim, , nombreTabla, nombreArchivo, False
            Next i
        Else
            Exit Sub
        End If
    End With
End Sub

eL CODIGO ME FUNCIONA SI A LAS TABLAS LES CAMBIO EL NOMBRE DE LOS 2 PRIMEROS CARACTERES, Y LE CAMPO LOS NOMBRE DE LOS CAMPOS F1, F2,F3........... HASTA TERMINAR LOS NOMBRES DE LOS CAMPOS

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
ferzacha77 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 20/Septiembre/2021 Localización: Mocoa Ptyo Estado: Sin conexión Puntos: 8	Opciones de entrada Responder Cita ferzacha77 Informar de mensaje Gracias(0) Cita Respuesta Tema: Carga de Archivos de Texto a Acces Enviado: 25/Marzo/2023 a las 05:01
	Importar varios Archivos de Texto a las tabla en acces, debo seleccionar la carpeta donde estan almacenados, que tome los dos primeros caracteres del Nombre del Archivo de texto y busque en la base de datos con esos 2 caracteres y los importe, los atchivos de texto no tiene encabezados que al insertarlo no me toca cambiar los nombres de los campos de las tablas Private Sub Comando1_Click() Dim nombreArchivo As String Dim nombreTabla As String 'Seleccionar archivos de texto With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccionar archivos de texto" .Filters.Clear .Filters.Add "Archivos de texto", "*.txt", 1 .AllowMultiSelect = True If .Show = True Then 'Recorrer archivos seleccionados For i = 1 To .SelectedItems.Count nombreArchivo = .SelectedItems(i) 'Obtener nombre de tabla según los dos primeros caracteres del archivo nombreTabla = Left$(Dir(nombreArchivo), 2) 'Importar tabla DoCmd.TransferText acImportDelim, , nombreTabla, nombreArchivo, False Next i Else Exit Sub End If End With End Sub eL CODIGO ME FUNCIONA SI A LAS TABLAS LES CAMBIO EL NOMBRE DE LOS 2 PRIMEROS CARACTERES, Y LE CAMPO LOS NOMBRE DE LOS CAMPOS F1, F2,F3........... HASTA TERMINAR LOS NOMBRES DE LOS CAMPOS

xavi Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya \|\|\|\| Estado: en línea Puntos: 14738	Opciones de entrada Responder Cita xavi Informar de mensaje Gracias(0) Cita Respuesta Enviado: 25/Marzo/2023 a las 15:22
	Perdona pero, si funciona, ¿cual es el problema? Un saludo
	Xavi, un minyó de Terrassa Mi web