Try something like this:
Code:
Sub testwrite()
MakeTextFile "C:\test\blah.txt"
End Sub
Sub MakeTextFile(sPath As String)
Dim data
Dim lLastRow As Long
Dim x As Long
Dim y As Long
Dim lFileNum As Long
Dim sTemp As String
With Sheets("Sheet1")
lLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
data = Application.Index(.Range("A6:E" & lLastRow), .Evaluate("ROW(1:" & lLastRow - 5 & ")"), Array(2, 1, 5))
End With
For x = LBound(data, 1) To UBound(data, 1)
For y = LBound(data, 2) To UBound(data, 2) - 1
sTemp = sTemp & "^" & data(x, y) & "^,"
Next y
sTemp = sTemp & "^" & data(x, y) & "^" & vbCrLf
Next x
lFileNum = FreeFile
Open sPath For Output As #lFileNum
Print #lFileNum, sTemp
Close #lFileNum
End Sub
Bookmarks