Create txt file with Excel VBA macro Solved

Question

Hello,
I would like to create an Excel macro that creates a txt file containing the content of a cell from the Excel project.
And that it is opened at the same time.
Thank you in advance.

Configuration: Windows 7 / Firefox 15.0.1

f894009 · Accepted Answer

Hello,  Sub create_TXT() Close path = "C:\directory" Open path & "File.txt" For Output As #1 Print #1, Worksheets("Sheet1").Range("A1") Close End Sub   And that it be opened at the same time.

HoodRide · Answer

Hello Laurent75_

There is a solution that involves putting column A into an array initially and then writing to the txt file from the array:

 Dim Path As String Dim LastRow As Long 'Index of the last row Dim Array() As Variant Dim Row As Long Path = "C:\VBA\" LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row 'Creating the array through a loop Row = 1 Do While Row <= LastRow 'Adding 1 item to the array while keeping the previous elements ReDim Preserve Array(Row) 'Assigning the value to the new element Array(Row) = Range("A" & Row).Value Row = Row + 1 Loop 'Writes to the txt file Row = 1 Do While Row <= LastRow Open Path & "Temporary.txt" For Append As #Row Print #Row, Array(Row) & vbCrLf Close Row = Row + 1 Loop MsgBox ("it's ok") End Sub

HoodRide · Answer

Hello, Small correction for the 2nd loop: you need to put before this loop  Close Then put #1 and not #Line

Create txt file with Excel VBA macro

3 answers

Computer that locks itself automatically

History of messages for new members in whatsapp discussions

Server error: "uid copy: uid copy failed"

Sound disappears after returning from sleep mode

Connecting a sony handycam video 8 ccd f555e to an hd tv

Download openoffice without extensions

Get office for free

Unable to install the media feature pack on windows ...

Pocophone f1 phone and moto g 77 phone

Java 25 i can’t edit my comments anymore.