pasar de archivo txt a un formato excel con un boton enlazada con una macro

[juvealexis]

Buenas a todos como pueden ver soy nuevo en este foro, pero requiero de ayuda para realizar mi proyecto de pasantias en el cual se basa de realizar un sistemita para el dpto. de instrumentacion de una empresa.
Ellos monitorean mediante un programa desarrollado en Labview y el programa arroja un archivo .txt ese archivo .txt ellos tienen que copiar todo lo que contengan y lo pegan en un formato que tienen en excel donde le generan las graficas.
Lo que yo quiero es que mediante el formato desde excel con un boton me de la opcion de buscar el archivo .txt y que me quede igual que como si lo estuviese copiando y pegando.

Este es el TXT


Este es el excel como quiero que quede



Aqui les dejo los archivos para que le hechen un vistazo
http://dl.dropbox.com/u/14171402/ejemplos.rar

Aclaro que no soy un experto en excel pero aprendo rapido, espero que me puedan ayudar, he visto varios ejemplos donde se importan datos concretos de un txt a excel pero no me queda del todo claro. Se que aqui hay gente que de verdad sabe que me puede hechar una mano. Gracias por la ayuda que me puedan prestar.

[mrocf]

Hola! juvealexis.
Ya que deseas aprender te sugeriría leer atentamente el siguiente artículo:

--> Convertir texto en columnas

Para tu necesidad -en particular- deberás utilizar (en lugar del caracter "espacio" del artículo referido) el caracter "Tabulación" como separador de campos.

Saludos, Cacho R.

[juvealexis]

Gracias por la respuesta mrocf voy hecharle un vistazo a el enlace!

[juvealexis]

Iniciado por mrocf

Hola! juvealexis.
Ya que deseas aprender te sugeriría leer atentamente el siguiente artículo:

--> [URL="http://office.microsoft.com/es-es/excel-help/dividir-nombres-con-el-asistente-para-convertir-texto-en-columnas-HA010102340.aspx?CTT=1"]Convertir texto en columnas[/URL]

Para tu necesidad -en particular- deberás utilizar (en lugar del caracter "espacio" del artículo referido) el caracter "Tabulación" como separador de campos.

Saludos, Cacho R.

Quiero darte las gracias porque el enlace que me proporcionaste me ayudo a lo que queria realizar.. ahora tengo otras para ver si me pueden ayudar.. ya logre que me leyera el txt pero ahora quiero que en vez de darle el nombre de txt me abra el explorador para yo buscar el txt. Lo estoy haciendo con Application.GetOpenFilename Me abre el archivo pero en un libro nuevo, como lo puedo hacer para que me abra el archivo seleccionado en la misma hoja excel donde tengo el botón con la macro. Y una ultima pregunta para terminar como hago para poner los titulos de los graficos lo que tengo en mi hoja que se llama prueba desde la celda A1 hasta A9? Gracias

[mrocf]

Voy a seguir haciéndote "trabajar" (jajaja)...

a) Enciende tu grabadora de macros;
b) Haz todos los pasos pertinentes a abrir el archivo txt y convertir su texto en columnas;
c) Mueve la hoja así convertida a tu libro principal (espero que sepas hacerlo);
d) Apaga la grabadora de macros.

Lo anterior te creará un par de líneas de código que habrá que depurar para que obtengas un código aplicable en todos los casos (incluyendo al GetOpenFilename).

Publica, entonces, en este intercambio el código obtenido para depurarlo.

Saludos, Cacho R.

[juvealexis]

Hola mrocf gracias por la ayuda no habia comentado mas porque ando muy ocupado con la tesis y con las pasantias. Te comento que logre hacerlo lo que queria y les dejo el codigo por si alguien mas necesita saber como es.

Option Explicit
Dim f As Variant
Dim a As Workbook
Dim w As Workbook
Public ws As Worksheet
Dim iCount As Integer

Sub ImportData()
Application.ScreenUpdating = False
Set a = ActiveWorkbook

' Usuario puede elegir el archivo .txt a usar
f = Application.GetOpenFilename("Abrir archivo de texto (*.txt),*.txt")

' Abre e importa y renombra la hoja, ademas convierte el texto en columna
If f = False Then Exit Sub
Workbooks.OpenText Filename:=f, _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, OtherChar _
:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1)), TrailingMinusNumbers:=True
Set w = ActiveWorkbook
w.Sheets(1).Name = "Temp"

' Copiar datos a la hoja principal
w.Sheets(1).Copy After:=a.Sheets(a.Sheets.Count)
Set ws = ActiveSheet
w.Close SaveChanges:=False
Set w = Nothing
Set a = Nothing
ActiveCell.CurrentRegion.Select
Application.ScreenUpdating = True
End sub