Сохранение файла с именем, взятым из переменной

[Sanch]

У меня есть переменная, например NameCurCell и в ней хранится допустим "бублики". Как мне сохранить файл с именем бублики.тхт?

[Grimm]

посмотри по темам там есть мой код для построчного сохранения файлов

[Sanch]

посмотри по темам там есть мой код для построчного сохранения файлов

Спасибо, нашел я твой код, только немного не разобрался. Вот часть моей программы с твоим кодом:

Код: Выделить всё

Dim File1 As Object
Dim Path1 As String
Dim Path2 As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
       ActiveWorkbook.SaveAs Filename:="E:\temp.txt", FileFormat:=xlText, _
        CreateBackup:=False
        Path1 = "E:\temp.txt"
        Path2 = "E:" & NameCurCell & ".txt"
        Set File1 = FSO.getfile(Path1)
        File1.Move (Path2)


Программа нормально сохраняет темп.тхт, заносит в Path2 правильный путь (например E:\бублики.тхт), но на Set File1 = FSO.getfile(Path1) выдается ошибка Object Variable or With block variable not set. Я так понимаю, надо задать переменную где то, но ведь File1 и FSO заданы в начале программы. Может надо еще где то задавать?

[GSerg]

Удаляем гланды? Через ж? Через чужую ж?

Код: Выделить всё

thisworkbook.saveas filename:="e:\" & namecurcell & ".txt",fileformat:=xltext

[Sanch]

Удаляем гланды? Через ж? Через чужую ж?

Код: Выделить всё

thisworkbook.saveas filename:="e:" & namecurcell & ".txt",fileformat:=xltext

Огромное спасибо! Очень помогли. А предыдущий метод действительно уж очень замудренный по сравнению с этим