Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
27 окт 2024, 16:47

Сохранение Файла По пути

Автор Vasylii, 31 мая 2023, 10:22

0 Пользователей и 1 гость просматривают эту тему.

Vasylii

Есть Эксель файл который я заполняю по кнопке в 1с как он заполняется сохраняю его, но результата нет
Попытка
Книга.SaveAs(ПутьСохраненияФайла);
Книга.Close();
ExcelПриложение.Application.Quit();
Исключение
ExcelПриложение.DisplayAlerts = 1;
Книга.Close();
ExcelПриложение.Application.Quit();
КонецПопытки;

СтандартнаяОбработка = ложь;

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
Диалог.Заголовок          = "Выберите каталог";
Диалог.Фильтр = "Excel 97-2003 (*.xls)|*.xls|Excel (*.xlsx)|*.xlsx";
Диалог.ПолноеИмяФайла = ПутьСохраненияФайла;

Если  Диалог.Выбрать() Тогда
ПутьКФайлуСохран = Диалог.ПолноеИмяФайла;
Иначе
Возврат;
КонецЕсли;

LexaK

Ошибка возникающая в Попытке сама не отображается! добавьте в нее вывод ошибки - все сразу станет понятнее

примерно так
    Попытка
        Книга.SaveAs(ПутьСохраненияФайла);
        Книга.Close();
        ExcelПриложение.Application.Quit();
    Исключение
    Сообщить(ОписаниеОшибки()); //Обязательно первой!!!
        ExcelПриложение.DisplayAlerts = 1;
        Книга.Close();
        ExcelПриложение.Application.Quit();
    КонецПопытки;
если помогло нажмите: Спасибо!

Vasylii

LexaK, он не заходит в исключение он просто не сохраняет

LexaK

Vasylii, а что в переменной ПутьКФайлуСохран  получаете?
перехода между клиентом и сервером у вас нет?
если помогло нажмите: Спасибо!

Vasylii

все починил вот кодСтандартнаяОбработка = ложь;
   
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
    Диалог.Заголовок          = "Выберите каталог";
    Диалог.Фильтр = "Excel (*.xlsx)|*.xlsx|Excel 97-2003 (*.xls)|*.xls";
     
    Если  Диалог.Выбрать() Тогда
        ПутьКФайлуСохран = Диалог.ПолноеИмяФайла;
        ПутьСохраненияФайла = Строка(ПутьКФайлуСохран);
    Иначе
        Возврат;
    КонецЕсли;

Похожие темы (5)

Рейтинг@Mail.ru

Поиск