Visual Basic - Exportar TXT a Excel

Life is soft - evento anual de software empresarial
 
Vista:

Exportar TXT a Excel

Publicado por Diego (1 intervención) el 18/05/2009 17:18:55
Hola...
Bueno les comento que tengo un archivo TXT el cual lo quiero pasar a Excel... Lo que ando necesitando es si alguien me podria ayudar con el codigo ya que necesitacia dentro de ese excel acomodar los saltos de columnas tengo los espacios establecidos con los numeros donde quiero q este cada salto!! quisiera saber si esto e sposible y si alguien me podria dar una mano! una vez q tenga esto tendria q concatenar solamente 2 columnas! desde ya muchsimas gracias espero respuesta!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Exportar TXT a Excel

Publicado por Rolando Lau (115 intervenciones) el 18/05/2009 18:04:23
Me imgino que lo quieres hacer desde visual basic

Private Function CargaRS(Ruta As String, archivo As String) As ADODB.Recordset

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection

'Cadena de conexión
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & Ruta & ";", "", ""

'Ejecutamos el recordset pasandole el archivo de texto en la cláusula From
rs.Open "select * from [" & archivo & "#txt]", conn, adOpenStatic, _
adLockReadOnly, adCmdText

'eliminamos las variables
Set CargaRS= rs
Set rs = Nothing
Set conn = Nothing
End Function

Esta funcion lee tu archivo txt y lo transforma en un Recordset

Ahora el exportar un Recordset a excel , esos ejemplos hay muchos en internet.

saludos

Rolando Lau
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar