Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Writing Text Files

Sub WriteFile()     ThisFile = "C:\Results.txt"     On Error Resume Next     Kill (ThisFile)     On Error GoTo 0     Open ThisFile For Output As #1     FinalRow = Range("A65536").End(xlUp).Row     For j = 1 To FinalRow         Print #1, Cells(j, 1).Value     Next j End Sub