Estadísticas de la versión: 1 - Pasar datos de excel a TXT - Excel

<<>>
Imágen de perfil
Val: 15
Ha disminuido su posición en 2 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
619 visualizaciones desde el 13 de Junio del 2019. Una media de 112 por semana
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 2019
619 visualizaciones desde el 13 de Junio del 2019. Una media de 112 por semana

619 visualizaciones durante los últimos 42 días (Una media de 15 por día)


90
0
Revisar política de publicidad