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

Retrieve previous document versions

Find a scanner

How to delete groups on a mobile phone

Unable to boot my acer pc: it doesn't recognize my password

Remove leading zeros in printouts

Ephemeral messages

System error 805306367 my taskbar is inactive

Message saying that my phone is compromised

Very slow computer

Retrieve an email address