Сохранять текст в нужной кодировке

[snake-as]

Здравствуйте, программисты. Скажите, пожалуйста, можно ли в текстовом файле сохранять текст в нужной кодировке? Заранее спасибо.

[Serge_Bliznykov]

В Excel всё можно... ;-)
А Вы, собственно, о чём?

не об этом?

    ActiveWorkbook.SaveAs Filename:= _
        "C:\КнигаТест.txt", FileFormat:= xlTextMSDOS

[snake-as]

Спасибо, конечно, но мне не совсем это нужно. Мне нужно создать некий текстовый файл, в него записать несколько строк(строки генерируются скриптом, они не находятся в книге).

[Serge_Bliznykov]

Извините, конечно, но, такое впечатление, что это нам тут нужно угадывать, что Вы хотите, и что Вам надо... ;-(
И что не получается?! Не умеете напрямую с файлами работать из VBA? или что?

вот, просто для примера, а чем такой код не подходит???

  Dim s As String, f As Integer
  
  f = FreeFile
  Open "c:\TestFile.txt" For Binary As #f
  s = "Текст в Windows-1251 кодировке!" & vbCrLf
  Put #f, , s
  ' Превед! в DOS кодировке
  s = Chr(143) & Chr(224) & Chr(165) & Chr(162) & Chr(165) & Chr(165) _
      & "!" & vbCrLf
  Put #f, , s
  Close #f

[valerij]

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

но, такое впечатление, что это нам тут нужно угадывать

Это точно!
Предполагаю, что когда копирует из VBA в .тхт то при его сохранении, задается вопрос:
"Этот файл содержит текст в формате Юникод, который будет потерям, если вы сохраните этот файл как файл в формате ANSI. Чтобы сохранить данные в формате Юникод нажмите кнопку "Отмена" и выберите один из вариантов сохранения в формате Юникод. Продолжить?"

Если это, так, то при копировании нужно переключиться на РУС. раскладку.

[snake-as]

Я создаю документ и с помощью WriteLn записываю туда строки. Вот и все. Извините, что неточно вопрос задал. Хоть тема уже и неактуальна