Importacion de Excel, usando headers especificos

[Yoso]

Bueno, pues a los tumbos he aprendido Access a niveles aceptados y pues mayormente merodeando por Google. Ahora me hallo en una disyuntiva, ya que quiero subir archivos Excel y con ellos llenar una tabla.

El boton para buscar el archivo y tener la ruta y todo eso, ya està mas que listo, ahora el problema viene al aceptar los archivos de excel, ya que al tenerlo listo y todo, al usar el TransferSpreadSheet quiero usar solo 3 columnas de ese excel, el nombre, el id y el importe pagado. No necesito ningun otro dato como fecha, plazo o cosas d esas, lo unico que necesito son esos tres datitos, y no creo haya problema pues los formatos de los excel tienen el mismo numero de columnas, mas no el mismo numero numero de rows, ya algunos tienen desde 1249 registros hasta donde hay unos que tienen solo 15. Estaba pensando en usar alguna variaciòn de lo que es el usedrange para poder definir el nùmero de longitud aunque me regresa siempre algo del tipo $A$1:$X$123, en ese formato cuando yo lo que quiero es tener solo el 1 y el 123 jeje. Ese es un problema.

Otro es, que no quiero importar los headers, ya que el formato dado por los que manejan los excel, generalmente contadores, es un tanto raro, y en los headers siempre ponen caracteres raros o puntos, lo unico que me interesa entonces es la informaciòn pura, pero al poner entre el rango del TransferSpreadSheet y que no tome los headers, siempre me manda un error de que no halla el registro F1. Entonces ese es el otro problema.

Y el tercer y ultimo problema esque el formato no empieza casi nunca en A1, de hecho todos empiezan en C4 entonces queria ver como deberia ser sin tener problemas con lo de que no inicie asi, ya que es una perdida de tiempo abrir excel por excel y modificarlos para que sean en formato que empieza en A1.

Acà anexo mi còdigo:

Código:

Private Sub busca_Click()
Dim strFilter As String
    Dim strInputFileName As String

strFilter = ahtAddFilterItem(strFilter, "*.xls", "*.xls")
Me.RutaMaster.value = ahtCommonFileOpenSave( _
                Filter:=strFilter, OpenFile:=True, _
                DialogTitle:="Selecciona el archivo...", _
                Flags:=ahtOFN_HIDEREADONLY)
End Sub
Private Sub guarda_Click()
    Dim xlobj
    Dim wsobj
    Dim rngobj
    'Set xlobj = GetObject(Me.RutaMaster)
    'Set wsobj = xlobj.worksheets("6A42 AREA 30")
    'Set rngobj = wsobj.usedrange
    'DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "PIVNOMRECIB", Me.RutaMaster, True, "A" & rngobj.Address & ":B" & rngobj.Address & ""
    'Set xlobj = Nothing
     DoCmd.TransferSpreadsheet acImportDelim, acSpreadsheetTypeExcel97, "AUXNOMRECIB", Me.RutaMaster, True
     
End Sub

Espero alguien pueda ayudarme ya que llevo como 15 horas leyendo y leyendo sin poder hallar una soluciòn plausible.

Saludos!

[Daviel]

A ver checate este código, lo utilizo para cargar diversos datos como balanzas, pólizas, catálogos, etc. desde excel a access, espero te sirva, saludos.

Este es el código:

Código vb:

Sub CargarDesdeExcel()
        Dim o_Hoja, o_Excel, o_Libro As Object
        o_Excel = CreateObject("Excel.Application")
        Dim xFila, Fila, xRow As Integer
        xRow = 1
        o_Libro = o_Excel.WorkBooks.Open("Ruta de tu libro de excel")
        o_Hoja = o_Libro.Worksheets("hoja de tu libro")
        'cuento las filas con datos de la hoja partiendo de la celda A1, A2, 
        'o la que gustes donde los datos sean continuos y sin espacios en blanco para obetener el numero de filas
        While Not o_Hoja.Range("A" & xRow).Value = Nothing
            xRow = xRow + 1
        End While
        'condiciono la carga de los datos de la hoja en caso de que la misma tenga rotulos o no
        'asignandole a xFila el valor de la fila donde quiero que inicie el bucle que la carga de datos
        Select Case TieneRotulosElLibroChk.Checked
            Case False
                xFila = 1
            Case True
                xFila = 2
        End Select
        Dim BDCn As New ADODB.Connection
        Dim BDRd As New ADODB.Recordset
        BDCn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & TuRuta & ";Persist Security Info=False;Jet OLEDB:DataBase Password=hu9rethu")
        BDRd.Open("TuTabla", BDCn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
        If Not BDRd.BOF Then
            With o_Hoja
                'Recorro la hoja de excel
                For Fila = xFila To xRow - 1
                    BDRd.AddNew()
                    'agrego a mi base de datos los valores de las celdas que yo le estoy indicando
                    BDRd.Update("Mov", .Range("A" & Fila).Value)
                    BDRd.Update("FechaPol", .Range("B" & Fila).Value)
                    BDRd.Update("TipoPol", .Range("C" & Fila).Value)
                Next Fila
            End With
        Else
            With o_Hoja
                For Fila = xFila To xRow - 1
                    BDRd.AddNew()
                    BDRd.Update("Mov", .Range("A" & Fila).Value)
                    BDRd.Update("FechaPol", .Range("B" & Fila).Value)
                    BDRd.Update("TipoPol", .Range("C" & Fila).Value)
                    BDRd.Update("NumPol", .Range("D" & Fila).Value)
                Next Fila
            End With
        End If
        BDRd.Close()
        BDCn.Close()
        BDRd = Nothing
        BDCn = Nothing
        o_Hoja = Nothing
        o_Libro.Close()
        o_Libro = Nothing
        xFila = Nothing
        Fila = Nothing
        xRow = Nothing
        MsgBox("Importación Terminada")
    End Sub