Crear archivo txt con macro VBA Excel Resuelto

Question

Hola,
Me gustaría crear un macro de Excel que genere un archivo txt, cuyo contenido sea el contenido de una celda del proyecto de Excel.
Y que se abra al mismo tiempo.
Gracias de antemano.

Configuración: Windows 7 / Firefox 15.0.1

f894009 · Accepted Answer

Bonjour,  Sub crear_TXT() Close ruta = "C:\directorio" Open ruta & "Archivo.txt" For Output As #1 Print #1, Worksheets("hoja1").Range("A1") Close End Sub   Y que se abra al mismo tiempo.

HoodRide · Answer

Bonjour Laurent75_

Hay una solución que consiste en poner la columna A en un arreglo (array) en un primer momento y luego alimentar el archivo txt a partir del arreglo:

 Dim Chemin As String Dim DerniereLigne As Long 'Índice de la última línea Dim Tableau() As Variant Dim Ligne As Long Chemin = "C:\VBA\" DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row 'Creación del arreglo mediante un bucle Ligne = 1 Do While Ligne <= DerniereLigne 'Añadiendo 1 elemento al array conservando los elementos anteriores ReDim Preserve Tableau(Ligne) 'Asignación del valor al nuevo elemento Tableau(Ligne) = Range("A" & Ligne).Value Ligne = Ligne + 1 Loop 'Escribe en el archivo txt Ligne = 1 Do While Ligne <= DerniereLigne Open Chemin & "Temporaire.txt" For Append As #Ligne Print #Ligne, Tableau(Ligne) & vbCrLf Close Ligne = Ligne + 1 Loop MsgBox ("c'est ok") End Sub

HoodRide · Answer

Hola, Pequeña corrección para el segundo bucle: debe ponerse antes de este bucle  Close Luego poner #1 y no #Línea.

Crear archivo txt con macro VBA Excel

3 respuestas

How to contact to get someone online

Obtener office gratis

Teclado qwerty árabe

Problema para restablecer las teclas de mi teclado

Iphone apple 6s creación de un identifiant apple problema

Facebook contact hacké

Vpn puerto udp tcp

Menú no disponible tv toshiba

El teclado de mi samsung a32 ya no aparece

Conexión wi-fi imposible