Abrir txt con macros

Espero puedas apoyarme con mi problema, debo crear un excel en el cual en la hoja1 entre otras cosas tenga un boton cuya tarea es abrir un archivo txt y copiar su contenido en la hoja2 del excel creado, el problema es que no tengo idea de como hacer ello, te agardecere puedas darme una idea o un ejemplo de lo solicitado

1 Respuesta

Respuesta
1
Aquí te dejo un ejemplo, pero tienes que modificarlo según tus necesidades ya que me parece que debes investigar por tu cuenta.
Sub ImportLongLines()
' Importar un archivo de texto con >256 columnas de datos
Dim ImpRange As Range
Dim r As Long, c As Integer
Dim CurrLine As Long
Dim Data As String, Char As String, Txt As String
Dim i As Integer
Dim CurrSheet As Worksheet
' Crear un nuevo libro de trabajo con una hoja
Workbooks.Add xlWorksheet
Open ThisWorkbook.Path & "\longfile.txt" For Input As #1
r = 0
c = 0
Set ImpRange = ActiveWorkbook.Sheets(1).Range("A1")
Application.ScreenUpdating = False
' Leer la primera línea, e insertar nuevas hojas si es necesario
CurrLine = CurrLine + 1
Line Input #1, Data
For i = 1 To Len(Data)
Char = Mid(Data, i, 1)
' ¿Estamos fuera de columnas?
If c <> 0 And c Mod 256 = 0 Then
Set CurrSheet = ActiveWorkbook.Sheets.Add(after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count))
Set ImpRange = CurrSheet.Range("A1")
c = 0
End If
' ¿Fin del campo?
If Char = "," Then
ImpRange.Offset(r, c) = Txt
c = c + 1
Txt = ""
Else
' Saltar caracteres
If Char <> Chr(34) Then _
Txt = Txt & Mid(Data, i, 1)
' ¿Fin de línea?
If i = Len(Data) Then
ImpRange.Offset(r, c) = Txt
c = c + 1
Txt = ""
End If
End If
Next i
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Leer los datos restantes
c = 0
CurrLine = 1
Set ImpRange = ActiveWorkbook.Sheets(1).Range("A1")
r = r + 1
Do Until EOF(1)
Set ImpRange = ActiveWorkbook.Sheets(1).Range("A1")
CurrLine = CurrLine + 1
Line Input #1, Data
Application.StatusBar = "Processing line " & CurrLine
For i = 1 To Len(Data)
Char = Mid(Data, i, 1)
' ¿Estamos fuera de columnas?
If c <> 0 And c Mod 256 = 0 Then
c = 0
Set ImpRange = ImpRange.Parent.Next.Range("A1")
End If
' Final de campo
If Char = "," Then
ImpRange.Offset(r, c) = Txt
c = c + 1
Txt = ""
Else
' Saltar caracteres
If Char <> Chr(34) Then _
Txt = Txt & Mid(Data, i, 1)
' ¿Final de línea?
If i = Len(Data) Then
ImpRange.Offset(r, c) = Txt
c = c + 1
Txt = ""
End If
End If
Next i
c = 0
Set ImpRange = ActiveWorkbook.Sheets(1).Range("A1")
r = r + 1
Loop
' Ordenar
Close #1
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub
[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Buscar minúsculas en algunas celdas de excel ejemplo xj48111 o 150hk0

En una columna de una planilla de excel, tengo algunas celdas com letras minúsculas ejemplo Xj48111, 150hk0, y necesito buscar la celda que tiene una letra en minúscula O alguna forma de resaltar los valores que contengan letras en minúsculas.
1 respuesta

Cargar txt a access desde vba

Hace un par de meses empecé a usar access para manejar una BD y de a poco fui aprendiendo SQL y algo de VBA. Mi problema es el siguiente quiero automatizar la carga de datos (la BD es de un sistema de cobranzas) el banco realiza los cobros de los...
1 respuesta

Copiar Texto de archivo .txt a celda excel utilizando macros

Tengo el siguiente código para abrir archivos de texto .txt y copiar su contenido en una celda de Excel, pero como hacer cuando el texto en el archivo .txt tiene mas caracteres de los permitidos por una celda, como hacer para hacer que el resto lo...
1 respuesta

Formulario con 2 combobox y guardar datos en diferente libro

Un mega favor esperando que me puedas ayudar Tengo un formulario con 2 combobox los cuales el primero Con el siguiente código Private Sub UserForm_Activate() 'Captura datos y guarda en empresa ws_Count = ActiveWorkbook.Worksheets.Count For i = 1 To...
1 respuesta

Crear documentos notes a partir de un fichero txt

Espero me puedas echar una mano. Necesito importar los datos de un fichero txt a notes creando nuevos documentos. ¿Me puedes decir cómo puedo leer los registros del txt, para ir metiendo cada dato en su correspondiente campo del nuevo documento?.
1 respuesta

Como cierro una ventana.

La verdad tengo 2 preguntas, la primera es como hago para cerrar una ventana sin finalizar todo el programa, utilice el end pero me saca del programa, y la segunda pregunta es: Como hago para guardar un archivo pero que el mismo me lo guarde con un...
1 respuesta

Access: función para cambiar de números a letras

A ver si me ayudas, en la función que hace poco recomendaste para cambiar de números a letras (1,500 a un mil quinientos) existe un error con los quinientos ya que te pone un mil cincocientos, me podrías ayudar a corregirlo y a agrgarle los...
1 respuesta

Convertir Números a letras en un Informe

Tengo un campo numérico en una Consulta con BD. Deseo que en mi reporte se vea en letras el valor del número, incluido el valor monetario
1 respuesta

Importar un archivo txt en access

Bueno tengo un archivo txt en la siguiente ruta c:\planos\ac.txt necesito subirlo a una base de datos en access el código que he usado es el siguiente pero no me funciona no se que sucede me podrían colaborar ahí envío el código que estoy usando...
1 respuesta

¿Cómo convertir el valor de un campo numérico en un texto en acces?

Por que necesito con urgencia resolver este problema. Lo que no logro es que, por ejemplo, "1.500" access lo escriba en un cuadro texto como "mil quinientos". Trabajo sin decimales con valores >0. Ojalá me puedas ayudar ya que me salvarías de un gran...
1 respuesta