Aplicacion para importar txt a excel

[t0n1]

Hola!

Quisiera saber si en vb6 se podría hacer una aplicación que transforme un archivo txt a excel y que adentro de un boton, se ejecute una query que cruce este archivo ya transformado con otro excel y termine mostrando los datos finales en una grilla o en un excel nuevo.


Saludos!

[Carlangueitor]

Sí, se puede.

[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!

[silver_axe007]

Yo crearia una plantilla del excel1 .. .la abriria y pegaria el texto (esto ya lo tengo implementado en un programita), luego cerraria ese y haria la comparacion .... guardaria el resultado en algun lado o directamten en un excel 3

**Si podrias dar detalles de los archivos que intervienen te podria ayudar mas

SAludos.