Public Sub Importar_Excel( _
Libro As String, _
hoja As String, _
Optional rango As String = "")
 Dim Registros() As Variant
 Dim direcciontxt As String
 Dim separador As String
 Dim connString As String
 
Dim conexion As ADODB.Connection, rst As ADODB.Recordset
Set conexion = New ADODB.Connection

conexion.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & Libro & _
         ";Extended Properties=""Excel 12.0;HDR=Yes;"""
         
    Set rst = New ADODB.Recordset

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

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

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

    Set DataGrid1.DataSource = rst
        direcciontxt = App.Path & "\" & "DATOS.txt"
        separador = ";"
    Call Exportar_Recordset(rst, direcciontxt, separador)
End Sub

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

conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & Libro & _
         ";Extended Properties=""Excel 12.0;HDR=Yes;"""