Error con conexion de una bd en excel AYUDDDDD

Hola Estoy Utilizando el siguiente codigo en vba para conectarme a una
base
de datos en excel, pero me saca un error qdonde me dice que el nombre de
la
hoja no es valido...que puedo hacer??

Public Sub Importar_Excel( _
Libro As String, _
hoja As String, _
Optional rango As String = "")

Dim conexion As ADODB.Connection, rs As ADODB.Recordset

Set conexion = New ADODB.Connection

conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Libro & _
";Extended Properties=""Excel 8.0;HDR=Yes;"""


' Nuevo recordset
Set rs = New ADODB.Recordset

With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
End With

If rango <> ":" Then
hoja = hoja & "$" & rango
End If

rs.Open "SELECT * FROM [" & hoja & "]", conexion, , , adCmdText

Sara Maria Velez Rave

Estoy Utilizando el siguiente codigo en vba para conectarme a una base de datos en excel
pero me saca un error qdonde me dice que el nombre de la hoja no es valido...que puedo hacer??

Public Sub Importar_Excel( _
Libro As String, _
hoja As String, _
Optional rango As String = "")
Dim conexion As ADODB.Connection, rs As ADODB.Recordset
Set conexion = New ADODB.Connection
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Libro & _
";Extended Properties=""Excel 8.0;HDR=Yes;"""
' Nuevo recordset
Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
End With
If rango <> ":" Then
hoja = hoja & "$" & rango
End If
rs.Open "SELECT * FROM [" & hoja & "]", conexion, , , adCmdText

Sara Maria Velez Rave

Estoy Utilizando el siguiente codigo en vba para conectarme a una base de datos en excel
pero me saca un error qdonde me dice que el nombre de la hoja no es valido...que puedo hacer??