Buenas,
Tengo el siguiente problema: cuando importo una tabla de Access
a Excel
, el rango de la tabla que quiero crear es fijo y no se adapta al número de columnas de la tabla en Access.
Si la tabla en Access coincide con el rango en Excel
no hay problemas, pero cuando la tabla de Access
tiene más campos la tabla que se crea en la hoja se queda corta.
El procedimiento que tengo para importar una tabla se llama
ImportarDatos()
Public Sub ImportarDatos()
On Error GoTo Errohandler
Dim strPath As String
Dim strVariablePath As String
Dim adConn As New ADODB.Connection
Dim recSet As New ADODB.Recordset
Dim ws As Worksheet
Dim strDB As String
Dim strSQL As String
Dim strTabla As String
Dim strVariableTabla As String
Dim longCampos As Long
Dim i As Long
Dim strNombreHoja As String
Dim strNombreTabla As String
Dim strVariableNombreTabla As String
strVariablePath = Range("TablaRutaBD")
strPath = strVariablePath
With adConn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Properties("Data Source") = strPath
.Properties("Jet OLEDB:Database Password") = ""
.Open
End With
strVariableTabla = Range("TablaNombreTabla")
strTabla = strVariableTabla
strSQL = "SELECT * FROM " & strTabla & " "
recSet.Open strSQL, adConn
strNombreHoja = Range("TablaNombreHoja")
Set ws = ActiveWorkbook.Worksheets(strNombreHoja)
strVariableNombreTabla = Range("TablaNombreExcel")
strNombreTabla = strVariableNombreTabla
ws.ListObjects.Add(xlSrcRange, Range("$A$1:$F$1"), , xlYes).name = strNombreTabla
Sheets(strNombreHoja).Cells(2, 1).CopyFromRecordset recSet
longCampos = recSet.Fields.Count
For i = 0 To longCampos - 1
ws.Cells(1, i + 1).Value = recSet.Fields(i).name
Next
recSet.Close: Set recSet = Nothing
adConn.Close: Set adConn = Nothing
Errohandler:
If Error = 9 Then
Resume
End If
End Sub
La línea donde defino el número de columnas es este:
ws.ListObjects.Add(xlSrcRange, Range("$A$1:$F$1"), , xlYes).name = strNombreTabla
¿Cómo puedo poner para que el rango se adapte al número de columnas?