@Matsun

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

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

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 на диск. Что с функцией не так стало вдруг?
  • Вопрос задан
  • 30 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через TM ID
Похожие вопросы
ЛАНИТ Москва
от 80 000 до 100 000 руб.
Getblogger Москва
от 150 000 до 200 000 руб.
ILSA Москва
от 120 000 руб.
18 авг. 2018, в 18:35
1000 руб./за проект
18 авг. 2018, в 17:54
6000 руб./за проект
18 авг. 2018, в 18:44
350 руб./за проект