I am trying to print from excel a text file of a sheet data, creating the text file works but I need to have it encoded as UTF8?? Here is the code I have to print.
Open SECTXTFILE For Output As #3
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Print #3, Cells(i, 11).Text & "^" & Cells(i, 12).Text & "^" & Cells(i, 2).Text & "^" & Cells(i, 14).Text & "^" & Cells(i, 15).Text & "^" & Cells(i, 16).Text & "^" & Cells(i, 17).Text & "|" & Cells(i, 18).Text & "|" & Cells(i, 19).Text & "|" & Cells(i, 20).Text & "^" & Cells(i, 21).Text & "^" & Cells(i, 22).Text & "^" & Cells(i, 8).Text
Next i
Close #3
Not sure if I need to add something to this or do I have to open the text file in Notepad and do the convert to UTF8 there?
Thanks
Dale
Bookmarks