Aplicacion para importar txt a excel

[t0n1]

Que tal, estuve investigando y encontré este codigo para importar txt a un datagrid que me funciona, pero me trae la informacion en dos columnas cuando tendrian que ser varias. Este es el codigo:

Código:

    Option Explicit  
      
      
    ' variables de Ado para el rec y la conexión  
      
    Dim cn As New ADODB.Connection  
    Dim rs As New ADODB.Recordset  
      
    Private Sub Form_Load()  
        ' cursor del lado del cliente  
        cn.CursorLocation = adUseClient  
          
        ' abre el archivo de texto datos.txt ubicado en el app.path  
           cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
                     & "Data Source=" & App.Path & ";" _
                    & "Extended Properties='text;HDR=NO;FMT=Delimited'" 
          
          
        ' Ejecuta la consulta sql para llenar el recordset  
          
        rs.Open "Select * from datos.txt ", cn, adOpenStatic  
          
        ' enlaza el recordset con el DataGrid  
        Set DataGrid1.DataSource = rs  
    End Sub

Quisiera saber que hubiera que corregir del codigo para que delimite por tabulacion.


Slds!