Ну открыть приложение всегда нада, конечно правильней ето делать через попытку (вообще все приложения нужно открывать через попытку)
Код:
Попытка
Excel=СоздатьОбъект("Excel.Application");
исключение
Сообщить("не удалось соедениться с Ехель");
Возврат;
КонецПопытки;
Такс - получаем значение из нужной ячейки:
Код:
Значение=Excel.WorkBooks(1).WorkSheets("Лист3").Cells(номерстроки,номерколонки).Value;
- в данном случае - первая открытая книга. WorkBooks(1)
- Лист "Лист3" - название нужного листка
-НомерСтроки, НомерКолонки - числа местоположения ячейки в Ехэле.
Незабыть перед этим:
Либо создать Новый Либо открыть.
открыли:
Код:
Excel.WorkBooks.Open(ИмяФайла);
создали:
Код:
Excel.Application.WorkBooks.add(1);
и обязательно в конце:
Код:
Excel.WorkBooks(1).Close(ИмяФайла);
Excel.Quit();
Нащет Видимости - решайте сами- можно открывать - можно не открывать)
Код:
Excel.Visible=1; либо просто не писать;
Внесли значение в ячейку:
Код:
Excel.ActiveSheet.Cells(НомерСтрок,НомерКолонки).Value=СокрЛп("Наименование");
Excel.ActiveSheet.Cells(НомерСтрок,НомерКолонки).Value=СокрЛп("Сумма");
если интерестно - выложу и по оформлению ячеек ( высота, ширина, шрыфт, цвет и т.д.)
вылаживаю - может кому понадобиться:
Делать рабочую книгу активной:
Код:
Exel.WorkBooks(2).Activate();
Exel.WorkBooks.Item(2).Activate();
Коллекция (
BuiltinDocumentProperties) содержащая все свойства рабочей книги в Ехеле:
Код:
Свойство=Exel.WorkBooks.Item(1).BuiltinDocumentProperties;
Посмотрим свойства:
Код:
Для Ы=1 по Свойство.Count Цикл
Попытка
Сообщить(Свойство.Item(Ы).Name +"="+ Свойство.Item(Ы).Value);
Исключение
КонецПопытки;
КонецЦикла;
где Count -количество наших свойств, ну Name=Имя, Value=Значение.
что можем получить?? получаем:
Title - название
Subject - тема
Author - автор
Keywords - ключевые слова
Comments - комментарий
Template - используемый шаблон
Last author - последний автор
Revision number - редакция док-а
Applicftion name - имя приложения, в каторой открыт файл
Last print date - последняя дата печати
Creation date - дата создания
Last save time - последняя дата сохранения
Manager - руководитель (гггг - жестикулировщиГГГ)
Company - учреждение
Сохраняем документ:
Код:
Exel.ActiveWorkBook.Save() //- сохраняем
Exel.ActiveWorkBook.SaveAs("C:/MyExel.xls") //-сохранить как
Вносим в ячейку формулу:
Код:
Ячейка.Value=" =SUM(B1:B2)"
Очистим ячейку
Форматирование.
(Font, Interior)
Код:
Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Interior.ColorIndex=1; //1= белый фон
Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Font.ColorIndex=2; //2= черный цвет шрифта
Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Font.Name= "Courier"; // указывает какой шрифт
Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Font.Size=12; //размер шрифта
Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Font.Bold=1; либо (0); //т.е. истина либо лож - ?(обычный, жирный)
Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).InsertIndent(2); //устанавливаем отступ (в данном случае на 2 символа)
Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).ColumnWidth= 10; // ширина колонки
Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Borders(5).LineStyle = -4142; //очищаем все границы
Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).Borders(7).LineStyle=1; //длбавили левую границу (7 - левая, 8 - верхняя, Exel.WorkBooks(1).WorkSheets(1).Cells(1,1)9 - нижняя, 10 - правая ))
Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).VerticalAlignment = -4160; //выравнивание по левому краю
Exel.WorkBooks(1).WorkSheets(1).Cells(1,1).WrapText=1 (истина) //устанавливаем перенос слов
Всего 56 цветов:
1- белый
2-черный
3-красный
5-синий
6-желтый
7-лиловый
10-зеленый
33-голубой
39-сиреневый
46-оранжевый
адрес ячейки:
Прямоугольная область ячеек:
Код:
Exel.WorkBooks(1).WorkSheets(2).Range("a1:b2");
Exel.WorkBooks(1).WorkSheets(2).Range("a1:b2").Copy();
Exel.WorkBooks(1).WorkSheets(2).Range("a11:b12").Select();
Exel.WorkBooks(1).WorkSheets(2).Paste();
Надеюсь копи-паст вам понятен.
Select - выделяет диапазон - куда копируются данные
Важно: с помощью Range выделять и редактировать необходимый блоки!
Если найду что-небудь еще- выложу.