Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

[SOLUCIONADO] exportar datos de txt a excel con vb

Estas en el tema de exportar datos de txt a excel con vb en el foro de Visual Basic clásico en Foros del Web. Hola buen dia tengo algunas dudas de una macro que estoy creando. una base de datos me esta arrojando un txt con la siguiente estructura ...
  #1 (permalink)  
Antiguo 13/06/2012, 15:11
 
Fecha de Ingreso: mayo-2012
Mensajes: 18
Antigüedad: 11 años, 11 meses
Puntos: 0
exportar datos de txt a excel con vb

Hola buen dia

tengo algunas dudas de una macro que estoy creando. una base de datos me esta arrojando un txt
con la siguiente estructura
|hola|1|1|1|1|1|1|1|1|1|
|tu|1|1|1|1|1|1|1|1|1|
|no|1|1|1|1|1|1|1|1||
|beto|1|1|1|1|1|1|1|1|1|

Tengo una platilla en excel que me lee los datos y me arroja unos graficos.
lo que no puedo hacer en excel es lo siguiente
me esta pegando todoslos datos en una celda.
unicamente quiero los que esta dentro de las pipas(¶6¶) y cuando no tenga nada la pipa siga con la siguiente
ayuda muchas gracias

Les envio una macro que lo hace de un excel a otro excel
Sub Macro1()
'
' Macro1 Macro
' trae los libros e informaccion de la base
'
' Acceso directo: CTRL+a
Dim ruta As String

ruta = ThisWorkbook.Path


Workbooks.Open Filename:=(ruta & "\Encuesta_Reaccion_General.xls")
Range("C6:AW20000").Select
Selection.Copy
Windows("platillafinal.xls").Activate
Sheets("Datos").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Calificación").Select
Application.CutCopyMode = False
Workbooks("Encuesta_Reaccion_General.xls").Close False
Application.CutCopyMode = False
UserForm1.Show
Kill ThisWorkbook.Path & "\Encuesta_Reaccion_General.xls"
Application.DisplayAlerts = False
Application.Quit
End Sub
muchas gracias

Última edición por alberto_audi; 13/06/2012 a las 17:04

Etiquetas: excel, txt, vb, win7
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:45.