Demo entry 6881458

Excel Consultor

   

Submitted by W on Sep 11, 2019 at 03:27
Language: VBScript. Code size: 532 Bytes.

'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

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).