Как программно закрыть excel 1с

   LeoKeyn

8 — 07.12.17 — 15:10

Приведу полностью может так лучше будет, так как у меня что то не выходит понять

Функция открытия

&НаКлиенте

Функция ОткрытиеEXCEL()

    
    Попытка

        
        Excel = Новый COMОбъект(«Excel.Application»);

        БД = Excel.WorkBooks.Open(ИзначальнаяТаблица);

        Возврат БД;  

        
    Исключение

        
        Сообщить(«Ошибка при открытии файла с помощью Excel! Загрузка не будет произведена!»);

        Сообщить(ОписаниеОшибки());

        
    КонецПопытки;

    
КонецФункции

Обработка

&НаКлиенте

Процедура ОбработкаИзEXCEL()

    
    БДНачальная = ОткрытиеEXCEL();

    БДКонечная = СозданиеDBF();

    КоличествоЛистов = БДНачальная.Sheets.Count;

    
    Для НомерЛиста = 1 ПО КоличествоЛистов Цикл

        Лист = БДНачальная.WorkSheets(НомерЛиста);

        ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

        
        Для Строка = 1 ПО ВсегоСтрок Цикл

            Если ПроверкаСодержанияСтроки(Лист.Cells(Строка, 1).Value) = Истина Тогда

                
                Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,Символы.ПС ,» «);

                Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,Символы.ВК ,» «);

                Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,»№» ,» № «);

                Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,»г.» ,» г.»);

                Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,»г .» ,» г.»);

                Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,»  «,» «);

                Лист.Cells(Строка, 3).Value = СокрЛП(Лист.Cells(Строка, 3).Value);

                ЗапомнитьКоммент = Лист.Cells(Строка, 3).Value;

                //БДКонечная.Добавить();

                //БДКонечная.COMMENT = «VID_DOC 0 — не известно, 1 — судебное решение; 2 — погашение; 3 — отмена судебного решения; 4 — формирование иска.»;

                //БДКонечная.Записать();

                
                
                
                БДКонечная.Добавить();

                БДКонечная.COMMENT = ЗапомнитьКоммент;

                БДКонечная.Z_DOC = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»Z_DOC»);

                Если СтрЧислоВхождений(Лист.Cells(Строка, 5).Value, «ОСР») > 0 Тогда

                    БДКонечная.VID_DOC = 3;

                ИначеЕсли СтрЧислоВхождений(Лист.Cells(Строка, 6).Value, «-«) > 0 Тогда

                    БДКонечная.VID_DOC = 1;

                ИначеЕсли СтрЧислоВхождений(Лист.Cells(Строка, 5).Value, «-«) > 0 Тогда

                    БДКонечная.VID_DOC = 2;

                Иначе

                    БДКонечная.VID_DOC = 0;

                КонецЕсли;

                
                БДКонечная.OPER_NUMB = Лист.Cells(Строка, 1).Value;

                ДатаНомер = Лист.Cells(Строка, 2).Value;

                БДКонечная.DATE = ОбработатьСтроку(Лист.Cells(Строка, 2).Value,»SUD_DATE»);

                БДКонечная.DOCUMENT = СокрЛП(СтрЗаменить(ДатаНомер, Лев(Строка(БДКонечная.DATE), 10), «»));

                БДКонечная.MISTK = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»MISTK»);

                
                Если СтрЗаменить(БДКонечная.MISTK,» «,»») = «» Тогда

                    БДКонечная.SUD_DOC = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»SUD_DOC»);

                    
                КонецЕсли;

                БДКонечная.LT = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»LT»);

                Если НЕ СтрЗаменить(БДКонечная.SUD_DOC,» «,»») = «» Тогда

                    
                    БДКонечная.SUD_DATE = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»SUD_DATE»,БДКонечная.VID_DOC);

                КонецЕсли;

                
                
                
                
                БДКонечная.PAI_NUMB = ОбработатьСтроку(БДНачальная.Sheets(НомерЛиста).Name,»PAI_NUMB»);

                
                
                Если СтрЧислоВхождений(Лист.Cells(Строка, 5).Value, «-«) > 0 Тогда

                    БДКонечная.DEBIT = Лист.Cells(Строка, 4).Value;

                ИначеЕсли СтрЧислоВхождений(Лист.Cells(Строка, 5).Value, «-«) = 0 И СтрЗаменить(Лист.Cells(Строка, 5).Value,» «,»») <> 0 Тогда

                    БДКонечная.DEBIT = «76/СРШ»;

                КонецЕсли;

                
                Если СтрЧислоВхождений(Лист.Cells(Строка, 6).Value, «-«) > 0 Тогда

                    БДКонечная.CREDIT = Лист.Cells(Строка, 4).Value;

                ИначеЕсли СтрЧислоВхождений(Лист.Cells(Строка, 6).Value, «-«) = 0 И СтрЗаменить(Лист.Cells(Строка, 6).Value,» «,»») <> 0 Тогда

                    БДКонечная.CREDIT = «76/СРШ»;

                КонецЕсли;

                
                Если СтрЧислоВхождений(БДКонечная.CREDIT, «76/СРШ») > 0 Тогда

                БДКонечная.SUM = Лист.Cells(Строка, 6).Value;

                ИначеЕсли СтрЧислоВхождений(БДКонечная.DEBIT, «76/СРШ») > 0 Тогда

                БДКонечная.SUM = Лист.Cells(Строка, 5).Value;

                КонецЕсли;

                БДКонечная.VALUE = Лист.Cells(Строка, 7).Value;

                Если СтрЗаменить(БДКонечная.MISTK,» «,»») = «» Тогда

                    БДКонечная.MISTK = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»MISTKOST»);

                КонецЕсли;

                Лист.Cells(Строка, 3).Value = ЗапомнитьКоммент;

                БДКонечная.Записать();

                
                
                ОбработкаПрерыванияПользователя();

                
                
                
            КонецЕсли;

            Состояние(«Обрабатывается » + Строка(НомерЛиста) + » лист из » + Строка(КоличествоЛистов), Строка/ВсегоСтрок*100);

            
        КонецЦикла;

        
        
    КонецЦикла;

    БДНачальная.Quit();

    БДКонечная.ЗакрытьФайл();    

    
    
    
    
    
    
    
    
КонецПроцедуры // ОткрытьИзEXCEL()

Источник

 0 

   

Распечатать

1С 8.x : Удаление Word или Excel которые остались висеть в процессах

При программной работе с Word или Excel могут возникнуть ситуации, когда в процессах остается висеть открытый процесс:
— WORD.EXE
— EXCEL.EXE
Завершение процесса через Word.Quit() или Excel.Quit() не срабатывает.
Эта проблема тянется еще со старых версии и появляется в случаях, когда обращение к Word или Excel происходит не в интерактивном режиме. Например, при запуске обработок через назначенные задания Windows.

Данную проблему можно решить принудительно завершив процее командой:
taskkill /F /IM word.exe
taskkill /F /IM excel.exe

Для использования в коде 1С:
Код 1C v 8.х

 КомандаСистемы("taskkill /F /IM word.exe");

КомандаСистемы("taskkill /F /IM excel.exe");
Источник

Вообще COM-объекты используют для соединения информационной базы 1С с файлом Word, Excel, Outlook или любой другой программой, поддерживающей данный интерфейс обмена данными. В этой статье рассмотрим задачу выгрузки/загрузки данных из/в MS Excel. Чтобы это осуществить воспользуемся COM-соединением и объектом Excel.Application. Для примера возьмём задачу выгрузки/загрузки данных о номенклатуре. Пример рассмотрим ниже.

COM-соединение

Что же такое COM-соединение? Component Object Model (или COM) – это технология (фирмы Microsoft) взаимодействующих компонентов, которые одновременно могут быть использованы в разных приложениях. При этом весь функционал соответствующего компонента наследуется внутрь разрабатываемого приложения. В нашем случае COM-объект Excel.Application используется внутри кода 1С для операций с файлом книги MS Excel.

Объект Excel.Application

У объекта Excel.Application существует ряд методов, которые нам могут пригодиться для реализации нижепоставленной задачи:

  • ОбъектExcel.WorkBooks.Open(ИмяФайла) – Открытие книги MS Excel
  • ОбъектExcel.ActiveWorkbook.Close() – Закрытие текущей книги
  • ОбъектExcel.Quit() – Закрытие COM-объекта
  • ОбъектExcel.Sheets(ИмяЛиста) – Получает лист книги
  • ЛистExcel.Cells(НачалоСтрока, НачалоСтолбец) – Ячейка таблицы на данном листе
  • ЛистExcel.Range(Ячейка1, Ячейка2) – Выделенная область
  • ЯчейкаExcel.Value – Значение ячейки таблицы
  • ЯчейкаExcel.Text – Текст ячейки таблицы

Постановка задачи

Итак, предположим, что в обработке 1С у нас имеется табличная часть, состоящая из следующих колонок:

  • Номенклатура
  • Количество
  • Цена
  • Сумма.

Необходимо реализовать 2 функционала (сделать на форме 2 основные кнопки):

  1. Выгрузка табличной части в подготовленный файл MS Excel
  2. Загрузка табличной части из файла.


Алгоритм выгрузки/загрузки в MS Excel

Алгоритм выгрузки следующий:

  1. Выгружаем табличную часть в таблицу значений
  2. Создаём новый COM-объект Excel.Application
  3. Выбираем файл, открываем файл книги MS Excel
  4. Переходим на заданный лист книги
  5. Выгружаем данные в файл
  6. Закрываем книгу, выходим из COM-объекта.

Алгоритм загрузки следующий:

  1. Создаём новый COM-объект Excel.Application
  2. Выбираем файл, открываем файл книги MS Excel
  3. Переходим на заданный лист книги
  4. Загружаем данные из файла в таблицу значений
  5. Закрываем книгу, выходим из COM-объекта
  6. Таблицу значений выгружаем в табличную часть.

Операция выгрузки и загрузки данных о номенклатуре происходит в заранее подготовленный шаблон MS Excel.


Пример кода 1С

Код 1С я постарался разделить на отдельные функции, чтобы, скопировав, с ними можно было работать где угодно. На форме обработки 1С были созданы 3 кнопки:

  • Выгрузить
  • Загрузить
  • Очистить.


В итоге в реализации алгоритма получились следующие основные процедуры и функции 1С:

  • ПолучитьExcel – Получает COM-объект MS Excel;
  • ЗакрытьExcel – Закрывает использование COM-объекта MS Excel;
  • ПолучитьЛистExcel – Получает лист книги Excel;
  • ДобавитьТабличныйДокументВExcel – Добавляет табличный документ на лист Excel (нужно для выгрузки данных);
  • ПрочитатьОбластьИзExcel – Читает область ячеек с листа Excel (нужно для загрузки данных);
  • ШиринаЛистаExcel – Ширина листа Excel;
  • ВысотаЛистаExcel – Высота листа Excel;
  • ПреобразоватьТДвТЗ – Преобразует табличный документ в таблицу значений;
  • ПреобразоватьТЗвТД – Преобразует таблицу значений в табличный документ;

Для начала приведу вспомогательную функцию для открытия/сохранения файла на диске:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

#Если Клиент Тогда
// Функция выбора файла.
//
// Параметры:
// 	РежимВыбора - <РежимДиалогаВыбораФайла> - Выбор каталога, открытие или сохранение файла;
//	Расширение - <Строка>, <Массив> - Список расширений файла.
//
// Возвращаемое значение:
//	<Строка> - Путь к выбранному файлу.
//
Функция ВыбратьФайлДокумента(РежимВыбора, Расширение = "*") Экспорт
 
	ИмяФайла = "";
	//ФорматМассив = РазобратьСтрокуВМассивПоРазделителю(Расширение);
	ФорматМассив = ПреобразоватьВМассив(Расширение);
 
	ДиалогФайла = Новый ДиалогВыбораФайла(РежимВыбора);
	Если РежимВыбора = РежимДиалогаВыбораФайла.Открытие Тогда
		ДиалогФайла.Заголовок = "Открыть документ";
	ИначеЕсли РежимВыбора = РежимДиалогаВыбораФайла.Сохранение Тогда
		ДиалогФайла.Заголовок = "Сохранить документ";
	ИначеЕсли РежимВыбора = РежимДиалогаВыбораФайла.ВыборКаталога Тогда
		ДиалогФайла.Заголовок = "Выбрать каталог";
	КонецЕсли;
 
	Фильтр = "";
	Для Каждого ЭлементМассив Из ФорматМассив Цикл
		Если ЭлементМассив = "*" Тогда
			Фильтр = Фильтр + "|" + НСтр("ru = ""Все файлы""; en = ""All files""");
		ИначеЕсли ВРег(ЭлементМассив) = ВРег("TXT") Тогда
			Фильтр = Фильтр + "|" + НСтр("ru = ""Текстовый документ""; en = ""Text document""");
		ИначеЕсли ВРег(ЭлементМассив) = ВРег("MXL") Тогда
			Фильтр = Фильтр + "|" + НСтр("ru = ""Табличный документ""; en = ""Table document""");
		ИначеЕсли ВРег(ЭлементМассив) = ВРег("XLS") ИЛИ ВРег(ЭлементМассив) = ВРег("XLSX") ИЛИ ВРег(ЭлементМассив) = ВРег("XLSM") Тогда
			Фильтр = Фильтр + "|" + НСтр("ru = ""Табличный документ MS Excel""; en = ""Table document MS Excel""");
		ИначеЕсли ВРег(ЭлементМассив) = ВРег("XML") Тогда
			Фильтр = Фильтр + "|" + НСтр("ru = ""Документ XML""; en = ""Document XML""");
		ИначеЕсли ВРег(ЭлементМассив) = ВРег("HTML") ИЛИ ВРег(ЭлементМассив) = ВРег("HTM") Тогда
			Фильтр = Фильтр + "|" + НСтр("ru = ""HTML документ""; en = ""HTML document""");
		Иначе
			Фильтр = Фильтр + "|" + НСтр("ru = ""Файл " + ВРег(ЭлементМассив) + """; en = ""File " + ВРег(ЭлементМассив) + """");
		КонецЕсли;
		Фильтр = Фильтр + " (*." + НРег(ЭлементМассив) + ")|*." + НРег(ЭлементМассив);
	КонецЦикла;
	Фильтр = Сред(Фильтр, 2);
 
	ДиалогФайла.Фильтр = Фильтр;
	ДиалогФайла.МножественныйВыбор = Ложь;
 
	Если ДиалогФайла.Выбрать() Тогда
		ИмяФайла = ?(РежимВыбора = РежимДиалогаВыбораФайла.ВыборКаталога, ДиалогФайла.Каталог, ДиалогФайла.ПолноеИмяФайла);
	Иначе
		Текст = "ru = ""Файл не выбран!""; en = ""File(s) not selected!""";
		Предупреждение(НСтр(Текст));
	КонецЕсли;
 
	Возврат ИмяФайла;
КонецФункции	
#КонецЕсли

Также в реализации алгоритма были задействованы следующие вспомогательные функции:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

// Преобразует в массив переменную любого типа данных.
//
// Параметры:
//	Объект - Произвольный - произвольный объект данных;
//	Проверка - <Булево> - Осуществление проверки на заполненное значение.
//
// Возвращаемое значение:
//	<Массив> - Массив с теми же данными.
//
Функция ПреобразоватьВМассив(Объект, Проверка = Ложь) Экспорт
 
	ОбъектМассив = Новый Массив;
 
	Если НЕ Проверка ИЛИ ЗначениеЗаполнено(Объект) Тогда
		Если ТипЗнч(Объект) = Тип("Массив") Тогда
			ОбъектМассив = Объект;
		ИначеЕсли ТипЗнч(Объект) = Тип("СписокЗначений") Тогда
			ОбъектМассив = Объект.ВыгрузитьЗначения();
		ИначеЕсли ТипЗнч(Объект) = Тип("Строка") Тогда
			ОбъектМассив = РазобратьСтрокуВМассивПоРазделителю(Объект);
		ИначеЕсли ТипЗнч(Объект) = Тип("Структура") Тогда
			Для Каждого Элемент Из Объект Цикл
				ОбъектМассив.Добавить(Элемент.Значение);
			КонецЦикла;
		Иначе
			ОбъектМассив.Добавить(Объект);
		КонецЕсли;
	КонецЕсли;
 
	Возврат ОбъектМассив;
КонецФункции;
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

// Разбирает строку в массив подстрок по разделителю. 
// При этом пробелы между подстроками не учитываются.
//
// Параметры:
//	Стр - исходная строка;
//	СтрРазделитель - разделитель, по умолчанию ",";
//	ИгнорироватьПустые - игнорировать ли пустые места между разделителями.
//
// Возвращаемое значение:
//	Массив строк
//
Функция РазобратьСтрокуВМассивПоРазделителю(Знач Стр, СтрРазделитель = ",", ИгнорироватьПустые = Ложь) Экспорт
 
	Результат = Новый Массив;
 
	ВхождениеРазделителя = Найти(Стр, СтрРазделитель);
	Пока ВхождениеРазделителя <> 0 Цикл
		ЧастьДоРазделителя = СокрЛП(Лев(Стр, ВхождениеРазделителя - 1));
		Если НЕ (ИгнорироватьПустые И ПустаяСтрока(ЧастьДоРазделителя)) Тогда
			Результат.Добавить(ЧастьДоРазделителя);
		КонецЕсли;
		Стр = СокрЛП(Сред(Стр, ВхождениеРазделителя + 1));
		ВхождениеРазделителя = Найти(Стр, СтрРазделитель);
	КонецЦикла;
 
	Если НЕ (ИгнорироватьПустые И ПустаяСтрока(Стр)) Тогда
		Результат.Добавить(СокрЛП(Стр));
	КонецЕсли;
 
	Возврат Результат;	
КонецФункции;
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

// Создаёт новую таблицу значений с заданными колонками.
//
// Параметры:
//	пКолонки - <Строка>, <Структура>, <Массив>, <СписокЗначений>, <ТаблицаЗначений> - 
//	 Набор колонок для таблицы значений.
//	
// Возвращаемое значение:
//	<ТаблицаЗначений> - Созданная таблица.
//
Функция ПолучитьТаблицуВывода(пКолонки) Экспорт
 
	ТЗ = Новый ТаблицаЗначений;
 
	Если пКолонки <> Неопределено Тогда 
 
		Если ТипЗнч(пКолонки) = Тип("Строка") Тогда
			пКолонки = РазобратьСтрокуВМассивПоРазделителю(пКолонки);
		КонецЕсли;
 
		Если ТипЗнч(пКолонки) = Тип("Структура") Тогда
			Для Каждого Поле Из пКолонки Цикл	
				СтрокаТабл = ТЗ.Колонки.Добавить(Поле.Ключ, Поле.Значение);	
			КонецЦикла;
		ИначеЕсли ТипЗнч(пКолонки) = Тип("СписокЗначений") Тогда
			Для Каждого Поле Из пКолонки Цикл	
				Если Поле.Пометка Тогда
					СтрокаТабл = ТЗ.Колонки.Добавить(Поле.Значение, пКолонки.ТипЗначения, Поле.Представление);
				КонецЕсли;
			КонецЦикла;
		ИначеЕсли ТипЗнч(пКолонки) = Тип("ТаблицаЗначений") Тогда
			ЕстьНаименование = (пКолонки.Колонки.Найти("Наименование") <> Неопределено);
			ЕстьТипЗначения = (пКолонки.Колонки.Найти("ТипЗначения") <> Неопределено);
			ЕстьЗаголовок = (пКолонки.Колонки.Найти("Заголовок") <> Неопределено);
			ЕстьШирина = (пКолонки.Колонки.Найти("Ширина") <> Неопределено);
			Для Каждого Поле Из пКолонки Цикл
				СтрокаТабл = ТЗ.Колонки.Добавить(?(ЕстьНаименование, Поле.Наименование, ""), ?(ЕстьТипЗначения, Поле.ТипЗначения, Новый ОписаниеТипов), ?(ЕстьЗаголовок, Поле.Заголовок, ""), ?(ЕстьШирина, Поле.Ширина, 0));	
			КонецЦикла;
		Иначе
			Для Каждого Поле Из пКолонки Цикл	
				СтрокаТабл = ТЗ.Колонки.Добавить(Поле);	
			КонецЦикла;
		КонецЕсли;
 
	КонецЕсли;
 
	Возврат ТЗ;	
КонецФункции;
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

// Создаёт структуру колонок из таблицы значений.
//
// Параметры:
//	ТабЗначений - <ТаблицаЗначений> - Любая таблица.
//	
// Возвращаемое значение:
//	<Структура> - Созданная таблица.
//
Функция ПолучитьСтруктуруКолонокИзТаблицы(ТабЗначений) Экспорт
 
	СтруктураКолонок = Новый Структура;
	Для Каждого ЭлементКолонка Из ТабЗначений.Колонки Цикл
		СтруктураКолонок.Вставить(ЭлементКолонка.Имя, ЭлементКолонка.ТипЗначения);
	КонецЦикла;
 
	Возврат СтруктураКолонок;
КонецФункции;

Основные функции обработки алгоритма следующие:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

// Получает объект файла MS Excel.
//
// Параметры:
//	ИмяФайла - <Строка> - Путь к файлу XLS.
//	
// Возвращаемое значение:
//	<COMОбъект> - Полученный объект. Если объект не найден, то возвращается "Неопределено".
//
Функция ПолучитьExcel(ИмяФайла) Экспорт
 
	ФайлНаДиске = Новый Файл(ИмяФайла);
 
	Excel = Неопределено;
	Если нРег(ФайлНаДиске.Расширение) = ".xls" 
	 ИЛИ нРег(ФайлНаДиске.Расширение) = ".xlsx"
	 ИЛИ нРег(ФайлНаДиске.Расширение) = ".xlsm"
	Тогда
 
		Если НЕ ФайлНаДиске.Существует() Тогда
			Сообщить("Файл не существует!", СтатусСообщения.Внимание);
			Возврат Неопределено;
		КонецЕсли;
 
		Попытка
			Excel = Новый COMОбъект("Excel.Application");
			Excel.WorkBooks.Open(ИмяФайла);
		Исключение
			Сообщить("Не удалось инициализировать Excel!", СтатусСообщения.Внимание);
			Возврат Неопределено;
		КонецПопытки;
 
	КонецЕсли;	
 
	Возврат Excel;
КонецФункции;
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

// Закрывает файл MS Excel.
//
// Параметры:
//	Excel - <COMОбъект> - Объект файла MS Excel;
//	Сохранить - <Булево> - Указывает сохранять файл при закрытии или нет. По умолчанию
//	 пользователю предлагается выбрать это самому.
//
Процедура ЗакрытьExcel(Excel, Сохранить = Неопределено) Экспорт
 
	Попытка
		#Если Клиент Тогда
		Состояние("Закрытие файла Microsoft Excel...");
		#КонецЕсли
		Если Сохранить = Неопределено Тогда
			Excel.ActiveWorkbook.Close();
		Иначе
			Excel.ActiveWorkbook.Close(Сохранить);
		КонецЕсли;
		Excel.Quit();
	Исключение
		Сообщить("Ошибка закрытия Excel!", СтатусСообщения.Внимание);
	КонецПопытки;
 
	Excel = Неопределено;	
КонецПроцедуры;
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

// Получает лист из файла книги MS Excel.
//
// Параметры:
//	Excel - <COMОбъект> - Объект файла MS Excel;
//	ИмяЛиста - <Строка> - Имя листа книги MS Excel.
//	
// Возвращаемое значение:
//	<COMОбъект> - Полученный лист. Если объект не найден, то возвращается "Неопределено".
//
Функция ПолучитьЛистExcel(Excel, ИмяЛиста) Экспорт
 
	Попытка
		ExcelЛист = Excel.Sheets(ИмяЛиста);
	Исключение
		Сообщить("Не удалось прочитать лист Excel!", СтатусСообщения.Внимание);
		Возврат Неопределено;
	КонецПопытки;
 
	Возврат ExcelЛист;	
КонецФункции;
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

// Записывает данные из табличного документа в файл MS Excel.
//
// Параметры:
//	ЛистExcel - <COMОбъект> - Лист из файла MS Excel;
//	Таблица - <ТабличныйДокумент> - Документ, по порядку следования колонок и строк 
//	 соответствующий листу файла MS Excel;
//	Шапка - <Число> - Количество первых строк для шапки в файле MS Excel;
//	СписокСтолбцов - <Строка>, <Массив> - Список номеров столбцов, которые будут выгружены 
//	 в файл MS Excel;
//	СписокСтрокЗапрета - <Строка>, <Массив> - Список номеров строк, которые не должны
//	 выгружаться в файл MS Excel. Если этот параметр не задан, то выгружаются все строки;
//	ПроверятьЗначения - <Булево> - Определяет будут ли проверяться ячейки табличного 
//	 документа на содержание в них значения, а не текстовое представление этого значения. 
//	 По умолчанию этот параметр "Ложь".
//
Процедура ДобавитьТабличныйДокументВExcel(ЛистExcel, Таблица, Шапка, СписокСтолбцов, СписокСтрокЗапрета = Неопределено, ПроверятьЗначения = Ложь) Экспорт
 
	Если ТипЗнч(СписокСтолбцов) = Тип("Строка") Тогда
		СписокСтолбцов = РазобратьСтрокуВМассивПоРазделителю(СписокСтолбцов);
	КонецЕсли;
	Если ТипЗнч(СписокСтрокЗапрета) = Тип("Строка") Тогда
		СписокСтрокЗапрета = РазобратьСтрокуВМассивПоРазделителю(СписокСтрокЗапрета);
	КонецЕсли;
 
	ЕстьМассив = (СписокСтрокЗапрета = Неопределено);
	Если ЕстьМассив Тогда
		Попытка
			МассивCOM = Новый COMSafeArray("VT_VARIANT", 1, Таблица.ВысотаТаблицы - Шапка);
		Исключение
			ЕстьМассив = Ложь;
		КонецПопытки;
	КонецЕсли;
 
	Для Каждого НомерСтолбца Из СписокСтолбцов Цикл
 
		Для НомерСтроки = Шапка+1 По Таблица.ВысотаТаблицы Цикл 
 
			Если СписокСтрокЗапрета = Неопределено 
				ИЛИ (СписокСтрокЗапрета.Найти(Строка(НомерСтроки)) = Неопределено И СписокСтрокЗапрета.Найти(Число(НомерСтроки)) = Неопределено) 
			Тогда
				Область = Таблица.Область(НомерСтроки, Число(НомерСтолбца));
				Значение = ?(ПроверятьЗначения И Область.СодержитЗначение, Область.Значение, Область.Текст);
				Если ЕстьМассив Тогда
					МассивCOM.SetValue(0, НомерСтроки-Шапка-1, Значение);
				Иначе
					ЛистExcel.Cells(НомерСтроки, Число(НомерСтолбца)).Value = Значение;
				КонецЕсли;
			КонецЕсли;
 
		КонецЦикла;
 
		Если ЕстьМассив Тогда 
			ЛистExcel.Range(ЛистExcel.Cells(Шапка+1, Число(НомерСтолбца)), ЛистExcel.Cells(Таблица.ВысотаТаблицы, Число(НомерСтолбца))).Value = МассивCOM;
		КонецЕсли;
 
	КонецЦикла;
 
КонецПроцедуры;
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

// Читает область ячеек из MS Excel в табличный документ.
//
// Параметры:
//	ЛистExcel - <COMОбъект> - Лист из файла MS Excel;
//	ТабДок - <ТабличныйДокумент> - Исходный табличный документ, поле табличного 
//	 документа или таблица значений. Если этот параметр не задан, то создаётся
//	 новый табличный документ;
//	НачалоСтрока - <Число> - Начальная строка в файле MS Excel;
//	НачалоСтолбец - <Число> - Начальный столбец в файле MS Excel;
//	КонецСтрока - <Число> - Конечная строка в файле MS Excel;
//	КонецСтолбец - <Число> - Конечный столбец в файле MS Excel.
//	
// Возвращаемое значение:
//	<ТабличныйДокумент> - Возвращает прочитанный из области в MS Excel табличный 
//	 документ, который передавался в эту функцию параметром "ТабДок".
//
Функция ПрочитатьОбластьИзExcel(ЛистExcel, ТабДок = Неопределено, НачалоСтрока, НачалоСтолбец, КонецСтрока, КонецСтолбец) Экспорт
 
	Если ТабДок = Неопределено Тогда
		ТабДок = Новый ТабличныйДокумент;
	КонецЕсли;
 
	Попытка
		МассивCOM = Новый COMSafeArray("VT_VARIANT", КонецСтолбец - НачалоСтолбец + 1, КонецСтрока - НачалоСтрока + 1);
		ЕстьМассив = Истина;
	Исключение
		ЕстьМассив = Ложь;
	КонецПопытки;
 
	Если ЕстьМассив Тогда
		МассивCOM = ЛистExcel.Range(ЛистExcel.Cells(НачалоСтрока, НачалоСтолбец), ЛистExcel.Cells(КонецСтрока, КонецСтолбец)).Value;
 
		Для ИндексКолонка = НачалоСтолбец По КонецСтолбец Цикл
			Для ИндексСтрока = НачалоСтрока По КонецСтрока Цикл
				Значение = МассивCOM.GetValue(ИндексКолонка - НачалоСтолбец + 1, ИндексСтрока - НачалоСтрока + 1);
				ТабДок.Область(ИндексСтрока, ИндексКолонка).СодержитЗначение = Истина;
				ТабДок.Область(ИндексСтрока, ИндексКолонка).Значение = Значение;
			КонецЦикла;
		КонецЦикла;	
	Иначе
		Для ИндексКолонка = НачалоСтолбец По КонецСтолбец Цикл
			Для ИндексСтрока = НачалоСтрока По КонецСтрока Цикл
				Значение = ЛистExcel.Cells(ИндексСтрока, ИндексКолонка).Value;
				ТабДок.Область(ИндексСтрока, ИндексКолонка).СодержитЗначение = Истина;
				ТабДок.Область(ИндексСтрока, ИндексКолонка).Значение = Значение;
			КонецЦикла;
		КонецЦикла;
	КонецЕсли;
 
	Возврат ТабДок;
КонецФункции;
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

// Определяет ширину листа MS Excel.
//
// Параметры:
//	ЛистExcel - <COMОбъект> - Лист из файла MS Excel.
//	
// Возвращаемое значение:
//	<Число> - Количество столбцов в таблице.
//
Функция ШиринаЛистаExcel(ЛистExcel) Экспорт
 
	ЕстьЗащита = ЛистExcel.ProtectContents;
	Возврат ?(ЕстьЗащита, ЛистExcel.UsedRange.Columns.Count, ЛистExcel.Cells.SpecialCells(11).Column);
 
КонецФункции;
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

// Определяет высоту листа MS Excel.
//
// Параметры:
//	ЛистExcel - <COMОбъект> - Лист из файла MS Excel.
//	
// Возвращаемое значение:
//	<Число> - Количество строк в таблице.
//
Функция ВысотаЛистаExcel(ЛистExcel) Экспорт
 
	ЕстьЗащита = ЛистExcel.ProtectContents;
	Возврат ?(ЕстьЗащита, ЛистExcel.UsedRange.Rows.Count, ЛистExcel.Cells.SpecialCells(11).Row);
 
КонецФункции;
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

// Преобразовать табличный документ в таблицу значений.
//
// Параметры:
//	ТабДок - <ТабличныйДокумент> - Исходный табличный документ;
//	СтруктураКолонок - <Структура>, <ТаблицаЗначений> - Структура колонок;
//	НачалоСтрока - <Число> - Строка начала области;
//	НачалоСтолбец - <Число> - Столбец начала области;
//	КонецСтрока - <Число> - Строка конца области;
//	КонецСтолбец - <Число> - Столбец конца области.
//	
// Возвращаемое значение:
//	<ТаблицаЗначений> - Полученная таблица значений.
//
Функция ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, Знач КонецСтрока = Неопределено, Знач КонецСтолбец = Неопределено) Экспорт
 
	// Определение габаритов таблицы
	Если НачалоСтрока = Неопределено И НачалоСтолбец = Неопределено Тогда
		НачалоСтрока = 1;
		НачалоСтолбец = 1;
	КонецЕсли;
 
	Если НачалоСтрока = Неопределено Тогда
		НачалоСтрока = 1;
		Пока НЕ ТабДок.Область(НачалоСтрока, НачалоСтолбец).СодержитЗначение 
		 И НачалоСтрока < ТабДок.ВысотаТаблицы 
		Цикл
			НачалоСтрока = НачалоСтрока + 1;
		КонецЦикла;
	ИначеЕсли НачалоСтолбец = Неопределено Тогда
		НачалоСтолбец = 1;
		Пока НЕ ТабДок.Область(НачалоСтрока, НачалоСтолбец).СодержитЗначение 
		 И НачалоСтолбец < ТабДок.ШиринаТаблицы
		Цикл
			НачалоСтолбец = НачалоСтолбец + 1;
		КонецЦикла;
	КонецЕсли;
 
	КонецСтрока = ?(КонецСтрока = Неопределено, ТабДок.ВысотаТаблицы, КонецСтрока);
	КонецСтолбец = ?(КонецСтолбец = Неопределено, ТабДок.ШиринаТаблицы, КонецСтолбец);
 
	// Преобразование
	ЭтоТаблица = (ТипЗнч(СтруктураКолонок) = Тип("ТаблицаЗначений"));
	ТабЗначений = ПолучитьТаблицуВывода(СтруктураКолонок);
 
	Для ИндексСтроки = НачалоСтрока По КонецСтрока Цикл
		СтрокаТЗ = ТабЗначений.Добавить();
 
		ИндексКолонки = НачалоСтолбец;
		Для Каждого Колонка Из СтруктураКолонок Цикл
			НаименованиеКолонки = ?(ЭтоТаблица, Колонка.Наименование, Колонка.Ключ);
			пИндексКолонки = ?(ЭтоТаблица, Колонка.СтолбецОтчёт, ИндексКолонки);
 
			Если ТабДок.Область(ИндексСтроки, пИндексКолонки).СодержитЗначение Тогда
				СтрокаТЗ[НаименованиеКолонки] = ТабДок.Область(ИндексСтроки, пИндексКолонки).Значение;
			Иначе
				СтрокаТЗ[НаименованиеКолонки] = ТабДок.Область(ИндексСтроки, пИндексКолонки).Текст;
			КонецЕсли;
 
			ИндексКолонки = ИндексКолонки + 1;
		КонецЦикла;
	КонецЦикла;
 
	Возврат ТабЗначений;
КонецФункции;
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

// Преобразовать таблицу значений в табличный документ.
//
// Параметры:
//	ТабЗначений - <ТаблицаЗначений> - Исходная таблица значений;
//	ТабДок - <ТабличныйДокумент> - Полученный табличный документ. Если параметр не задан, 
//	 то документ создаётся заново и возвращается функцией;
//	НачалоСтрока - <Число> - Строка начала области;
//	НачалоСтолбец - <Число> - Столбец начала области;
//	ВыводитьЗаголовки - <Булево> - Определяет выводить ли имена колонок или нет.
//	
// Возвращаемое значение:
//	<ТабличныйДокумент> - Полученный табличный документ (возвращает параметр "ТабДок").
//
Функция ПреобразоватьТЗвТД(ТабЗначений, ТабДок = Неопределено, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, ВыводитьЗаголовки = Ложь) Экспорт
 
	Если ТабДок = Неопределено Тогда
		ТабДок = Новый ТабличныйДокумент;
	КонецЕсли;
 
	// Определение габаритов таблицы
	НачалоСтрока = ?(НачалоСтрока = Неопределено, 1, НачалоСтрока);
	НачалоСтолбец = ?(НачалоСтолбец = Неопределено, 1, НачалоСтолбец);
 
	// Преобразование
	ИндексСтроки = НачалоСтрока;
	Если ВыводитьЗаголовки Тогда
		ИндексКолонки = НачалоСтолбец;
		Для Каждого Колонка Из ТабЗначений.Колонки Цикл
			ТабДок.Область(ИндексСтроки, ИндексКолонки).Текст = ?(ПустаяСтрока(Колонка.Заголовок), Колонка.Имя, Колонка.Заголовок);
			ИндексКолонки = ИндексКолонки + 1;
		КонецЦикла;
		ИндексСтроки = ИндексСтроки + 1;
	КонецЕсли;
 
	Для Каждого Элемент Из ТабЗначений Цикл
		ИндексКолонки = НачалоСтолбец;
		Для Каждого Колонка Из ТабЗначений.Колонки Цикл
			ТабДок.Область(ИндексСтроки, ИндексКолонки).СодержитЗначение = Истина;
			ТабДок.Область(ИндексСтроки, ИндексКолонки).ТипЗначения = Новый ОписаниеТипов(Колонка.ТипЗначения);
			ТабДок.Область(ИндексСтроки, ИндексКолонки).Значение = Элемент[Колонка.Имя];
			ИндексКолонки = ИндексКолонки + 1;
		КонецЦикла;
		ИндексСтроки = ИндексСтроки + 1;
	КонецЦикла;
 
	Возврат ТабДок;
КонецФункции;

В реализации алгоритма был дополнительно использован объект COMSafeArray с типом VT_VARIANT. Этот COM-объект выступает в качестве двумерного массива, в котором удобно хранить значения ячеек. Также использование данного объекта повышает быстродействие операций чтения/записи для ячеек таблицы.

Целиком получившуюся обработку 1С, а также шаблон для загрузки/выгрузки можно скачать по ссылке ниже.

Указанные здесь процедуры и функции я постарался сделать универсальными. Они могут быть применены для широкого круга прикладных задач.

Скачать

Источник

Как осуществить чтение/запись данных из/в Excel на языке 1с (используя COM-объект)

Здесь можно скачать шаблонную обработку, разработанную в среде «1С:Предприятие v8″ для работы с файлами Excel: [download id=»5»] В обработке осуществляются все основные действия с файлом Excel. Даны подробные комментарии. Можно использовать в качестве шаблона для разработки собственных выгрузок/загрузок в/из Excel.

Чтение данных из Excel

Доступ из 1С к Excel производится посредством OLE. Создание COM-объекта:

 Попытка
		Эксель =Новый COMОбъект("Excel.Application"); // для v7 код будет: Эксель = СоздатьОбъект("Excel.Application");
 Исключение
		Сообщить(ОписаниеОшибки());
		Возврат;
КонецПопытки;

Теперь используя переменную Эксель можно управлять приложением Excel.

  • Внимание! Microsoft Excel должен быть установлен на компьютере!

Следующая команда откроет книгу:

	Книга = Эксель.WorkBooks.Open(ПутьКФайлу);

Перед тем, как начать считывание данных, укажем лист книги, с которого будем считывать данные:

	Лист = Книга.WorkSheets(НомерЛиста);

Нумерация листов книги начинается с 1. Общее количество листов можно получить, используя следующую команду:

	КоличествоЛистов = Книга.Sheets.Count;

Лист можно выбрать по имени листа в книге:

	Лист = Книга.WorkSheets(ИмяЛиста);

Имя листа в книге можно получить по номеру:

	ИмяЛиста = Книга.Sheets(НомерЛиста).Name;

Точно так же можно задать имя листа:

        Книга.Sheets(6).Name = "6 Резерв на отпуск";

Итак, мы открыли книгу и выбрали лист, теперь посмотрим, сколько строк и колонок на выбранном листе:

	ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
	ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

Получим значения ячейки листа в строке НомерСтроки и в колонке НомерКолонки:

	Значение = Лист.Cells(НомерСтроки, НомерКолонки).Value;

Ниже приведен отрывок кода, запустив который мы прочитаем все данные с первой страницы:

	Эксель = СоздатьОбъект("Excel.Application");
	Книга = Эксель.WorkBooks.Open(ПутьКФайлу);
	Лист = Книга.WorkSheets(1);   

	ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
	ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;      

	Для Строка = 1 По ВсегоСтрок Цикл   

		Для Колонка = 1 По ВсегоКолонок Цикл
			Значение = СокрЛП(Лист.Cells(Строка,Колонка).Value);
		КонецЦикла;       

	КонецЦикла;

Где ПутьКФайлу — полный путь к файлу книги Excel (включая имя).

После выполнения действий необходимо закрыть книгу:

	Эксель.Application.Quit();

Выгрузка данных в Excel

Для вывода (выгрузки) данных в Excel необходимо либо открыть существующую книгу, либо создать новую, и выбрать рабочий лист для вывода данных.
Для создания новой книги можно использовать следующий код:

      Книга = Excel.WorkBooks.Add();

При создании книги автоматически создаются листы (по умолчанию 3). Нам остается только выбрать нужный:

      Лист = Книга.WorkSheets(НомерЛиста);

Или добавить в книгу новый лист:

      Лист = Книга.Sheets.Add();

Добавим в ячейку на листе значение:

      Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;

Запишем книгу:

	Попытка
		Книга.SaveAs(ПутьКФайлу);
	Исключение
		Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
	КонецПопытки;

Где ПутьКФайлу — полный путь к файлу книги Excel (включая имя).

После выполнения действий необходимо закрыть книгу:

      	Эксель.Application.Quit();

Как программно сохранить файл Excel в формате 2003 года

Синтаксис команды «SaveAs» во втором параметре разрешает указать формат сохраняемого файла.
Числовое значение фрмата файла Excel 2003: FileFormatNum = -4143
Т.е. команду сохранения для этого можно написатьтак:

Книга.SaveAs(ПутьДляЗаписиФайла, -4143);

Часто используемые методы Excel

Эксель.Visible = Видимость; 0 — Excel не виден, 1 — виден.
Книга = Эксель.WorkBooks.Add(); Создание новой книги (файла) Excel.
Книга = Эксель.WorkBooks.Add(ИмяФайлаШаблона); Создание новой книги (файла) Excel по шаблону «ИмяФайлаШаблона»
Книга.SaveAs(ИмяФайла); Сохранение книги Excel.
Лист = Книга.WorkSheets.Add(); Добавление нового листа в книгу.
Книга = Эксель.WorkBooks.Open(ИмяФайла); Открытие существующей книги (файла) Excel.
Лист = Книга.WorkSheets(НомерЛиста); Установка листа в качестве рабочего с номером НомерЛиста.
Лист.Name = ИмяЛиста; Задание рабочему листу имени ИмяЛиста
Лист.PageSetup.Zoom = Масштаб; Задание параметра страницы «Масштаб» (от 10 до 400).
Лист.PageSetup.Orientation = Ориентация; Ориентация: 1 — книжная, 2 — альбомная.
Лист.PageSetup.LeftMargin = Эксель.CentimetersToPoints(Сантиметры); Задание левой границы (в сантиметрах).
Лист.PageSetup.TopMargin = Эксель.CentimetersToPoints(Сантиметры); Задание верхней границы (в сантиметрах).
Лист.PageSetup.RightMargin = Эксель.CentimetersToPoints(Сантиметры); Задание правой границы (в сантиметрах).
Лист.PageSetup.BottomMargin = Эксель.CentimetersToPoints(Сантиметры); Задание нижней границы (в сантиметрах).
Лист.Columns(НомерКолонки).ColumnWidth = Ширина; Задание ширины колонке.
Лист.Cells(НомерСтроки,НомерКолонки).ColumnWidth = 0; Скрыть всю колонку, в которой расположена ячейка
Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение; Ввод данных в ячейку.
Лист.Cells(НомерСтроки,НомерКолонки).Font.Name = ИмяШрифта; Установка шрифта в ячейке.
Лист.Cells(НомерСтроки,НомерКолонки).Font.Color = ЦветШрифта; Установка цвета шрифта в ячейке. Тип переменной ЦветШрифта — число десятичное.
Лист.Cells(НомерСтроки,НомерКолонки).Borders.Color = ЦветРамки; Установка цвета рамки в ячейке.
Лист.Cells(НомерСтроки,НомерКолонки).Interior.Color = ЦветФона; Установка цвета фона в ячейке.
Лист.Cells(НомерСтроки,НомерКолонки).Font.Size = РазмерШрифта; Установка размера шрифта в ячейке.
Лист.Cells(НомерСтроки,НомерКолонки).Font.Bold = Жирный; 1 — жирный шрифт, 0 — нормальный.
Лист.Cells(НомерСтроки,НомерКолонки).Font.Italic = Курсив; 1 — наклонный шрифт, 0 — нормальный.
Лист.Cells(НомерСтроки,НомерКолонки).Font.Underline = Подчеркнутый; 2 — подчеркнутый, 1 — нет.
Лист.Cells(НомерСтроки, НомерКолонки).NumberFormat = Формат; Установка формата данных ячейки.
Лист.Cells(НомерСтроки,НомерКолонки).Borders.Linestyle = ТипЛинии; Установка рамок ячейки. 1 — тонкая сплошная.
Лист.Cells(НомерСтроки,НомерКолонки).WrapText = Истина; Осуществлять перенос по словам в указанной ячейке
Лист.Protect(); Установка защиты на лист
Лист.UnProtect(); Снятие защиты с листа
Лист.Cells(Строка, Столбец).Locked=0; Ячейка будет доступной (и после установки защиты на лист)
ПолучитьCOMОбъект(<Имя файла>, <Имя класса COM>); Основное применение функции ПолучитьCOMОбъект — это получение COM-объекта, соответствующего файлу.

Хитрости Excel

Как выборочно разрешить / запретить редактирование ячеек листа

	//Создаем объект EXCEL
	Эксель = СоздатьОбъект("Excel.Application");
	Книга = Эксель.WorkBooks.Open(ФайлВыгрузки);
	Лист =Книга.Worksheets("Список сотрудников"); // Выбор листа

	Книга.ActiveSheet.UnProtect(); //делаем шаблон незащищенным

	// Заполняем лист

	// ...................................

	// Снимаем защиту с области ввода сумм 

	Для Перем = 1 По 10 Цикл
		// Прописываем, какие ячейки будут доступными
		Книга.ActiveSheet.Cells(Перем, 2).Locked=0;
	КонецЦикла;  

	Книга.ActiveSheet.Protect(); // ставим защиту на лист

Как запретить появление на экране всяких вопросов от Excel

Excel, чтоб вопрос не задавал:

	Excel.DisplayAlerts = False;

Как добавить лист Excel в конец списка листов книги или после конкретного листа (а не в начало книги)

Метод работает для платформ 1С v8.

	Файл = Новый COMОбъект("Excel.Application");
	Файл.DisplayAlerts = False;
	
	Попытка
		ОбщаяКнига = Файл.WorkBooks.Open(Объект.ПутьКОбщемуФайлу);
	Исключение
		Сообщить("Excel: Неудачная попытка открытия файла Excel" + ОписаниеОшибки());
		//ЗаписьЖурналаРегистрации("Excel: Неудачная попытка открытия файла Excel", УровеньЖурналаРегистрации.Ошибка,,, ОписаниеОшибки());
		Возврат;
		
	КонецПопытки;
	
	КоличествоЛистов = ОбщаяКнига.Sheets.Count; //2
	ПоследнийЛист = ОбщаяКнига.Worksheets(КоличествоЛистов); // необходимо получить сам лист (не его номер)
	
	Если КоличествоЛистов < 8 Тогда // к примеру, нужно сделать так, чтобы в книге было 8 листов, если листов меньше, то добавляем их
		
		Пока 8 - КоличествоЛистов > 0 Цикл
			
			ОбщаяКнига.Sheets.Add(Null,ПоследнийЛист,Null,Null); // добавляем лист в конец книги

			КоличествоЛистов = КоличествоЛистов +1;
			ПоследнийЛист = ОбщаяКнига.Worksheets(КоличествоЛистов); // получаем ссылку на очередной последний лист книги
			
		КонецЦикла;
	КонецЕсли;

Как программно скрыть колонку файла Excel

	// ПРИМЕР как скрыть колонку программно - скроется колонка №2: 	ЛистОшибок.Cells(ПозицияШапкиФайла, 2).ColumnWidth  = 0; // скрыть колонку №2

Как программно назначить ячейке файла Excel перенос по словам

	// ПРИМЕР как осуществлять перенос в ячейке по словам программно ячейка в строке ПозицияШапкиФайла, колонке №2: 	ЛистОшибок.Cells(ПозицияШапкиФайла, 2).WrapText = Истина; // осуществлять перенос в ячейке по словам

Как обработать файл xls, если Excel не установлен на компьютере

Для этого можно использовать метод

	СоздатьОбъект("ADODB.Connection");

Код для 7.7, решающий такую задачу, будет выглядеть примерно так:

	db = СоздатьОбъект("ADODB.Connection");
	ConectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ИмяФайла+";Extended Properties="+"Excel 8.0;";
	rs=CreateObject("ADODB.Recordset");
	db.Open(ConectionString);
	rs.ActiveConnection = db;
	rs.CursorType = 3;
	rs.LockType = 2;

	//Чтобы задать Область, надо выделить область в екселе и нажать Вставка-Имя-Присвоить...
	rs.Source = "Select * from [Лист$1]";
	rs.Open();
	КоличествоПолей = rs.Fields.Count;
	Сообщить(КоличествоПолей);
	КоличествоЗаписей = rs.RecordCount;
	Сообщить(КоличествоЗаписей);
	Если rs.Eof()=0 Тогда
		Сообщить(rs.Fields(0).Value);
		rs.MoveNext();
	Иначе ТЗ.УстановитьЗначение(1,1,rs.Fields(1).Value);
	КонецЕсли;
	rs.Close();
	db.Close();

Как указать цвет шрифта в ячейке, цвет рамки, цвет фона

Книга.Sheets(1).Cells(1,1).Borders.Color = 25525124; // цвет рамки Книга.Sheets(1).Cells(1,1).Font.Color = 255000000; // цвет шрифта Книга.Sheets(1).Cells(1,1).Interior.Color = 255045; // цвет фона

Организация автоматической обработки файлов xls из выбранной папки

// В v8 код обработки файлов выглядит примерно так:

// примеры задания пути к файлам:
ПримерПапкиВСети = "Adsf01PublicЗАГРУЗКА ЗАКАЗОВ";
ПримерПапкиЛокал = "C:1сОбмен";

// задаем путь загрузки:
ПутьЗагрузки = ПримерПапкиЛокал;

// Файлы - Массив из значений типа Файл, содержащий найденные файлы:
Файлы = НайтиФайлы(ПутьЗагрузки,"*.xls*");

// организовываем перебор файлов:
Для Каждого Файл ИЗ Файлы Цикл

	// обрабатываем файлы....
	// ...

	// В конце можно удалить бработанный файл:
	Попытка
		УдалитьФайлы(Файл.ПолноеИмя);
	Исключение
		Сообщить("Не удалось удалить файл " + ОписаниеОшибки());
	КонецПопытки;

	// или в конце можно переместить обработанный файл в специально предназначенную подпапку исходной папки:
	Попытка
		ПереместитьФайл(Файл.ПолноеИмя, ПутьЗагрузки+"Arhiv" + Файл.Имя); // папка архива: "C:1сОбменArhiv"
	Исключение
		Сообщить("Не удалось переместить файл " + ОписаниеОшибки());
	КонецПопытки;

КонецЦикла;

// в 7.7 для аналогичных действий используются команды:
ФС.НайтиПервыйФайл()
ФС.НайтиСледующийФайл()
ФС.УдалитьФайл()
ФС.ПереименоватьФайл(,,);

Создание кнопки в Excel в 7.7

	ТекущийЛист.Shapes("CommandButton").Select
	ТекущийЛист.OLEObjects("CommandButton").Object.Caption = "Кнопуля";

Процедура открывает Эксель, втавляет на первый лист кнопку «Очистить» и назначает ей макрос,
устанавливающий автофильтр на колонку Е по не нулевым значениям. Текст макроса любой,
главное разделять Симв(13) строки

	Попытка
		Ex=CreateObject("Excel.Application");
	Исключение
		Сообщить(ОписаниеОшибки(),"!!!");
		Предупреждение("Не удалось запустить MS Excel!");
		Возврат;
	КонецПопытки;
	Состояние("Открытие файла...");
	Попытка
		Wb=Ex.WorkBooks.Add();
	Исключение
		Возврат;
	КонецПопытки;
	Ex.Visible=-1;
	Wb.Sheets(1).OLEObjects.Add("Forms.CommandButton.1",,,10, 99.75, 120.75,  "Очистить");//27.75
	st = "Private Sub CommandButton1_Click()" +  Chr(13) +
	" ThisWorkbook.Sheets(1).Columns(""E:E"").AutoFilter Field:=1, Criteria1:="">0"",
 Operator:=xlAnd" + Chr(13) + "End Sub";
	Ex.VBE.ActiveVBProject.VBComponents(Wb.Sheets(1).Name).CodeModule.AddFromString(st)

текст макроса пишется в переменную st

Как подключиться к запущенному Excel-евскому файлу в реальном времени, изменить его и даже не сохранять, а просто переключить окно на 1С и сразу же выгружать данные в табличную часть, лишь переключив окна

 Excel = ПолучитьCOMОбъект(, "Excel.Application");

При этом первый параметр нужно оставить пустым. В этом случае при этом подцепится тот файл экселя, который был открыт последним, даже если порядок переключения окон был таким:
Excel1, Excel2, IE, Проводник, 1С (т.е. что-то и было открытым между 1с и экселевским файлом) — все равно откроется Excel2, потому что он был активен последним.

Описание команды ПолучитьCOMОбъект

Глобальный контекст
ПолучитьCOMОбъект (GetCOMObject)
Синтаксис:
ПолучитьCOMОбъект(<Имя файла>, <Имя класса COM>)
Параметры:
<Имя файла> (необязательный)
Тип: Строка. Имя файла, включающее полный путь.
<Имя класса COM> (необязательный)
Тип: Строка. Имя класса COM, экземпляр которого должен быть создан или получен. Если расширение имени файла, указанное в первом параметре полностью идентифицирует класс объекта, то параметр может быть опущен.
Возвращаемое значение:
Тип: COMОбъект.
Описание:
Основное применение функции ПолучитьCOMОбъект — это получение COM-объекта, соответствующего файлу. Для этого следует в качестве первого параметра функции задать имя файла, который будет определять COM-объект. Например, фрагмент кода

Таб = ПолучитьCOMОбъект("C:DATADATA.XLS");

создает объект Excel.Application и открывает с его помощью файл документа «C:DATADATA.XLS». Если указанный файл во время выполнения данного фрагмента уже открыт с помощью MS Excel, то будет получена ссылка на уже существующий объект.
Для файлов, указываемых в качестве параметра данной функции, должно быть установлено соответствие расширения имени файла и класса COM.
Если в качестве имени файла указана пустая строка, то будет создан новый экземпляр объекта. В этом случае необходимо указать имя класса COM.
Например, фрагмент кода

Таб = ПолучитьCOMОбъект("", "Excel.Application");

создает новый документ Excel. В дальнейшем этот документ может быть программно заполнен и сохранен в файл.
Если первый параметр функции пропущен, то будет произведена попытка получить активный объект указанного типа. Если активного объекта указанного типа в настоящий момент не существует, то будет вызвано исключение. Например, в результате выполнения оператора

П = ПолучитьCOMОбъект( , "Excel.Application");

Переменная П получит значение типа COMОбъект, соответствующее активному приложению MS Excel, если таковое имелось, или будет вызвано исключение, если активных экземпляров MS Excel не было.
Пример:

// Получение объекта COM, соответствующего файлу Таб = ПолучитьCOMОбъект("C:DATADATA.XLS"); // Создание нового экземпляра объекта Таб = ПолучитьCOMОбъект("", "Excel.Application"); // Получение активного объекта Таб = ПолучитьCOMОбъект( , "Excel.Application");

Ниже приведена сравнительная таблица команд — один и тот же код на 7.7 и v8 с небольшими дополнениями

Отличия:

  • команда создания самого объекта в 7.7 и v8 различна;
  • в v8 выводится запись в журнал регистрации (просто для примера, например, когда вывод сообщения на экран невозможен из-за выполнения кода в фоновом задании);
  • в v8 параллельно создается, заполняется и сохраняется копия исходного файла с комментариями об ошибках
1C 7.7 1C v8
Доступ из 1С к Excel производится посредством OLE. Создание COM-объекта: 
Попытка
 Эксель = СоздатьОбъект("Excel.Application");
Исключение
 Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
 
Попытка
 Эксель = Новый COMОбъект("Excel.Application");
Исключение
 ЗаписьЖурналаРегистрации("Excel: Неудачная попытка подключения компоненты Excel.
 | Возможно, программа Excel не установлена на данном компьютере!", УровеньЖурналаРегистрации.Ошибка,,, ОписаниеОшибки());
Возврат Ложь;
КонецПопытки;
Теперь, используя переменную «Эксель», можно управлять приложением Excel.
* Внимание! Microsoft Excel должен быть установлен на компьютере!
Следующая команда откроет книгу:		 
Книга = Эксель.WorkBooks.Open(ПутьКФайлу);
 
Попытка
Книга = Эксель.WorkBooks.Open(ИмяФЗагрузки);
Исключение
ЗаписьЖурналаРегистрации("Excel: Неудачная попытка открытия файла Excel", УровеньЖурналаРегистрации.Ошибка,,, ОписаниеОшибки());
Возврат;
КонецПопытки;
Перед тем, как начать считывание данных, укажем лист книги, с которого будем считывать данные: 
Лист = Книга.WorkSheets(НомерЛиста)
Нумерация листов книги начинается с 1. Общее количество листов можно получить, используя следующую команду: 
КоличествоЛистов = Книга.Sheets.Count;
 
КоличествоЛистов = Книга.Sheets.Count;
// создание файла для записи проблем 
КнигаОшибок = Эксель.WorkBooks.Add();
 
КнигаОшибок = Эксель.WorkBooks.Add();
// читаем книгу по листам: 
Для СчетчикПоЛистам = 1 По КоличествоЛистов Цикл //цикл по листам
// если листов больше 3, то потребуется добавить лист в книгу
Если СчетчикПоЛистам > 3 Тогда
ЛистОшибок = КнигаОшибок.Sheets.Add();
Иначе
ИмяЛистаОшибок = КнигаОшибок.Sheets(СчетчикПоЛистам).Name;
ЛистОшибок = КнигаОшибок.WorkSheets(ИмяЛистаОшибок);
КонецЕсли;
//Имя листа в книге можно получить по номеру: 
ИмяЛиста = Книга.Sheets(НомерЛиста).Name;
 
ИмяЛиста = Книга.Sheets(СчетчикПоЛистам).Name;
//Лист можно выбрать по имени листа в книге: 
Лист = Книга.WorkSheets(ИмяЛиста);
 
Лист = Книга.WorkSheets(ИмяЛиста);
//Итак, мы открыли книгу и выбрали лист, теперь посмотрим, сколько строк и колонок на выбранном листе: 
ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
 
Попытка
ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row; // используем для перебора строк
Исключение
ЗаписьЖурналаРегистрации("Excel: Неудачная попытка получения количества колонок и строк Excel", УровеньЖурналаРегистрации.Ошибка,,, ОписаниеОшибки());
Возврат;
КонецПопытки;
// получение значения из конкретной ячейки файла экселя: 
Значение = Лист.Cells(НомерСтроки, НомерКолонки).Value;
 
Для счетчикПоКолонкам = 1 По ВсегоКолонок Цикл //цикл по колонкам
ЗначениеВЯчейке=Книга.Sheets(СчетчикПоЛистам).Cells(ПозицияШапкиФайла,счетчикПоКолонкам).Value;
...
// установка нового значения ячейки экселя: 
Лист.Cells(НомерСтроки, НомерКолонки).Value = Значение;
 
ЛистОшибок.Cells(ПозицияШапкиФайла, счетчикПоКолонкам).Value = ЗначениеВЯчейке;
// сохранение изменений в новом файле экселя: 
// если такой файл уже был записан, удалим его, чтобы эксель не спросил интерактивно про перезапись
Попытка
ИмяФайлаОшибок = ВыбФайл.Путь + ВыбФайл.ИмяБезРасширения + "_bad.xls";
ФайлОш = Новый Файл(ИмяФайлаОшибок);
Если ФайлОш.Существует() Тогда
УдалитьФайлы(ИмяФайлаОшибок);
КонецЕсли;
КнигаОшибок.SaveAs(ИмяФайлаОшибок); // файл с ошибочными данными
Исключение
ДобавитьСообщениеВОшибки("Не удалось записать в файл сообщения об ошибках!"+ ОписаниеОшибки(),,, "Важно");
КонецПопытки;
// После выполнения действий закрываем книгу: 
Эксель.Quit();
 
Эксель.Quit();
Источник

Содержание

  1. Закрыть Excel программно
  2. Не получается убить процесс Excel из 1С
  3. Ошибка при закрытии объекта Excel
  4. Не завершается процесс Excel. Остается висеть. Почему ?

Закрыть Excel программно

Всем здравствуйте. Никак не могу понять как закрыть Excel без сохранения изменений после того, как закончил работать с данными.
Открываю его так

Excel = Новый COMОбъект(«Excel.Application»);
БД = Excel.WorkBooks.Open(ИзначальнаяТаблица);
Возврат БД;

Сообщить(«Ошибка при открытии файла с помощью Excel! Загрузка не будет произведена!»);
Сообщить(ОписаниеОшибки());

Закрывать как только не пробовал

БД .DisplayAlerts = 0;
БД .Quit();

Подскажите что не так то делаю?

Excel = Новый COMОбъект(«Excel.Application»);
Excel.Quit();

Вот прям так сразу и вместе отрабатывает?
Либо в имени ошиблись, либо из разных мест вызываете. «Возврат БД» как бы намекает, что из процедуры где инициализируете Excel вы уходите. Тогда откуда пытаетесь вызвать закрытие?

Приведу полностью может так лучше будет, так как у меня что то не выходит понять

&НаКлиенте
Функция ОткрытиеEXCEL()

Excel = Новый COMОбъект(«Excel.Application»);
БД = Excel.WorkBooks.Open(ИзначальнаяТаблица);
Возврат БД;

Сообщить(«Ошибка при открытии файла с помощью Excel! Загрузка не будет произведена!»);
Сообщить(ОписаниеОшибки());

&НаКлиенте
Процедура ОбработкаИзEXCEL()

БДНачальная = ОткрытиеEXCEL();
БДКонечная = СозданиеDBF();
КоличествоЛистов = БДНачальная.Sheets.Count;

Для НомерЛиста = 1 ПО КоличествоЛистов Цикл
Лист = БДНачальная.WorkSheets(НомерЛиста);
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

Для Строка = 1 ПО ВсегоСтрок Цикл
Если ПроверкаСодержанияСтроки(Лист.Cells(Строка, 1).Value) = Истина Тогда

Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,Символы.ПС ,» «);
Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,Символы.ВК ,» «);
Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,»№» ,» № «);
Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,»г.» ,» г.»);
Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,»г .» ,» г.»);
Лист.Cells(Строка, 3).Value = СтрЗаменить(Лист.Cells(Строка, 3).Value,» «,» «);
Лист.Cells(Строка, 3).Value = СокрЛП(Лист.Cells(Строка, 3).Value);
ЗапомнитьКоммент = Лист.Cells(Строка, 3).Value;
//БДКонечная.Добавить();
//БДКонечная.COMMENT = «VID_DOC 0 — не известно, 1 — судебное решение; 2 — погашение; 3 — отмена судебного решения; 4 — формирование иска.»;
//БДКонечная.Записать();

БДКонечная.Добавить();
БДКонечная.COMMENT = ЗапомнитьКоммент;
БДКонечная.Z_DOC = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»Z_DOC»);
Если СтрЧислоВхождений(Лист.Cells(Строка, 5).Value, «ОСР») > 0 Тогда
БДКонечная.VID_DOC = 3;
ИначеЕсли СтрЧислоВхождений(Лист.Cells(Строка, 6).Value, «-«) > 0 Тогда
БДКонечная.VID_DOC = 1;
ИначеЕсли СтрЧислоВхождений(Лист.Cells(Строка, 5).Value, «-«) > 0 Тогда
БДКонечная.VID_DOC = 2;
Иначе
БДКонечная.VID_DOC = 0;
КонецЕсли;

БДКонечная.OPER_NUMB = Лист.Cells(Строка, 1).Value;
ДатаНомер = Лист.Cells(Строка, 2).Value;
БДКонечная.DATE = ОбработатьСтроку(Лист.Cells(Строка, 2).Value,»SUD_DATE»);
БДКонечная.DOCUMENT = СокрЛП(СтрЗаменить(ДатаНомер, Лев(Строка(БДКонечная.DATE), 10), «»));
БДКонечная.MISTK = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»MISTK»);

Если СтрЗаменить(БДКонечная.MISTK,» «,»») = «» Тогда
БДКонечная.SUD_DOC = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»SUD_DOC»);

КонецЕсли;
БДКонечная.LT = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»LT»);
Если НЕ СтрЗаменить(БДКонечная.SUD_DOC,» «,»») = «» Тогда

БДКонечная.SUD_DATE = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»SUD_DATE»,БДКонечная.VID_DOC);
КонецЕсли;

Если СтрЧислоВхождений(Лист.Cells(Строка, 5).Value, «-«) > 0 Тогда
БДКонечная.DEBIT = Лист.Cells(Строка, 4).Value;
ИначеЕсли СтрЧислоВхождений(Лист.Cells(Строка, 5).Value, «-«) = 0 И СтрЗаменить(Лист.Cells(Строка, 5).Value,» «,»») <> 0 Тогда
БДКонечная.DEBIT = «76/СРШ»;
КонецЕсли;

Если СтрЧислоВхождений(Лист.Cells(Строка, 6).Value, «-«) > 0 Тогда
БДКонечная.CREDIT = Лист.Cells(Строка, 4).Value;
ИначеЕсли СтрЧислоВхождений(Лист.Cells(Строка, 6).Value, «-«) = 0 И СтрЗаменить(Лист.Cells(Строка, 6).Value,» «,»») <> 0 Тогда
БДКонечная.CREDIT = «76/СРШ»;
КонецЕсли;

Если СтрЧислоВхождений(БДКонечная.CREDIT, «76/СРШ») > 0 Тогда
БДКонечная.SUM = Лист.Cells(Строка, 6).Value;
ИначеЕсли СтрЧислоВхождений(БДКонечная.DEBIT, «76/СРШ») > 0 Тогда
БДКонечная.SUM = Лист.Cells(Строка, 5).Value;
КонецЕсли;
БДКонечная.VALUE = Лист.Cells(Строка, 7).Value;
Если СтрЗаменить(БДКонечная.MISTK,» «,»») = «» Тогда
БДКонечная.MISTK = ОбработатьСтроку(Лист.Cells(Строка, 3).Value,»MISTKOST»);
КонецЕсли;
Лист.Cells(Строка, 3).Value = ЗапомнитьКоммент;
БДКонечная.Записать();

КонецЕсли;
Состояние(«Обрабатывается » + Строка(НомерЛиста) + » лист из » + Строка(КоличествоЛистов), Строка/ВсегоСтрок*100);

КонецЦикла;
БДНачальная.Quit();
БДКонечная.ЗакрытьФайл();

//Функция ОткрытиеEXCEL()
Excel = Новый COMОбъект(«Excel.Application»);
Возврат Excel;

//Процедура ОбработкаИзEXCEL()
Excel = ОткрытиеEXCEL();
БДНачальная = Excel.WorkBooks.Open(ИзначальнаяТаблица);

БДНачальная.DisplayAlerts = 0;
БДНачальная.Quit();

Источник

Не получается убить процесс Excel из 1С

Не получается убить процесс из 1С. Перепробовал уже всякие способы, инфа, которую находил не помогает. Кажется, что проблема в том, что файл создаётся новый, сохраняется через SaveAs и поэтому может быть не удаляется.
Код:

Эксель = Новый COMОбъект(«Excel.Application»);

Книга = Эксель.WorkBooks.Add();
Лист = Книга.WorkSheets(1);
// Лист = Книга.Sheets.Add();

КоличествоКолонок = ТаблицаРезультата.Колонки.Количество();
КоличествоСтрок = ТаблицаРезультата.Количество();

Для Инд=1 по КоличествоКолонок Цикл
Лист.Cells(1, Инд).Value = ТаблицаРезультата.Колонки[Инд-1].Заголовок;
КонецЦикла;

МассивКом = Новый COMSafeArray(«VT_VARIANT»,КоличествоКолонок,КоличествоСтрок);

Для индСтрок = 0 по КоличествоСтрок — 1 Цикл
СтрокаТаблицы = ТаблицаРезультата[индСтрок];
Для индКолонок = 0 по КоличествоКолонок — 1 Цикл
МассивКом.SetValue(индКолонок, индСтрок, ?(ТипЗнч(СтрокаТаблицы[индКолонок])=Тип(«Дата»),Строка(СтрокаТаблицы[индКолонок]),СтрокаТаблицы[индКолонок]));
КонецЦикла;
КонецЦикла;
КонецДиапазона=КоличествоСтрок+1;

Лист.Range(Лист.Cells(2,1), Лист.Cells(КонецДиапазона,КоличествоКолонок)).Value = МассивКом;
Лист.Rows(«2:»+Формат(КонецДиапазона, «ЧГ=»)).RowHeight = 12;

Попытка
Книга.SaveAs(Путь_SRC_OUT_PAYMENT);
Исключение
Сообщить(ОписаниеОшибки()+» Файл не сохранен!»);
КонецПопытки;

Книга.Save();
Эксель.DisplayAlerts = 0;
Эксель.ActiveWorkbook.Close(1);
// Эксель.Application.Quit();
Эксель.Quit();
Эксель = 0;

Почему-то процесс не уходил до возврата функции. Не могу понять в чём причина. В итоге процесс ушёл, использовал следующую конструкцию

Эксель.DisplayAlerts = 0;
Эксель.Application.Quit();
Эксель = Неопределено;

Может так попробовать?

Лист = Неопределено;
Книга = Неопределено;
Эксель.Application.Quit();
Эксель = Неопределено;

// функция устанавливает связь с EXCEL
// в качестве параметра требуется имя открываемого файла
// в случае удачи возвращает соответствие из обьектов ОЛЕ, в случае не удачи — неопределено
Функция EXCELУстановитьСвязь (ИмяФайла)Экспорт

Результат = Неопределено;
#Если Клиент Тогда
Состояние(«Идет установка связи, ждите. «);
#КонецЕсли

Попытка
Результат = Новый Соответствие();

BaseOLE = Новый COMОбъект(«Excel.Application»);
Результат.Вставить(«EXCEL», BaseOLE);

ExcelФайл = BaseOLE.WorkBooks.Open (ИмяФайла);
Результат.Вставить(«ExcelФайл», ExcelФайл);

МассивЛистов = Новый Массив();
КоличествоЛистов = ExcelФайл.Sheets.Count;
Для е = 1 по КоличествоЛистов Цикл
МассивЛистов.Добавить(ExcelФайл.Sheets(е));
КонецЦикла;

Исключение
Результат = Неопределено;
#Если Клиент Тогда
Сообщить(«Ошибка создания обьекта Microsoft Excel» + ОписаниеОшибки());
#КонецЕсли
КонецПопытки;

Возврат Результат;
КонецФункции

// функция разрывает связь с 1с 7.7
// в качестве параметра требуеться структура созданая при установке соединения
Процедура EXCELРазорватьСвязь (Соответстие) Экспорт
Попытка
Соответстие[«EXCEL»].DisplayAlerts = 0;
Соответстие[«ExcelФайл»].Close();
Соответстие[«EXCEL»].DisplayAlerts = 1;
Соответстие[«EXCEL»].Quit();
Соответстие[«EXCEL»] = Неопределено;
Исключение
#Если Клиент Тогда
Сообщить(ОписаниеОшибки());
#КонецЕсли
КонецПопытки;
КонецПроцедуры

// функция получает данные ячейки и возвращаеть структуру соответствий, или неопределено в случае неудачи
//
// В любом случае возвращаем соостветствие «Значение» и «ЭтоФормула», остальное по флагам
//
Функция EXCELПолучитьЗначениеЯчейки (ExcelЛист, НомерСтроки, НомерКолонки, ПолучатьТекстФормулы = ложь, ПолучатьОформление = ложь)
Результат = Новый Соответствие();

Попытка
ТекущееЗначениеФормулы = ExcelЛист.Cells(НомерСтроки, НомерКолонки).Formula;
Если ТекущееЗначениеФормулы <> «» Тогда
Если Лев(ТекущееЗначениеФормулы, 1) <> «=» Тогда
Результат.Вставить(«ЭтоФормула», Ложь);
Результат.Вставить(«ЗначениеЯчейки», ExcelЛист.Cells(НомерСтроки, НомерКолонки).value);
Иначе
Результат.Вставить(«ЭтоФормула», Истина);
Если Лев(СокрЛП(ExcelЛист.Cells(НомерСтроки, НомерКолонки).text),1) = «#» Тогда
Результат.Вставить(«ЗначениеЯчейки», Неопределено);
Иначе
Результат.Вставить(«ЗначениеЯчейки», ExcelЛист.Cells(НомерСтроки, НомерКолонки).value);
КонецЕсли;

Если ПолучатьТекстФормулы Тогда
Результат.Вставить(«ТекстФормулы», СокрЛП(ТекущееЗначениеФормулы));
КонецЕсли;
КонецЕсли;
Иначе
Результат.Вставить(«ЭтоФормула», Ложь);
Результат.Вставить(«ЗначениеЯчейки», ExcelЛист.Cells(НомерСтроки, НомерКолонки).value);
КонецЕсли;

Если ПолучатьОформление Тогда
Результат.Вставить(«ЦветЯчейки», СокрЛП(ExcelЛист.Cells(НомерСтроки, НомерКолонки).Interior.ColorIndex));
// здесь можно добавить и другие.
КонецЕсли;

Исключение
Результат = Неопределено;
КонецПопытки;

Возврат Результат;
КонецФункции

// функция получает данные ячейки и значение
//
// В любом случае возвращаем соостветствие «Значение» и «ЭтоФормула», остальное по флагам
//
Функция EXCELПолучитьЗначениеЯчейки2 (ExcelЛист, НомерСтроки, НомерКолонки)
Результат = EXCELПолучитьЗначениеЯчейки (ExcelЛист, НомерСтроки, НомерКолонки);

Если Результат = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;

Возврат Результат[«ЗначениеЯчейки»];
КонецФункции

// будем подключаться
СоответстиеЗагрузки = EXCELУстановитьСвязь (ТекущийФайл.ПолноеИмя);

Если СоответстиеЗагрузки = Неопределено тогда
Возврат;
КонецЕсли;

Для каждого ТекущаяСтраница из СоответстиеЗагрузки[«Листы»] Цикл
ЗначениеX1Y1 = EXCELПолучитьЗначениеЯчейки2 (ТекущаяСтраница, 1, 1);
КонецЦикла;

// теперь отключаемся.
EXCEL_РазорватьСвязь (СоответстиеЗагрузки);

Источник

Ошибка при закрытии объекта Excel

Есть процедура, которая закрывается перед закрытием формы

Процедура ЗакрытьФайл()
Если Excel<>Неопределено тогда
Excel.ActiveWorkbook.Close(False);

Excel.Quit();
КонецЕсли;
КонецПроцедуры

форма закрывается без ошибок, Excel удаляется из процессов.

При выборе в форме другого файла я хочу также закрыть текущую книгу и вызываю эту же процедуру: ЗакрытьФайл()

Процедура ПутьКФайлуНачалоВыбора(Элемент, СтандартнаяОбработка)
ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогВыбора.Заголовок = «Выберите файл»;

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

//подключаемся к Excel
Попытка
Excel = Новый COMОбъект(«Excel.Application»);
Excel.WorkBooks.Open(ПутьКФайлу);
Состояние(«Обработка файла Microsoft Excel. «);
Исключение
Сообщить(«Ошибка при открытии файла с помощью Excel! Загрузка не будет произведена!»);
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;

ЭлементыФормы.Листы.СписокВыбора.Очистить();
Для нл=1 по Excel.Sheets().Count цикл
Если Excel.Sheets(нл).Visible тогда
ЭлементыФормы.Листы.СписокВыбора.Добавить(нл,Excel.Sheets(нл).Name);
КонецЕсли;
КонецЦикла;
ЭлементыФормы.Листы.Значение=1;

Самое интересное, что если иду мониторю отладчиком то проходит код процедуры ЗакрытьФайл() без ошибок.

Источник

Не завершается процесс Excel. Остается висеть. Почему ?

Попытка
Эксель = Новый COMОбъект(«Excel.Application»);
ПолноеИмяФайла=»D:test.xls»;
Книга = Эксель.WorkBooks.Open(ПолноеИмяФайла); // Ошибка здесь !
Лист = Книга.ActiveSheet();
RangeAll = Лист.UsedRange;
ЧислоКолонок = RangeAll.Columns.Count;
ЧислоСтрок = RangeAll.Rows.Count;
Для с = ПерваяСтрока По ПоследняяСтрока Цикл
Код = Лист.Cells(с, 1).Value;
КонецЦикла;
//закроем Эксель
//Эксель.ActiveWorkbook.Save();
Эксель.WorkBooks.close();
Эксель.Application.Quit();
Эксель.Quit();
Лист = неопределено;
Книга = неопределено;
Эксель = неопределено;
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;

Права все есть. Делаю на домашнем компе. Вручную файл открывается без проблем.

(0) в исключении надо дополнительно сделать

иначе при возникновении ошибок загрузки логично что эксель останется висеть

Попытка
Эксель = Новый COMОбъект(«Excel.Application»);
ПолноеИмяФайла=»D:test.xls»;
Книга = Эксель.WorkBooks.Open(ПолноеИмяФайла);
Лист = Книга.ActiveSheet();
RangeAll = Лист.UsedRange;
ЧислоКолонок = RangeAll.Columns.Count;
ЧислоСтрок = RangeAll.Rows.Count;
Для с = ПерваяСтрока По ПоследняяСтрока Цикл
Код = Лист.Cells(с, 1).Value;
КонецЦикла;
//закроем Эксель
//Эксель.ActiveWorkbook.Save();
Эксель.WorkBooks.close();
Эксель.Application.Quit();
Эксель.Quit();
Лист = неопределено;
Книга = неопределено;
Эксель = неопределено;
Исключение
Сообщить(ОписаниеОшибки());
//закроем Эксель
//Эксель.ActiveWorkbook.Save();
Эксель.WorkBooks.close();
Эксель.Application.Quit();
Эксель.Quit();
Лист = неопределено;
Книга = неопределено;
Эксель = неопределено;
КонецПопытки;

то же самое — остается висеть

Процедура EXCEL_РазорватьСвязь (Соответстие) Экспорт
Попытка
Соответстие[«EXCEL»].DisplayAlerts = 0;
Соответстие[«ExcelФайл»].Close();
Соответстие[«EXCEL»].DisplayAlerts = 1;
Соответстие[«EXCEL»].Quit();
Соответстие[«EXCEL»] = Неопределено;
Исключение
#Если Клиент Тогда
Сообщить(ОписаниеОшибки());
#КонецЕсли
КонецПопытки;
КонецПроцедуры

(6) блин, ты читать умеешь?
Эксель.WorkBooks.close(); — где 0 в параметре как в (2)? В интерактивном режиме он тебя спрашивает «Точно хочешь закрыть?» (дальше много нецензурных слов)

Эксель.Application.Quit(); — вот этим ты ему порвал шаблон, у тебя Эксель уже Application
Эксель.Quit(); — ну а тут правильно закрыл

И перед экспериментами поснимай все задачи Экселя, для чистоты системы.

Попытка
Эксель = Новый COMОбъект(«Excel.Application»);
ПолноеИмяФайла=»D:test.xls»;
Книга = Эксель.WorkBooks.Open(ПолноеИмяФайла);
Лист = Книга.ActiveSheet();
RangeAll = Лист.UsedRange;
ЧислоКолонок = RangeAll.Columns.Count;
ЧислоСтрок = RangeAll.Rows.Count;
Для с = ПерваяСтрока По ПоследняяСтрока Цикл
Код = Лист.Cells(с, 1).Value;
КонецЦикла;
//закроем Эксель
//Эксель.ActiveWorkbook.Save();
Эксель.DisplayAlerts = 0;
Книга.close(0);
Эксель.DisplayAlerts = 1;
Эксель.DisplayAlerts = 0;
Эксель.WorkBooks.close(0);
Эксель.DisplayAlerts = 1;
Эксель.Application.Quit();
Эксель.Quit();
Лист = неопределено;
Книга = неопределено;
Эксель = неопределено;
Исключение
Сообщить(ОписаниеОшибки());
//закроем Эксель
//Эксель.ActiveWorkbook.Save();
Эксель.DisplayAlerts = 0;
Книга.close(0);
Эксель.DisplayAlerts = 1;
Эксель.DisplayAlerts = 0;
Эксель.WorkBooks.close(0);
Эксель.DisplayAlerts = 1;
Эксель.Application.Quit();
Эксель.Quit();
Лист = неопределено;
Книга = неопределено;
Эксель = неопределено;
КонецПопытки;

— НЕ ПОМОГЛО.
Все процессы предварительно закончил

Попытка
Эксель = Новый COMОбъект(«Excel.Application»);
ПолноеИмяФайла=»D:test.xls»;
Книга = Эксель.WorkBooks.Open(ПолноеИмяФайла);
Лист = Книга.ActiveSheet();
RangeAll = Лист.UsedRange;
ЧислоКолонок = RangeAll.Columns.Count;
ЧислоСтрок = RangeAll.Rows.Count;
Для с = ПерваяСтрока По ПоследняяСтрока Цикл
Код = Лист.Cells(с, 1).Value;
КонецЦикла;

Эксель.DisplayAlerts = 0;
Книга.close(0);
Эксель.DisplayAlerts = 1;
Эксель.Quit();
Эксель = неопределено;
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;

(9) да уж, вот это:
Эксель.DisplayAlerts = 0;
Книга.close(0); — закрыл книгу
Эксель.DisplayAlerts = 1;
Эксель.DisplayAlerts = 0;
Эксель.WorkBooks.close(0); — опять закрыл книгу
Эксель.DisplayAlerts = 1;
Эксель.Application.Quit(); — порвал шаблон Экселю
Эксель.Quit(); — попытался закрыть оный

просто 5. Слов нет, буквы пока ещё есть.

Вот тебе счасце:
Книга.close(0);
Эксель.Quit();
Когда копипастишь код, хотя бы удосужься его понять.

и перед пробой посмотри в процессах ексель, он может висеть без видимых форм — тогда прибей все процессы екселя перед пробой

Источник

Источник

Понравилась статья? Поделить с друзьями:
  • Как программно закрасить ячейки в excel
  • Как программно задать формат ячейки в excel
  • Как программно в 1с сохранить отчет в excel
  • Как программировать ячейки в excel
  • Как программировать таблицы в excel