Сохранить excel в txt

[kain151]

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

Записал макрос для сохранения excel-документа в txt.
Есть две проблемы:
1. текст, который находится во вторых ячейках (по вертикали) весь, почему-то, берется в кавычки.
2. макрос выполнился, файл сохранился, но зачем-то, перед закрытием, еще раз спрашивает, Сохранить или Нет.
Пытался добавить перед закрытием строку ActiveWorkbook.Save, чтобы не спрашивало сохранять или нет - не помогает (

Подскажите, пожалуйста, как избавиться от этих проблем.

Set FSO = CreateObject("Scripting.FileSystemO bject")
If FSO.FileExists("D:\1x\7\111.XLS") Then

Workbooks.Open Filename:="D:\1x\7\111.XLS"

ActiveWorkbook.SaveAs Filename:="D:\1x\7\111.txt", FileFormat:= _
xlText, CreateBackup:=False

ActiveWindow.Close

End If
Set FSO = Nothing
End Sub

[Teslenko_EA]

Здравствуйте kain151.
А Вы не пробовали закрывать с аргументом - 0?

    ActiveWindow.Close False

Евгений.
P.S. размещая в сообщении код, для удобочитаемости заключайте его в тэги [соde]...[/соde] (для этого предназначена кнопка #)

[kain151]

Спасибо! помогло!

А с кавычками не знаете как быть?..