[РЕШЕНО] Excel создание файла

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем Forsminor, 14 дек 2012.

  1. TopicStarter Overlay
    Forsminor
    Offline

    Forsminor

    Регистрация:
    12 дек 2012
    Сообщения:
    11
    Симпатии:
    0
    Баллы:
    1
    Доброго времени всем!

    Не большая проблемма, не знаю почему выходит ошибка при создании Excel файла, необходимо создать файл при выборе.
    Процесс: Заходишь на форму, открываешь диалог выбора файла (в качестве результата), но вместо того чтобы выбрать существующий, пишешь Имя файла, которого нет/недолжно быть в папке/каталоге.
    Результат: должно при закрытии диалога введенные символы сталь именем Excel .

    Ошибка ; Ошибка открытия файла Microsoft Excel.D:\123.xls
    {Форма.Форма(29)}: Ошибка при вызове метода контекста (Open): Произошла исключительная ситуация (Microsoft Office Excel): Не удалось найти "D:\123.xls". Проверьте правильность ввода имени и расположения файла.
    При попытке открытия файла из списка недавно использованных файлов убедитесь, что файл не был переименован, перемещен или удален.

    Код:
     Если Диалог.Выбрать() Тогда
    Элемент.значение = Диалог.ПолноеИмяФайла;
    КонецЕсли;
    Если ЕстьФайл(Диалог.ПолноеИмяФайла) Тогда
    Возврат
    Иначе
    Попытка
    Состояние("Создание Microsoft Excel...");
    Excel = Новый COMОбъект("Excel.Application");
    Исключение
    Сообщить("Ошибка при загрузке Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
    Возврат;
    КонецПопытки;
    Попытка
    Состояние("Создание Microsoft Excel..." + Элемент.значение);
    
    Excel.WorkBooks.Add(Элемент.значение);	   
    Исключение
    Сообщить("Ошибка открытия файла Microsoft Excel." + Элемент.значение + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
    Возврат;
    КонецПопытки;
    Excel.Save();
    Excel.Close();
    Excel.Application.Quit();
    КонецЕсли;
  2. TopicStarter Overlay
    Forsminor
    Offline

    Forsminor

    Регистрация:
    12 дек 2012
    Сообщения:
    11
    Симпатии:
    0
    Баллы:
    1
    другой вопрос, как сохранить в формате ексель 97 с расширением xls а не xlsx
  3. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    если так попробовать SaveAs(имяФайла)?

    открыть вот так
    Код:
    книга = Excel.WorkBooks.Open(Элемент.значение);
    сохранить книгу вроде надо, а не приложение, потому
    Код:
    книга.SAveAS(ИмяФайла);
  4. TopicStarter Overlay
    Forsminor
    Offline

    Forsminor

    Регистрация:
    12 дек 2012
    Сообщения:
    11
    Симпатии:
    0
    Баллы:
    1
    он у меня сохраняет (почему то ) в Мои документы, как исправить?
  5. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    ну так вы полный путь укажите
  6. TopicStarter Overlay
    Forsminor
    Offline

    Forsminor

    Регистрация:
    12 дек 2012
    Сообщения:
    11
    Симпатии:
    0
    Баллы:
    1
    Спасибо большое, разобрался

Поделиться этой страницей