Кодировка txt файла

[petruis]

Здравствуйте!

Помогите пожалуйста. Для записи из Excel в txt использую следубщий код:

Open FileName For Output As #1
For i=1 to 10
For j=1 to 10
temp=temp&Cells(i,j)
next j
next i
Print #1
Close#1

Как сделать, чтобы текст был сохранен в кодировке UTF-8&

[Serge_Bliznykov]

а что, в команде Print #1 уже можно не писать, что выводить? Команда сама догадается, что надо вывести в файл?!

в интернете нашёл такой примерчик.
попробуйте, может Вас и устроит

Sub t1()
Dim fsT As Object

Set fsT = CreateObject("ADODB.Stream")
fsT.Type = 2 'Specify stream type - we want To save text/string data.
fsT.Charset = "utf-8" 'Specify charset For the source text data.
fsT.Open 'Open the stream And write binary data To the object
Filename$ = "D:\test222"
temp = ""
For i = 1 To 10
For j = 1 To 10
 temp = temp & Cells(i, j)
Next j
Next i

fsT.WriteText temp
fsT.SaveToFile Filename$, 2 'Save binary data To disk
fsT.Close

End Sub

p.s.а ещё вот тут EducatedFool писал:

Самый простой способ, - перекодировать уже созданный файл.
Всего одна строка кода:

' не забываем добавить функцию ChangeFileCharset из http://excelvba.ru/code/Encode
filename$ = "C:\Documents and Settings\Admin\Рабочий стол\sample.csv"
ChangeFileCharset filename$, "utf-8", "windows-1251"

[petruis]

Огромное спасибо !!!

Ваш вариант рабочий.

Второй вариант:

на ChangeFileCharset выдает "Sub or Function not defined"

[AleksandrH]

Странно, почему ето она не defined ?

[Serge_Bliznykov]

Сообщение от petruis

Второй вариант:
на ChangeFileCharset выдает "Sub or Function not defined"

я не проверял.
но, надеюсь, Вы не забыли сделать это???!

Сообщение от EducatedFool

' не забываем добавить функцию ChangeFileCharset из http://excelvba.ru/code/Encode