Macro importar archivos txt a la vez con delimitación por tabulación, punto y coma y por otros

He visto que publicasteis un macro para importar archivos txt a excel pero yo quería que estuvieran delimitados por tabulación, punto y coma y por otros. ¿Cómo podría ser? El macro es el siguiente:

Sub abrir_txt()
On Error Resume Next
milibro = ActiveWorkbook.Name
Set navegador = CreateObject("shell.application")
carpeta = navegador.browseforfolder(0, "SELECCIONA CARPETA", 0, "c:\").items.Item.Path
ChDir carpeta & "\"
archi = Dir("*.txt")
Do While archi <> ""
Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited
otro = ActiveWorkbook.Name
ActiveSheet.Copy before:=Workbooks(milibro).Sheets(1)
Workbooks(otro).Close False
archi = Dir()
Loop
End Sub

1 Respuesta

Respuesta
3

Para ello la única línea que tendrías que modificar es la siguiente y dependiendo de cada caso:

-Separado por comas

Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited, comma:=true

-Separado por punto y coma

Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited, semicolon:=true

-separado por tabulación

Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited, tab:=true

-separado por espacios

Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited, space:=true

-separado por otro símbolo a definir.

Workbooks.OpenText archi, origin:=xlWindows, startrow:=1, DataType:=xlDelimited, other:=true, otherchart:="?"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Importar varios archivos txt a la vez a un libro de excel

Antes que nada gracias por compartir sus conocimientos con un servidor y aprovecho la ocasión para hacer una consulta. Cómo puedo importar, por medio de una macro, todos los archivos txt que existan dentro de un folder, y que estos me los vaya...
2 respuestas

Como importar la tercera columna de varios txt a una hoja excel

Con la siguiente macro copio a una hoja excel los datos de todos los txt q tengo en la carpeta donde pongo el archivo excel y el nombre del archivo, estos txt tenían solo una columna de datos y la macro funciona perfecto para esto. Ahora debo hacer...
1 respuesta

Macro para importar datos de txt a una hoja Excel

Estoy usando Excel 2003 y realmente es la primera vez que trabajo con el, bueno mi problemas es el siguiente. Tengo una carpeta que contiene varios archivos txt, estos contienen una columna de datos cada uno, y necesito hacer una macro que en una...
2 respuestas

Copiar el contenido de archivos txt incrementalmente sobre hoja de excel

Les comento, tengo varios archivos txt, y necesito llevar su contenido a un libro y hoja de excel en particular. El detalle es que el contenido de cada txt debe ocupar linea a linea en el excel, y a continuación, el siguiente txt se debe agregar a la...
2 respuestas

Macro en Excel extraer de .txt y separar en hojas

Tengo que estraer un texto de un fichero txt y pegarlo en excel separado por columnas. La MACRO que he usado es la siguiente: Sub ejemplo() mio = ActiveWorkbook.Name ruta = ActiveWorkbook.Path ChDir ruta & "\" archi = Dir("*.txt") Do While archi <>...
1 respuesta

Exportar varios archivos txt a una sola hoja de Excel, con el nombre del archivo txt

Tengo varios archivos txt, computer1.txt, computer2.txt, pc3.txt, compu.txt, etc. Cada uno de ellos tiene al menos un renglón con información, en otros casos pueden llegar a tener hasta más de 10 renglones. Dado que son alrededor de 2,000 archivos...
2 respuestas

Macro para copiar información de archivos .txt desde una carpeta a excel

Busco una macro para importar información de archivos .txt a excel, de forma que los vaya agregando en las filas (no en las columnas) en forma continua. Por ejemplo: .txt-1 celda A1- A20 y de ahí el siguiente archivo txt vaya de la celda A21 en...
2 respuestas

Macro para automatizar proceso de carga TXT en Excel

Tengo 0 experiencia en Macros y necesito de sus conocimientos para lograr automatizar un proceso. Resulta que en el trabajo de vez en cuando nos piden auditoria de todas las PCs (alrededor de 400). Con especificaciónes de hardware, sistema operativo,...
1 respuesta

CSV y XLS Formato

Como puedo hacer para abrir un csv, separado por ;, y que respete el formato de excel, es decir que me coloque cada registro en una celda desde VBA
3 respuestas

Control de excel desde programa externo

Yo hice esta misma pregunta hace unmes a dos expertos y todavía no he recibido respuesta, pero en fin al grano. Hola estoy tratando de controlar excel desde autocad vía vba, mi problema es el siguiente quizás sea sencilla pero no logro resolverlo....
1 respuesta