Подсказки "1с": Excel.Application

Показаны сообщения с ярлыком Excel.Application. Показать все сообщения

четверг, 14 апреля 2016 г.

Программная вставка формул Excel из 1с

1)Все формулы в англоязычном эквиваленте. Как они выглядят можно узнать, записав макрос.

2)Разделители, в отличии от интерактивной вставки, не ";", а ","!!!

//Вставка гиперссылки:

//ActiveSheet.Hyperlinks.Add(Куда,  'http://www.msdn.com', '', 'Типтол подсказка', 'отображаемый текст в ячейке')
Лист.Cells(сч,  4).Hyperlinks.Add(Лист.Cells(сч,  4),"http://www.mail.ru","","","");

счСтр = Формат(сч,"ЧГ=");

Лист.Cells(сч,10).Formula = "=IF(I$2>20000,E"+счСтр+"*G"+счСтр+",H"+счСтр+"*E"+счСтр+")";//j
Лист.Cells(сч,11).Formula = "=IF(E"+счСтр+">0,IF(I"+счСтр+"=0,K$2,0),"""")";// k 
Лист.Cells(сч,12).Formula = "= IFERROR(ROUND(M"+счСтр+"/E"+счСтр+",2),0)";// l 
Лист.Cells(сч,13).Formula = "=IFERROR(ROUND(J"+счСтр+"*(1-K"+счСтр+"),2),0)";// m

четверг, 16 июля 2015 г.

1с 7.7 Назначить имя столбцу (ячейке) Excel.

Назначить имя столбцу (или ячейке) в Excel (Эксель) из 1с 7.7.

Excel = СоздатьОбъект("Excel.Application");
    Excel.DisplayAlerts = 0;
    Попытка
        РабочаяКнига=Excel.Workbooks.Add(Файл);
    Исключение
        Предупреждение("Ошибка при открытии файла загрузки!",15);
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;

    РабочаяКнига.ActiveSheet.Range("A:A").Name = "qqqqqqqqqqqqqqq";

    РабочаяКнига.SaveAs(Файл);
    Excel.Quit();

//Если диапазон "A:A" - то назначается всему столбцу, если "A1" - то самой левой ячейке.

//как сделать в формате R1C1 пока не понял...

среда, 20 февраля 2013 г.

Пример чтения Excel из 1с 7.7

1с чтение Excel.

Пример использования 1с 7.7 для чтения данных из Excel:

Excel = СоздатьОбъект("Excel.Application");
    НовыеРабочиеКниги= Excel.Workbooks;
    Попытка
        РабочаяКнига=НовыеРабочиеКниги.Open(Файл);
    Исключение
        Предупреждение("Ошибка при открытии файла загрузки!",15);
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    ОкноExcel=РабочаяКнига.WorkSheets(1);

Дальше »

пятница, 24 августа 2012 г.

Пример чтения Excel из 1с 8

Примерный программный код:

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


    Книга   = Эксель.Workbooks.Open(Файл);

    Лист                = Книга.Worksheets(1);
    ActiveCell          = Лист.Cells(1,1).SpecialCells(11);
    КоличествоСтрок     = ActiveCell.Row;
    //КоличествоКолонок = ActiveCell.Column;

    для сч = 1 по КоличествоСтрок Цикл
        Код = Лист.Cells(сч, 3).Value;
        Если Код=Неопределено Тогда
            Продолжить;
        КонецЕсли;
        Если Лист.Cells(сч, 4).Value = Неопределено Тогда
            КолОст = 0;
        Иначе
            КолОст = Число(Лист.Cells(сч, 4).Value);
        КонецЕсли;

        Если Лист.Cells(сч, 5).Value = Неопределено Тогда
            Кол = КолОст;
        Иначе
            Кол = число(Лист.Cells(сч, 5).Value);
        КонецЕсли;

        Если Кол = Неопределено Тогда
            Продолжить;
        КонецЕсли;

    КонецЦикла;

    Книга.Close(Ложь);
    Эксель.quit();

четверг, 14 апреля 2016 г.