Código de Excel - Pasar datos de excel a TXT

<<>>
Imágen de perfil
Val: 15
Ha aumentado su posición en 167 puestos en Excel (en relación al último mes)
Gráfica de Excel

Pasar datos de excel a TXTgráfica de visualizaciones


Excel

Publicado el 13 de Junio del 2019 por Wilb
216 visualizaciones desde el 13 de Junio del 2019
Pasar datos de excel a TXT
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Pasar datos de excel a TXT
Sub Consulta01()
Dim NombreArchivo, rutaArchivo As String
NombreArchivo = Range("A1")
rutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"
Open (rutaArchivo) For Output As 1
Print #1, ActiveSheet.Range("A2").Value
Print #1, ActiveSheet.Range("A3").Value
Print #1, ActiveSheet.Range("A4").Value
Print #1, ActiveSheet.Range("A5").Value
Close #1
Range("A1").Select
MsgBox "Archivo >>>" & NombreArchivo & "<<< Generado con Exito", , "ExcelConsultor"
End Sub

1

Publicado el 13 de Junio del 2019gráfica de visualizaciones de la versión: 1
216 visualizaciones desde el 13 de Junio del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

  • Archivos para descargar

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: 1 (0)


No hay comentarios
 

Comentar la versión: 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5357
Revisar política de publicidad