Функция сохранения из экселя в CSV перестала работать?

Question

[Matsun]

Всё время пользовался функцией

Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean
    On Error Resume Next: Err.Clear
    Set FSO = CreateObject("scripting.filesystemobject")
    Set ts = FSO.CreateTextFile(filename, True)
    ts.Write txt: ts.Close
    SaveTXTfile = Err = 0
    Set ts = Nothing: Set FSO = Nothing
End Function

Всегда всё работало без вопросов, и вот, несколько дней назад функция вдруг перестала работать. Проверял на 2 ПК. Никаких ошибок не даёт, просто сохраняет пустой файл 0 KB на диск. Что с функцией не так стало вдруг?

Comments

[h8nor]

Всё проще Как изменить разделители для CSV в Excel? (Вариант #2. Разделители "запятые")