Ошибка при вызове метода контекста windows произошла исключительная ситуация 0x8002000b - Ремонт и установка крупной бытовой техники

bard666

15.05.15 — 10:30

Столкнулся со следущим: При сохранении файла ексель в 1С вылетает ошибка:

Ошибка при вызове метода контекста (Save)

ТекущийДокЕксель.Save();

по причине:

Произошла исключительная ситуация (Microsoft Excel): Метод Save из класса Application завершен неверно

Порылся на форумах, внятного ответа как исправить не нашёл.

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

Может ли быть такая ошибка из-за того, что на сервере, где выполняется обработка стоит 2013 офис и файл открывается в режиме совместимости? Как это обходить?

bard666

1 — 15.05.15 — 10:59

Метод saveAs вообще не обнаружен.

Ненавижу 1С

2 — 15.05.15 — 11:01

может прав нет на место сохранения?

bard666

3 — 15.05.15 — 11:01

Никто не сталкивался?

bard666

4 — 15.05.15 — 11:02

Права есть. Если просто открыть екселем, изменить и сохранить как — все прокатывает, а через 1С сохранить не получается.

bard666

5 — 15.05.15 — 11:04

Создается файлик, но ячейки пустые. Формат вроде нужный — .xls

Ненавижу 1С

6 — 15.05.15 — 11:05

(4) если это делается на сервере, то права надо смотреть у пользователя под кем работает служба сервера приложений

фобка

7 — 15.05.15 — 11:13

Новая книга? Попобуй saveas()

bard666

8 — 15.05.15 — 11:13

(6) Попробую уточнить. По результатам отпишусь.

bard666

9 — 15.05.15 — 11:13

(7) При этом методе

Метод объекта не обнаружен (SaveAs) ТекущийДокЕксель.SaveAs(КаталогДанных + «» + ТекИмя);

фобка

10 — 15.05.15 — 11:14

Текущийдокэксель это книга или аппликейшн?

фобка

11 — 15.05.15 — 11:17

Ну кароч ты книгу должен сохранять. Покажи что присваиваешь текущийдокэксель

bard666

12 — 15.05.15 — 11:32

До меня делалось:

Код функции, которая возвращает ТекущийДок

Excel = 0;

    Попытка

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

    Исключение

        Сообщить(«Не удалось инициализировать Excel»);

        Возврат Неопределено;

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

    Попытка

        тИмяСупера    = СокрЛП(Супервайзер.Наименование);

        тИмяСупера    = СтрЗаменить(тИмяСупера, «#», «»);

        чПоз    = Найти(тИмяСупера, » «);

        Если чПоз > 0 Тогда

            тИмяСупера    = СокрЛП(Лев(тИмяСупера, чПоз));

        КонецЕсли;

        тТекстАшан    = «»;

        чПозНайшлиАшан    = Найти(Должность.Наименование, «АШАН»);

        Если чПозНайшлиАшан > 0 Тогда

            тТекстАшан    = «_ashan»;

        КонецЕсли;

        ИмяФайлаКопия = тИмяСупера + «_» + СокрЛП(Должность.Должность) + тТекстАшан + «_» + СокрЛП(Должность.Код) + «_»+Месяц(ТекущаяДата());

        ИмяФайлаКопия = СтрЗаменить(ИмяФайлаКопия,»00000″,»»);

        ИмяТекужегоДокументаЕксель = СокрЛП(КаталогДанных) + «» + ИмяФайлаКопия + «.xls»;

        Попытка

            КопироватьФайл(ИмяФайла, ИмяТекужегоДокументаЕксель);

            Excel.Workbooks.Open(ИмяТекужегоДокументаЕксель);

        Исключение

            Сообщить(«Некорректное имя файла при копировании (» + ИмяФайла + «) в (» + ИмяТекужегоДокументаЕксель + «)»);

            Excel    = 0;

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

    Исключение

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

        Excel.Quit();

        Excel    = 0;

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

Возврат Excel;

фобка

13 — 15.05.15 — 11:33

(12) в данном случае текущийдок это не книга

фобка

14 — 15.05.15 — 11:34

Текдок.activeworkbook

фобка

15 — 15.05.15 — 11:35

И да — в (12) копрокод

bard666

16 — 15.05.15 — 11:37

(15) Пробовал

ТекущийДокЕксель.Application.Workbooks.SaveAs(КаталогДанных + «» + ТекИмя);

ТекущийДокЕксель.Workbooks.SaveAs(КаталогДанных + «» + ТекИмя);

Также не видит функцию

bard666

17 — 15.05.15 — 11:43

(15)

{Форма.Форма.Форма(571)}: Ошибка при вызове метода контекста (SaveAs)

ТекущийДокЕксель.ActiveWorkbook.SaveAs(КаталогДанных + «» + ТекИмя);

по причине:

Произошла исключительная ситуация (Microsoft Excel): Метод SaveAs из класса Workbook завершен неверно

фобка

18 — 15.05.15 — 11:43

(16) workbooks это не workbook — другой объект

Wern

19 — 15.05.15 — 11:43

(16) смотри (12). то что у тебя все неправильное написание.

фобка

20 — 15.05.15 — 11:44

Ответ дан выше, перечитай (14)

bard666

21 — 15.05.15 — 11:46

(20) я в (17) показал какая ошибка выпадает при ТекущийДокЕксель.ActiveWorkbook

bard666

22 — 15.05.15 — 11:47

(19) где неправильно?

фобка

23 — 15.05.15 — 11:47

Сообщить(каталогданных+»»+текимя);

bard666

24 — 15.05.15 — 11:58

(23) Здесь все четко.

«F:Ведомостиимя.xls»

фобка

25 — 15.05.15 — 12:01

(24) Если файл существует попробуй опять save(). Для saveas можно вторым параметром задать формат файла еще

bard666

26 — 15.05.15 — 12:07

(25) Я ж говорю — ошибка есть, но файл пустой появляется..)

bard666

27 — 15.05.15 — 12:10

(25) Попробовал передать формат

{Форма.Форма.Форма(571)}: Ошибка при вызове метода контекста (SaveAs)

ТекущийДокЕксель.ActiveWorkbook.SaveAs(КаталогДанных + «» + ТекИмя, «.xls»);

по причине:

Произошла исключительная ситуация (Microsoft Excel): Метод SaveAs из класса Workbook завершен неверно

фобка

28 — 15.05.15 — 12:13

(27) не, формат это число. Передай туда 50

фобка

29 — 15.05.15 — 12:16

Существует ли на сервере f:ведомости?

bard666

30 — 15.05.15 — 12:17

(28) Создал. Ура! Осталось протестировать откроет ли 2003 офис

фобка

31 — 15.05.15 — 12:22

(30) Вбей в справке по vba xlFileFormat

bard666

32 — 15.05.15 — 12:56

(31) а в Save есть подобные параметры?

фобка

33 — 15.05.15 — 13:12

(32) нет, он вообще без параметров

bard666

34 — 15.05.15 — 13:20

(33) Тогда ладно. Файлики создаются.

Есть ещё вопрос.

Обработина, сделанная по образу и подобию

http://catalog.mista.ru/public/88055/

ругается на .Windows(1).Visible = 1;

фобка

35 — 15.05.15 — 13:28

(34) значит опять путанница с объектами

bard666

36 — 15.05.15 — 13:29

Код такой:

ТабДок = Новый табличныйДокумент;

АктивныйДокумент = ПолучитьМакет(«Макет»); //— Макет Active Document лист Ексель.

КомОбъект = АктивныйДокумент.Получить();

    //— далее пишем в Cells(НомерСтроки, НомерСтолбца). Value  все что нужно. см.пример ниже

    //шапка

    Лист=КомОбъект.Sheets(1);

    Лист.Cells(9,4).Value=Идент;

    Лист.Cells(10,4).Value=Док.Организация.ПолноеНаименование();

    Лист.Cells(11,4).Value=НомерКонтракта;

    Лист.Cells(12,4).Value= ?(ЗначениеЗаполнено(Дата), Формат(Дата, «ДФ=dd.MM.yyyy»), Формат(Док.Дата, «ДФ=dd.MM.yyyy»));

    Лист.Cells(13,4).Value=НомРеестра;

    СимволовДоНулей=Найти(ДокППИ.Номер,»0″);

    НомППИ=Число(Прав(ДокППИ.Номер,СтрДлина(ДокППИ.Номер)-СимволовДоНулей-1));

    Лист.Cells(14,4).Value=СокрЛП(Формат(НомППИ, «ЧГ=0»));

    Лист.Cells(15,4).Value=Формат(ДокППИ.Дата, «ДФ=dd.MM.yyyy»);

    //Зарплата к выплате организаций

    РезультатЗапроса = Запрос.Выполнить();

Если НЕ(РезультатЗапроса.Пустой()) Тогда

        //СтрокаОтчета = Лист.Range(«Строка»);

        СтрокаОтчета = Лист.Range(«A20»);

        Счетчик=0;

        Итого=0;

        Выборка=РезультатЗапроса.Выбрать();

        Пока Выборка.Следующий() Цикл

            Счетчик=Счетчик+1;

            Если Счетчик>1 Тогда

                СтрокаОтчета.EntireRow.Copy();

                СтрокаОтчета.EntireRow.Insert();

            КонецЕсли;

            //ТекСтрока = СтрокаОтчета.Range(«A»+(СтрокаОтчета.Row-1));

            //ТекСтрока.Cells(СтрокаОтчета.Row-1,1).Value=»Вася»;

            //ТекСтрока.Find(«<ИмяСотрудника>»).Value = СокрЛП(Выборка.ФизЛицоПолностью);

            Лист.Cells(19+Счетчик,1).Value=СокрЛП(Выборка.ФизЛицоПолностью);

            Лист.Cells(19+Счетчик,4).Value=СокрЛП(Выборка.ЛицевойСчет);

            Лист.Cells(19+Счетчик,6).Value=Число(СокрЛП(Выборка.Сумма));

            Итого=Итого+Выборка.Сумма;

        КонецЦикла;

    КонецЕсли;

    //итоговая строка

    Лист.Cells(19+Счетчик+1,4).Value=СчетКонтракта;

    Лист.Cells(19+Счетчик+1,6).Value=Итого;

Лист.Cells(19+Счетчик+20,1).Value=»»; //заплатка с целью увидеть макет целиком

КомОбъект.Application.Visible = 1;

КомОбъект.Windows(1).Visible = 1;

КомОбъект.Activate();

bard666

37 — 15.05.15 — 13:30

(35) выложил код. Запросы всякие вырезал.

bard666

38 — 15.05.15 — 13:32

Вся эта ботва вылезла когда поставили 2013 офис)

DomovoiAtakue

39 — 15.05.15 — 13:43

Отдельный момент.

Я может ошибаюсь: по коду если все удачно сохранилось, то объект excel не удаляется.

bard666

40 — 15.05.15 — 13:45

(39) не совсем понимаю к чему это..

bard666

41 — 15.05.15 — 13:48

Ошибка такая: Ошибка при вызове метода контекста (Windows)

КомОбъект.Windows(1).Visible = 1;

по причине:

Произошла исключительная ситуация (0x8002000b)

DomovoiAtakue

42 — 15.05.15 — 13:54

(40)Ну если я все правильно понимаю, то 10 раз запустите свой код, не выходя из 1с, и в процессах будет висеть 10 excel-ей.

bard666

43 — 15.05.15 — 14:01

(42) Это все проверяю

bard666

44 — 15.05.15 — 14:02

У меня просто открывается ексель как приложение, а окна документа не видно. Серый экран.

bard666

45 — 15.05.15 — 14:08

А со второго раза создает.

bard666

46 — 15.05.15 — 14:26

Придумал как поправить:

Вместо

КомОбъект.Application.Visible = 1;

КомОбъект.Windows(1).Visible = 1;

КомОбъект.Activate();

Делаю

    КомОбъект.Activate();

    КомОбъект.Windows(1).Visible = 1;

Источник

bard666

15.05.15 — 10:30

Столкнулся со следущим: При сохранении файла ексель в 1С вылетает ошибка:

Ошибка при вызове метода контекста (Save)

ТекущийДокЕксель.Save();

по причине:

Произошла исключительная ситуация (Microsoft Excel): Метод Save из класса Application завершен неверно

Порылся на форумах, внятного ответа как исправить не нашёл.

bard666

1 — 15.05.15 — 10:59

Метод saveAs вообще не обнаружен.

Ненавижу 1С

2 — 15.05.15 — 11:01

может прав нет на место сохранения?

bard666

3 — 15.05.15 — 11:01

Никто не сталкивался?

bard666

4 — 15.05.15 — 11:02

bard666

5 — 15.05.15 — 11:04

Создается файлик, но ячейки пустые. Формат вроде нужный — .xls

Ненавижу 1С

6 — 15.05.15 — 11:05

фобка

7 — 15.05.15 — 11:13

Новая книга? Попобуй saveas()

bard666

8 — 15.05.15 — 11:13

(6) Попробую уточнить. По результатам отпишусь.

bard666

9 — 15.05.15 — 11:13

(7) При этом методе

Метод объекта не обнаружен (SaveAs) ТекущийДокЕксель.SaveAs(КаталогДанных + «» + ТекИмя);

фобка

10 — 15.05.15 — 11:14

Текущийдокэксель это книга или аппликейшн?

фобка

11 — 15.05.15 — 11:17

Ну кароч ты книгу должен сохранять. Покажи что присваиваешь текущийдокэксель

bard666

12 — 15.05.15 — 11:32

До меня делалось:

Код функции, которая возвращает ТекущийДок

Excel = 0;

Попытка

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

Исключение

Сообщить(«Не удалось инициализировать Excel»);

Возврат Неопределено;

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

Попытка

тИмяСупера = СокрЛП(Супервайзер.Наименование);

тИмяСупера = СтрЗаменить(тИмяСупера, «#», «»);

чПоз = Найти(тИмяСупера, » «);

Если чПоз > 0 Тогда

тИмяСупера = СокрЛП(Лев(тИмяСупера, чПоз));

КонецЕсли;

тТекстАшан = «»;

чПозНайшлиАшан = Найти(Должность.Наименование, «АШАН»);

Если чПозНайшлиАшан > 0 Тогда

тТекстАшан = «_ashan»;

КонецЕсли;

ИмяФайлаКопия = тИмяСупера + «_» + СокрЛП(Должность.Должность) + тТекстАшан + «_» + СокрЛП(Должность.Код) + «_»+Месяц(ТекущаяДата());

ИмяФайлаКопия = СтрЗаменить(ИмяФайлаКопия,»00000″,»»);

ИмяТекужегоДокументаЕксель = СокрЛП(КаталогДанных) + «» + ИмяФайлаКопия + «.xls»;

Попытка

КопироватьФайл(ИмяФайла, ИмяТекужегоДокументаЕксель);

Excel.Workbooks.Open(ИмяТекужегоДокументаЕксель);

Исключение

Сообщить(«Некорректное имя файла при копировании (» + ИмяФайла + «) в (» + ИмяТекужегоДокументаЕксель + «)»);

Excel = 0;

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

Исключение

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

Excel.Quit();

Excel = 0;

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

Возврат Excel;

фобка

13 — 15.05.15 — 11:33

(12) в данном случае текущийдок это не книга

фобка

14 — 15.05.15 — 11:34

Текдок.activeworkbook

фобка

15 — 15.05.15 — 11:35

И да — в (12) копрокод

bard666

16 — 15.05.15 — 11:37

(15) Пробовал

ТекущийДокЕксель.Application.Workbooks.SaveAs(КаталогДанных + «» + ТекИмя);

ТекущийДокЕксель.Workbooks.SaveAs(КаталогДанных + «» + ТекИмя);

Также не видит функцию

bard666

17 — 15.05.15 — 11:43

(15)

{Форма.Форма.Форма(571)}: Ошибка при вызове метода контекста (SaveAs)

ТекущийДокЕксель.ActiveWorkbook.SaveAs(КаталогДанных + «» + ТекИмя);

по причине:

Произошла исключительная ситуация (Microsoft Excel): Метод SaveAs из класса Workbook завершен неверно

фобка

18 — 15.05.15 — 11:43

(16) workbooks это не workbook — другой объект

Wern

19 — 15.05.15 — 11:43

(16) смотри (12). то что у тебя все неправильное написание.

фобка

20 — 15.05.15 — 11:44

Ответ дан выше, перечитай (14)

bard666

21 — 15.05.15 — 11:46

(20) я в (17) показал какая ошибка выпадает при ТекущийДокЕксель.ActiveWorkbook

bard666

22 — 15.05.15 — 11:47

(19) где неправильно?

фобка

23 — 15.05.15 — 11:47

Сообщить(каталогданных+»»+текимя);

bard666

24 — 15.05.15 — 11:58

(23) Здесь все четко.

«F:Ведомостиимя.xls»

фобка

25 — 15.05.15 — 12:01

(24) Если файл существует попробуй опять save(). Для saveas можно вторым параметром задать формат файла еще

bard666

26 — 15.05.15 — 12:07

(25) Я ж говорю — ошибка есть, но файл пустой появляется..)

bard666

27 — 15.05.15 — 12:10

(25) Попробовал передать формат

{Форма.Форма.Форма(571)}: Ошибка при вызове метода контекста (SaveAs)

ТекущийДокЕксель.ActiveWorkbook.SaveAs(КаталогДанных + «» + ТекИмя, «.xls»);

по причине:

Произошла исключительная ситуация (Microsoft Excel): Метод SaveAs из класса Workbook завершен неверно

фобка

28 — 15.05.15 — 12:13

(27) не, формат это число. Передай туда 50

фобка

29 — 15.05.15 — 12:16

Существует ли на сервере f:ведомости?

bard666

30 — 15.05.15 — 12:17

(28) Создал. Ура! Осталось протестировать откроет ли 2003 офис

фобка

31 — 15.05.15 — 12:22

(30) Вбей в справке по vba xlFileFormat

bard666

32 — 15.05.15 — 12:56

(31) а в Save есть подобные параметры?

фобка

33 — 15.05.15 — 13:12

(32) нет, он вообще без параметров

bard666

34 — 15.05.15 — 13:20

(33) Тогда ладно. Файлики создаются.

Есть ещё вопрос.

Обработина, сделанная по образу и подобию

http://catalog.mista.ru/public/88055/

ругается на .Windows(1).Visible = 1;

фобка

35 — 15.05.15 — 13:28

(34) значит опять путанница с объектами

bard666

36 — 15.05.15 — 13:29

Код такой:

ТабДок = Новый табличныйДокумент;

АктивныйДокумент = ПолучитьМакет(«Макет»); //— Макет Active Document лист Ексель.

КомОбъект = АктивныйДокумент.Получить();

//— далее пишем в Cells(НомерСтроки, НомерСтолбца). Value все что нужно. см.пример ниже

//шапка

Лист=КомОбъект.Sheets(1);

Лист.Cells(9,4).Value=Идент;

Лист.Cells(10,4).Value=Док.Организация.ПолноеНаименование();

Лист.Cells(11,4).Value=НомерКонтракта;

Лист.Cells(12,4).Value= ?(ЗначениеЗаполнено(Дата), Формат(Дата, «ДФ=dd.MM.yyyy»), Формат(Док.Дата, «ДФ=dd.MM.yyyy»));

Лист.Cells(13,4).Value=НомРеестра;

СимволовДоНулей=Найти(ДокППИ.Номер,»0″);

НомППИ=Число(Прав(ДокППИ.Номер,СтрДлина(ДокППИ.Номер)-СимволовДоНулей-1));

Лист.Cells(14,4).Value=СокрЛП(Формат(НомППИ, «ЧГ=0»));

Лист.Cells(15,4).Value=Формат(ДокППИ.Дата, «ДФ=dd.MM.yyyy»);

//Зарплата к выплате организаций

РезультатЗапроса = Запрос.Выполнить();

Если НЕ(РезультатЗапроса.Пустой()) Тогда

//СтрокаОтчета = Лист.Range(«Строка»);

СтрокаОтчета = Лист.Range(«A20»);

Счетчик=0;

Итого=0;

Выборка=РезультатЗапроса.Выбрать();

Пока Выборка.Следующий() Цикл

Счетчик=Счетчик+1;

Если Счетчик>1 Тогда

СтрокаОтчета.EntireRow.Copy();

СтрокаОтчета.EntireRow.Insert();

КонецЕсли;

//ТекСтрока = СтрокаОтчета.Range(«A»+(СтрокаОтчета.Row-1));

//ТекСтрока.Cells(СтрокаОтчета.Row-1,1).Value=»Вася»;

//ТекСтрока.Find(«<ИмяСотрудника>»).Value = СокрЛП(Выборка.ФизЛицоПолностью);

Лист.Cells(19+Счетчик,1).Value=СокрЛП(Выборка.ФизЛицоПолностью);

Лист.Cells(19+Счетчик,4).Value=СокрЛП(Выборка.ЛицевойСчет);

Лист.Cells(19+Счетчик,6).Value=Число(СокрЛП(Выборка.Сумма));

Итого=Итого+Выборка.Сумма;

КонецЦикла;

КонецЕсли;

//итоговая строка

Лист.Cells(19+Счетчик+1,4).Value=СчетКонтракта;

Лист.Cells(19+Счетчик+1,6).Value=Итого;

Лист.Cells(19+Счетчик+20,1).Value=»»; //заплатка с целью увидеть макет целиком

КомОбъект.Application.Visible = 1;

КомОбъект.Windows(1).Visible = 1;

КомОбъект.Activate();

bard666

37 — 15.05.15 — 13:30

(35) выложил код. Запросы всякие вырезал.

bard666

38 — 15.05.15 — 13:32

Вся эта ботва вылезла когда поставили 2013 офис)

DomovoiAtakue

39 — 15.05.15 — 13:43

Отдельный момент.

Я может ошибаюсь: по коду если все удачно сохранилось, то объект excel не удаляется.

bard666

40 — 15.05.15 — 13:45

(39) не совсем понимаю к чему это..

bard666

41 — 15.05.15 — 13:48

Ошибка такая: Ошибка при вызове метода контекста (Windows)

КомОбъект.Windows(1).Visible = 1;

по причине:

Произошла исключительная ситуация (0x8002000b)

DomovoiAtakue

42 — 15.05.15 — 13:54

bard666

43 — 15.05.15 — 14:01

(42) Это все проверяю

bard666

44 — 15.05.15 — 14:02

У меня просто открывается ексель как приложение, а окна документа не видно. Серый экран.

bard666

45 — 15.05.15 — 14:08

А со второго раза создает.

bard666

46 — 15.05.15 — 14:26

Придумал как поправить:

Вместо

КомОбъект.Application.Visible = 1;

КомОбъект.Windows(1).Visible = 1;

КомОбъект.Activate();

Делаю

КомОбъект.Activate();

КомОбъект.Windows(1).Visible = 1;

Remove From My Forums

Question
Any ideas why I am getting COMException when I was expecting and handling an exception of type

CrystalDecisions.CrystalReports.Engine.InvalidArgumentException

Why are those nasty interop exceptions showing up ?

Thanks

Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.Runtime.InteropServices.COMException: Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))

Source Error:

Answers

Hello,

This is definitely a usability issue. I will track it with our development team and they will have to address it in a future release or service pack.

Keith — Business Objects

Remove From My Forums

Question
Any ideas why I am getting COMException when I was expecting and handling an exception of type

CrystalDecisions.CrystalReports.Engine.InvalidArgumentException

Why are those nasty interop exceptions showing up ?

Thanks

Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.Runtime.InteropServices.COMException: Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))

Source Error:

Answers

Hello,

This is definitely a usability issue. I will track it with our development team and they will have to address it in a future release or service pack.

Keith — Business Objects

I have a part of code which tries to export data (from database) to Excel. When I am trying to perform this task, it is generating this error:

System.Runtime.InteropServices.COMException occurred
Additional information: Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))

Code which is generating this error:

string ExcelFileName = RootFolder + "" + "Work_Sheet.xls";
File.Copy(RootFolder + "" + "WorksOrder_Template.xls", ExcelFileName);
Excel.Workbook xlWorkBook;
xlWorkBook = excelApp.Workbooks.Open(ExcelFileName, 0, false, Type.Missing, Type.Missing, Type.Missing, true, Type.Missing, Type.Missing, Type.Missing, true, Type.Missing, false, true, Type.Missing);
Excel.Worksheet Page2;
Excel.Worksheet Page3;
Page2 = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item("Sheet2");
Page3 = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item("Sheet3");

The code line on :

Page3 = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item("Sheet3");

is generating the aforementioned error. Any idea how to solve this issue?

************** Текст исключения **************

System.Runtime.InteropServices.COMException (0x8002000B): Неверный индекс. (Исключение из HRESULT: 0x8002000B (DISP_E_BADINDEX))

в Microsoft.VisualBasic.CompilerServices.LateBinding .LateGet(Object o, Type objType, String name, Object[] args, String[] paramnames, Boolean[] CopyBack)

в Microsoft.VisualBasic.CompilerServices.NewLateBind ing.LateGet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack)

в WindowsApplication1.Form_Main_Window.Form_Main_Win dow_Load(Object sender, EventArgs e)

в System.EventHandler.Invoke(Object sender, EventArgs e)

в System.Windows.Forms.Form.OnLoad(EventArgs e)

в System.Windows.Forms.Form.OnCreateControl()

в System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)

в System.Windows.Forms.Control.CreateControl()

в System.Windows.Forms.Control.WmShowWindow(Message& m)

в System.Windows.Forms.Control.WndProc(Message& m)

в System.Windows.Forms.Form.WmShowWindow(Message& m)

в System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

************** Загруженные сборки **************

mscorlib

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2633.0 built by: NET471REL1LAST_C

CodeBase: file:///C:/Windows/Microsoft.NET/Framework64/v4.0.30319/mscorlib.dll

—————————————-

Бриз_ПП

Версия сборки: 1.7.0.1

Версия Win32: 1.7.0.1

CodeBase: file:///C:/Breez_PP/%D0%91%D1%80%D0%B8%D0%B7_%D0%9F%D0%9F_x64.exe

—————————————-

Microsoft.VisualBasic

Версия сборки: 10.0.0.0

Версия Win32: 14.7.2556.0 built by: NET471REL1

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll

—————————————-

System

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2556.0 built by: NET471REL1

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll

—————————————-

System.Core

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2633.0 built by: NET471REL1LAST_C

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll

—————————————-

System.Windows.Forms

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2556.0 built by: NET471REL1

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll

—————————————-

System.Drawing

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2556.0 built by: NET471REL1

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll

—————————————-

System.Configuration

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2556.0 built by: NET471REL1

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll

—————————————-

System.Xml

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2612.0 built by: NET471REL1LAST_B

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll

—————————————-

System.Runtime.Remoting

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2556.0 built by: NET471REL1

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll

—————————————-

System.Data

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2633.0 built by: NET471REL1LAST_C

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_64/System.Data/v4.0_4.0.0.0__b77a5c561934e089/System.Data.dll

—————————————-

System.Data.resources

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2556.0 built by: NET471REL1

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Data.resources/v4.0_4.0.0.0_ru_b77a5c561934e089/System.Data.resources.dll

—————————————-

System.Transactions

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2556.0 built by: NET471REL1

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_64/System.Transactions/v4.0_4.0.0.0__b77a5c561934e089/System.Transactions.dll

—————————————-

System.EnterpriseServices

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2556.0 built by: NET471REL1

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_64/System.EnterpriseServices/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.EnterpriseServices.dll

—————————————-

Microsoft.Office.Interop.Excel

Версия сборки: 15.0.0.0

Версия Win32: 15.0.4569.1506

CodeBase: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.Office.Interop.Excel/15.0.0.0__71e9bce111e9429c/Microsoft.Office.Interop.Excel.dll

—————————————-

office

Версия сборки: 15.0.0.0

Версия Win32: 15.0.4613.1000

CodeBase: file:///C:/Windows/assembly/GAC_MSIL/office/15.0.0.0__71e9bce111e9429c/office.dll

—————————————-

mscorlib.resources

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2556.0 built by: NET471REL1

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_ru_b77a5c561934e089/mscorlib.resources.dll

—————————————-

System.Windows.Forms.resources

Версия сборки: 4.0.0.0

Версия Win32: 4.7.2556.0 built by: NET471REL1

CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_ru_b77a5c561934e089/System.Windows.Forms.resources.dll

—————————————-

shtucer-igor 04.03.2009 at 12:54

однозначно плюс !

а можно тоже самое но чтобы грузило в установку цен номенклатуры контрагента ?

Reply ↓

softbear 11.03.2009 at 00:25

однозначно плюс !

Reply ↓

COMPER 19.03.2009 at 11:51

не работает. Но красиво

Reply ↓

COMPER 19.03.2009 at 11:53

Pim 19.03.2009 at 19:10

не работает :-(. Самый главный минус всех подобных обработок в том, что они грузят только одну цену в УТ. По крайней мере, я других не видел. Эта обработка похоже тоже грузит только одну цену, да ещё и запоролена…

А что делать, если мне надо загружать сразу четыре разных типов цен в один документ. (Не надо предлагать загружать по-одному — заказчик не хочет).

Reply ↓

egorover 20.03.2009 at 16:26

внимательней, там загрузка идёт по всем типам цен в строку

Reply ↓

olee 23.03.2009 at 00:40

У меня пишет:

{ВнешняяОбработка.ЗагрузкаЦен(7)}: Ошибка при вызове метода контекста (Sheets): Произошла исключительная ситуация (0x8002000b)

по причине:

Произошла исключительная ситуация (0x8002000b)

Reply ↓

egorover 23.03.2009 at 08:03

всё времени нет, укажите имя листа excel Лист1

Reply ↓

olee 23.03.2009 at 10:39

Создался пустой документ с комментарием из какого файла загружен.

Пытаюсь снова загрузить цены — пишет в регистре есть такая строка.

Захожу в регистр сведений — нет такой записи:(

Reply ↓

olee 25.03.2009 at 00:44

Разобрался, все работает!

Очень нужная обработка.

Плюс.

Reply ↓

dev_gen 31.03.2009 at 13:35

Ищу по всему инету такую разработку уже неделю.

Огромное спасибище

Reply ↓

kozakm 11.04.2009 at 08:26

VikFx 28.04.2009 at 11:00

то, что нужно, спасибо

Reply ↓

4emodan 06.05.2009 at 01:22

Большое спасибо! Давно искал.

Reply ↓

4emodan 06.05.2009 at 01:39

А можно сделать, чтоб находило товары не по артикулу, а по коду?

Reply ↓

petrash 06.06.2009 at 11:50

Выручил! Спасибо большое!

Reply ↓

qwertylion@rambler.ru 07.06.2009 at 19:01

Обработка хорошее но вот только документ пустой создается, не подскажите как быть?

Reply ↓

steelrat1976 20.06.2009 at 15:19

нужно обязательно вводить коэффициент, если цена равна базовой, то коэффициент = 1 и тогда поля не пустые. Хотя можно было бы сказать сразу, а то сам часа два мучался пока не понял

Reply ↓

qwertylion@rambler.ru 26.06.2009 at 22:20

при записи в ценообразование пустой лист

Reply ↓

qwertylion@rambler.ru 26.06.2009 at 22:22

все нормально разобрался нужно обязательно вводить коэффициент, если цена равна базовой, то коэффициент = 1 и тогда поля не пустые. Хотя можно было бы сказать сразу, а то сам часа два мучался пока не понял СПАСИБО steelrat1976

Reply ↓

Dimka74 21.07.2009 at 04:29

Пожалуй повторюсь: «А можно сделать, чтоб находило товары не по артикулу, а по коду?»

Reply ↓

sly99 07.10.2009 at 21:25

можно поподробнее, что где писать?

выдает ошибку

по причине:

Произошла исключительная ситуация (0x8002000b)

Reply ↓

cooldanie 06.11.2009 at 15:51

Автор зачет! а можно по наименованию товара а не по артикулу? или сделайте универсально — по коду, по наименованию, по артикулу — и цены не будет вашей обработке. А если 2 колонки цены? опт и розница — 2я и 3я?

Reply ↓

helloworld 09.11.2009 at 14:31

по причине:

Произошла исключительная ситуация (0x8002000b)

Это наверное когда страница Екселя названа не Лист1. Автор, выбрал бы просто первую страницу — Excel.Sheets(1).select();

Reply ↓

labuh 26.11.2009 at 03:38

Автору респект и уважуха.

А как быть с одинаковыми ценами номенклатуры? Обработка не читает одинаковые цены из экселя, — пишет «не нашли артикул ……..»

Reply ↓

labuh 27.11.2009 at 23:51

Здесь что, больше никто не живет???

Reply ↓

meser 06.12.2009 at 22:22

Спасибо, действительно обработка нужная, я бы добавил еще поиск не только по артиклу, но и по коду, наименованию.

Reply ↓

nikser 11.01.2010 at 18:40

Ничего не понимаю . у кого она работает??? документ изменения цен то создался , но пустой .

Reply ↓

Epishko 14.02.2010 at 22:04

Потратил массу времени — вбил артикулы, а в результате создает пустой документ. Жаль убитого воскресенья! Все-таки несмотря на обильные ссылки по поиску — эту задачку так пока никто и не решил качественно.

Reply ↓

Родная 14.04.2010 at 10:56

изначально все получается, но при загрузке, выбранных цен в 1С выдается ошибка

{ВнешняяОбработка.ЗагрузкаЦен(120)}: Ошибка при вызове метода контекста (Записать): Запись с такими ключевыми полями существует! : Закупочная : ******* (Регистр сведений: Цены номенклатуры; Номер строки: 43)

по причине:

Запись с такими ключевыми полями существует! : Закупочная :**********(Регистр сведений: Цены номенклатуры; Номер строки: 43)

при том что справочник «Установка цен номенклатуры» пуст.

Что я не так делаю?

Reply ↓

provnick 24.01.2011 at 21:39

Да уж, было б описание, то немного времени потратить на заполнение формы, оказывается нужно файлик подготовить Excelский, страница Екселя названа должна Лист1 и артикул форматнуть в текстовой, а цены в числовой и заполняется таблица для передачи в документ. Но вопрос вот в чем: как две цены закинуть, поле то одно для выбора цены, у кого получилось? egorover пишет (6) «внимательней, там загрузка идёт по всем типам цен в строку» , но выходит только одна цена, что и как? Да еще пароль, понятно, а то…, что ж мышает второе поле для второй цены сделать, а? хоть бы приходную да расходную. В целом гуд и +, ще б поправить.

Reply ↓

Glenas 28.01.2011 at 14:46

Здравсвуйте. Помогайте, очень надо. Версия 8,2, УТ 11. При открытии выдавал ошибку, поменял ТипыЦенНоменклатуры на ВидыЦен. Обработка открывается, загружает файл xls, корректно находит цены. При попытке загрузки выдаёт {ВнешняяОбработка.ЗагрузкаЦен.МодульОбъекта(90)}: Поле объекта не обнаружено (НеПроводитьНулевыеЗначения) А код модуля запаролен! Что делать, автор? Спасибо

Reply ↓

egorover 29.07.2011 at 10:03

lenka-nes@mail.ru 13.10.2011 at 10:19

спасибо!пригодилось

Reply ↓

wwizard 01.11.2011 at 17:05

Пишет Ошибка при вызове метода контекста (Sheets)

Что делать?

Reply ↓

tgnike 08.11.2011 at 12:30

Она со всеми екселями работате?

Reply ↓

w22u 21.11.2011 at 14:54

Спасибо, протестируем Вашу обработку.

Reply ↓

Belka063 30.11.2011 at 09:30

Работает.Спасибо.Помогло

Reply ↓

AruslanM 07.12.2011 at 10:41

Спасибо за идею, пригодилось.

Reply ↓

Ibrogim 19.12.2011 at 10:51

Спасибо за обработку, помогла как пример

Reply ↓

ASoft 18.01.2012 at 22:14

maratsat 21.01.2012 at 17:44

Во-первых, хорошая обработка. Спасибо. Значительно сокращает время ввода документа.

Во-вторых, предложения по улучшению

Думаю было бы еще лучше, сделать ввод нескольких типов цен за один раз.

Или как вариант сделать возможным добавлять разные типы цен к одному документу.

А иначе получается, что розничные, оптовые и крупнооптовые цены в разных документах, что не удобно.

Reply ↓

wwizard 21.01.2012 at 23:25

(35) так что делать то

Reply ↓

egorover 23.01.2012 at 21:18

(42) так для этого и создавалось, колонки в таблице excel и есть различные типы цен

Reply ↓

egorover 23.01.2012 at 21:19

(43) имя листа в книге excel

Reply ↓

FE_D_OR83 31.01.2012 at 15:11

Спасибо за обработку,сэкономила время. Радует что каждый может доработать под себя.

Кстати неплохо бы в неё добавить возможность указывать цены для номенклатуры с характеристиками.

Reply ↓

fonomo0 31.01.2012 at 15:24

Автор С какими версиями Excel работает ваша отработка?

Reply ↓

AlexxxMksv 29.04.2012 at 12:17

Скажите ваша обработка может проверять соответствие единицы измерения из файла не с базовой единицей, не с единицей хранения остатков, не с единицей для отчетов, не с единицей мест, а с единицами по классификатору?

Reply ↓

TitanLuchs 17.06.2012 at 13:20

Замечательная штука, спасибо автору, помог сэкономить время на написание своего подобного «велосипеда»!

Reply ↓

MyPuK_OLD 19.11.2013 at 15:46

Есть какое-то описание или инструкция по использованию данной обработки? Подойдет ли она для работы с Комплексной автоматизацией редакция 1.1?

Reply ↓

egorover 19.11.2013 at 21:23

Пробуйте, не пробовал, код открыт

Reply ↓

Источник

Ошибка при выборе листа эксель

falselight

21.03.19 — 10:34

Использую обработку для загрузки данных с эксель листов.

На форме появилось дерево, файла эксель и его листов. Выбираю лист.

Жму прочитать, в тз появляются данные.

Но если выбрать другой лист и нажать прочитать, то, выходит ошибка

{ВнешняяОбработка.ЗагрузкаИзExcel_1_2.Форма.Форма.Форма(319)}: Ошибка при вызове метода контекста (Sheets)

Excel.Sheets(ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы).select();

по причине:

Произошла исключительная ситуация (0x800a03ec)

То есть как её исключить? Что бы перечитывался другой выбранный лист?

falselight

1 — 21.03.19 — 10:39

Вижу ошибку, Excel — не определена в этом случае. Наверное в этом дело.

falselight

2 — 21.03.19 — 10:44

Все же ошибка идет, не подскажете почему?

{ВнешняяОбработка.ЗагрузкаИзExcel_1_2.Форма.Форма.Форма(329)}: Ошибка при вызове метода контекста (Sheets)

Excel.Sheets(ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы).select();

по причине:

Произошла исключительная ситуация (0x800a03ec)

Дмитрий

3 — 21.03.19 — 10:44

ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы чему равно?

falselight

4 — 21.03.19 — 10:51

Почему вот это бывает пустое?????

При первой загрузке там COMОбъект

(3) Названию выбранного листа.

falselight

5 — 21.03.19 — 10:51

(4+) Excel.Sheets

falselight

6 — 21.03.19 — 10:57

Точку останова ставлю, вроде как обновляются данные

без точки останова ошибка, как будто COMОбъект не успевает считаться, как тут быть?

falselight

7 — 21.03.19 — 10:58

как с этим быть? Что то не понятно!!!!

falselight

8 — 21.03.19 — 11:06

Почему не видна функция в 1с ТекущееВремя() ?

falselight

9 — 21.03.19 — 11:08

Хотел вот такую функцию использовать, паузу. но она не работает.

Процедура Пауза(Время)

чЧас=0; чМин=0; чСек=0;

ТекущееВремя(чЧас,чМин,чСек);

чТекВремя = чЧас*3600+чМин*60+чСек;

чВремяЗавершения = чТекВремя+Время;

Пока чТекВремя<чВремяЗавершения Цикл

ТекущееВремя(чЧас,чМин,чСек);

чТекВремя = чЧас*3600+чМин*60+чСек;

КонецЦикла;

КонецПроцедуры;

falselight

10 — 21.03.19 — 12:17

Ставлю точку останова на этой строке.

// ЧТЕНИЕ ЛИСТА

Процедура КоманднаяПанель1ПрочитатьДанныеСЛиста(Кнопка)

Если ОбрЗавершена = 1 Тогда

Сообщить(«Данный файл уже был обработан. Перезапустите обработку и выберите новый файл для загрузки!»);

Возврат;

КонецЕсли;

// Необходимый лист

Если Найти(СокрЛП(Строка(ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы)), «xls») > 0 Тогда

Предупреждение(«Выберите конкретный лист для загрузки, а не сам файл!»);

Возврат;

КонецЕсли;

Если Excel = неопределено Тогда

Попытка

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

Исключение

Сообщить(«Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.»);

Возврат;

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

//НашФайл = Excel.Workbooks.Open(ИмяФайла);

Excel.Workbooks.Open(ИмяФайла);

КонецЕсли;

//ПаузаПустымЦиклом(5);

Excel.Sheets(ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы).select();

Читаю листы, у загруженного файла в дерево. Читается как и один так и другой.

Останавливаясь на точке останова. Как только я убираю точку останова, при этих же действиях вываливается ошибка.

{ВнешняяОбработка.ЗагрузкаИзExcel_1_2.Форма.Форма.Форма(333)}: Ошибка при вызове метода контекста (Sheets)

Excel.Sheets(ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы).select();

по причине:

Произошла исключительная ситуация (0x800a03ec)

Что нужно поправить? Подскажите пожалуйста!

falselight

11 — 21.03.19 — 12:21

Решил вопрос.

Нужно было сделать так, —

Excel = Неопределено;

КонецПроцедуры

Ошибка при выборе листа эксель

falselight

21.03.19 — 10:34

Использую обработку для загрузки данных с эксель листов.

На форме появилось дерево, файла эксель и его листов. Выбираю лист.

Жму прочитать, в тз появляются данные.

Но если выбрать другой лист и нажать прочитать, то, выходит ошибка

{ВнешняяОбработка.ЗагрузкаИзExcel_1_2.Форма.Форма.Форма(319)}: Ошибка при вызове метода контекста (Sheets)

Excel.Sheets(ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы).select();

по причине:

Произошла исключительная ситуация (0x800a03ec)

То есть как её исключить? Что бы перечитывался другой выбранный лист?

falselight

1 — 21.03.19 — 10:39

Вижу ошибку, Excel — не определена в этом случае. Наверное в этом дело.

falselight

2 — 21.03.19 — 10:44

Все же ошибка идет, не подскажете почему?

{ВнешняяОбработка.ЗагрузкаИзExcel_1_2.Форма.Форма.Форма(329)}: Ошибка при вызове метода контекста (Sheets)
    Excel.Sheets(ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы).select();

по причине:

Произошла исключительная ситуация (0x800a03ec)

Дмитрий

3 — 21.03.19 — 10:44

ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы чему равно?

falselight

4 — 21.03.19 — 10:51

Почему вот это бывает пустое?????

При первой загрузке там COMОбъект

(3) Названию выбранного листа.

falselight

5 — 21.03.19 — 10:51

(4+) Excel.Sheets

falselight

6 — 21.03.19 — 10:57

Точку останова ставлю, вроде как обновляются данные

без точки останова ошибка, как будто COMОбъект не успевает считаться, как тут быть?

falselight

7 — 21.03.19 — 10:58

как с этим быть? Что то не понятно!!!!

falselight

8 — 21.03.19 — 11:06

Почему не видна функция в 1с ТекущееВремя() ?

falselight

9 — 21.03.19 — 11:08

Хотел вот такую функцию использовать, паузу. но она не работает.

Процедура Пауза(Время) 
чЧас=0; чМин=0; чСек=0; 
ТекущееВремя(чЧас,чМин,чСек); 
чТекВремя = чЧас*3600+чМин*60+чСек; 
чВремяЗавершения = чТекВремя+Время; 
Пока чТекВремя<чВремяЗавершения Цикл 
ТекущееВремя(чЧас,чМин,чСек); 
чТекВремя = чЧас*3600+чМин*60+чСек; 
КонецЦикла; 
КонецПроцедуры;

falselight

10 — 21.03.19 — 12:17

Ставлю точку останова на этой строке.

// ЧТЕНИЕ ЛИСТА

Процедура КоманднаяПанель1ПрочитатьДанныеСЛиста(Кнопка)
    Если ОбрЗавершена = 1 Тогда 
        Сообщить("Данный файл уже был обработан. Перезапустите обработку и выберите новый файл для загрузки!");
        Возврат;
    КонецЕсли;
    //

    // Необходимый лист

    Если Найти(СокрЛП(Строка(ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы)), "xls") > 0 Тогда
        Предупреждение("Выберите конкретный лист для загрузки, а не сам файл!");
        Возврат;
    КонецЕсли;
    //

    Если Excel = неопределено Тогда 
        Попытка
            Excel = новый COMОбъект("Excel.Application");
        Исключение
            Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");
            Возврат;
        КонецПопытки;     
        //НашФайл = Excel.Workbooks.Open(ИмяФайла);

        Excel.Workbooks.Open(ИмяФайла);
    КонецЕсли;
    //

    //ПаузаПустымЦиклом(5);

    //

    Excel.Sheets(ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы).select();

Читаю листы, у загруженного файла в дерево. Читается как и один так и другой.

{ВнешняяОбработка.ЗагрузкаИзExcel_1_2.Форма.Форма.Форма(333)}: Ошибка при вызове метода контекста (Sheets)
    Excel.Sheets(ЭлементыФормы.ДеревоЛистов.ТекущаяСтрока.Листы).select();   
по причине:
Произошла исключительная ситуация (0x800a03ec)

Что нужно поправить? Подскажите пожалуйста!

falselight

11 — 21.03.19 — 12:21

Решил вопрос.

Нужно было сделать так, -

    Excel = Неопределено;
    //

КонецПроцедуры

ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку «Обновить» в браузере.

Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.

shtucer-igor 04.03.2009 at 12:54

однозначно плюс !

а можно тоже самое но чтобы грузило в установку цен номенклатуры контрагента ?

Reply ↓

softbear 11.03.2009 at 00:25

однозначно плюс !

Reply ↓

COMPER 19.03.2009 at 11:51

не работает. Но красиво

Reply ↓

COMPER 19.03.2009 at 11:53

Pim 19.03.2009 at 19:10

Reply ↓

egorover 20.03.2009 at 16:26

внимательней, там загрузка идёт по всем типам цен в строку

Reply ↓

olee 23.03.2009 at 00:40

У меня пишет:

по причине:

Произошла исключительная ситуация (0x8002000b)

Reply ↓

egorover 23.03.2009 at 08:03

всё времени нет, укажите имя листа excel Лист1

Reply ↓

olee 23.03.2009 at 10:39

Создался пустой документ с комментарием из какого файла загружен.

Пытаюсь снова загрузить цены — пишет в регистре есть такая строка.

Захожу в регистр сведений — нет такой записи:(

Reply ↓

olee 25.03.2009 at 00:44

Разобрался, все работает!

Очень нужная обработка.

Плюс.

Reply ↓

dev_gen 31.03.2009 at 13:35

Ищу по всему инету такую разработку уже неделю.

Огромное спасибище

Reply ↓

kozakm 11.04.2009 at 08:26

VikFx 28.04.2009 at 11:00

то, что нужно, спасибо

Reply ↓

4emodan 06.05.2009 at 01:22

Большое спасибо! Давно искал.

Reply ↓

4emodan 06.05.2009 at 01:39

А можно сделать, чтоб находило товары не по артикулу, а по коду?

Reply ↓

petrash 06.06.2009 at 11:50

Выручил! Спасибо большое!

Reply ↓

qwertylion@rambler.ru 07.06.2009 at 19:01

Обработка хорошее но вот только документ пустой создается, не подскажите как быть?

Reply ↓

steelrat1976 20.06.2009 at 15:19

Reply ↓

qwertylion@rambler.ru 26.06.2009 at 22:20

при записи в ценообразование пустой лист

Reply ↓

qwertylion@rambler.ru 26.06.2009 at 22:22

Reply ↓

Dimka74 21.07.2009 at 04:29

Пожалуй повторюсь: «А можно сделать, чтоб находило товары не по артикулу, а по коду?»

Reply ↓

sly99 07.10.2009 at 21:25

можно поподробнее, что где писать?

выдает ошибку

по причине:

Произошла исключительная ситуация (0x8002000b)

Reply ↓

cooldanie 06.11.2009 at 15:51

Reply ↓

helloworld 09.11.2009 at 14:31

по причине:

Произошла исключительная ситуация (0x8002000b)

Это наверное когда страница Екселя названа не Лист1. Автор, выбрал бы просто первую страницу — Excel.Sheets(1).select();

Reply ↓

labuh 26.11.2009 at 03:38

Автору респект и уважуха.

Reply ↓

labuh 27.11.2009 at 23:51

Здесь что, больше никто не живет???

Reply ↓

meser 06.12.2009 at 22:22

Reply ↓

nikser 11.01.2010 at 18:40

Ничего не понимаю . у кого она работает??? документ изменения цен то создался , но пустой .

Reply ↓

Epishko 14.02.2010 at 22:04

Reply ↓

Родная 14.04.2010 at 10:56

изначально все получается, но при загрузке, выбранных цен в 1С выдается ошибка

по причине:

при том что справочник «Установка цен номенклатуры» пуст.

Что я не так делаю?

Reply ↓

provnick 24.01.2011 at 21:39

Reply ↓

Glenas 28.01.2011 at 14:46

Reply ↓

egorover 29.07.2011 at 10:03

lenka-nes@mail.ru 13.10.2011 at 10:19

спасибо!пригодилось

Reply ↓

wwizard 01.11.2011 at 17:05

Пишет Ошибка при вызове метода контекста (Sheets)

Что делать?

Reply ↓

tgnike 08.11.2011 at 12:30

Она со всеми екселями работате?

Reply ↓

w22u 21.11.2011 at 14:54

Спасибо, протестируем Вашу обработку.

Reply ↓

Belka063 30.11.2011 at 09:30

Работает.Спасибо.Помогло

Reply ↓

AruslanM 07.12.2011 at 10:41

Спасибо за идею, пригодилось.

Reply ↓

Ibrogim 19.12.2011 at 10:51

Спасибо за обработку, помогла как пример

Reply ↓

ASoft 18.01.2012 at 22:14

maratsat 21.01.2012 at 17:44

Во-первых, хорошая обработка. Спасибо. Значительно сокращает время ввода документа.

Во-вторых, предложения по улучшению

Думаю было бы еще лучше, сделать ввод нескольких типов цен за один раз.

Или как вариант сделать возможным добавлять разные типы цен к одному документу.

А иначе получается, что розничные, оптовые и крупнооптовые цены в разных документах, что не удобно.

Reply ↓

wwizard 21.01.2012 at 23:25

(35) так что делать то

Reply ↓

egorover 23.01.2012 at 21:18

(42) так для этого и создавалось, колонки в таблице excel и есть различные типы цен

Reply ↓

egorover 23.01.2012 at 21:19

(43) имя листа в книге excel

Reply ↓

FE_D_OR83 31.01.2012 at 15:11

Спасибо за обработку,сэкономила время. Радует что каждый может доработать под себя.

Кстати неплохо бы в неё добавить возможность указывать цены для номенклатуры с характеристиками.

Reply ↓

fonomo0 31.01.2012 at 15:24

Автор С какими версиями Excel работает ваша отработка?

Reply ↓

AlexxxMksv 29.04.2012 at 12:17

Reply ↓

TitanLuchs 17.06.2012 at 13:20

Замечательная штука, спасибо автору, помог сэкономить время на написание своего подобного «велосипеда»!

Reply ↓

MyPuK_OLD 19.11.2013 at 15:46

Reply ↓

egorover 19.11.2013 at 21:23

Пробуйте, не пробовал, код открыт

Reply ↓

Здравствуйте! Подскажите, пожалуйста! Загружаю из Excel данные, хочу обратиться к именованной области, выдает следующую ошибку: «Ошибка при вызове метода контекста (Cells): Произошла исключительная ситуация (0x800a03ec)
ФайлСтрок = Excel.Cells(2,1).SpecialCells(21).Row;
по причине:
Произошла исключительная ситуация (0x800a03ec)»

Процедура ОсновныеДействияФормыЗагрузить(Кнопка)

НомерКолонкиАртикул = ЭлементыФормы.ТабличныйДокумент.Область(«R2C1»;
НомерКолонкиНаименованияТовара = ЭлементыФормы.ТабличныйДокумент.Область(«R2C2»;
НомерКолонкиЕдиницаИзмерения = ЭлементыФормы.ТабличныйДокумент.Область(«R2C3»;
НомерКолонкиСтрана = ЭлементыФормы.ТабличныйДокумент.Область(«R2C4»;

//В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
Excel = новый COMОбъект(«Excel.Application»;

Версия = Лев(Excel.Version,Найти(Excel.Version,».»-1);
Если Версия = «8» тогда
ФайлСтрок = Excel.Cells.CurrentRegion.Rows.Count;
ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
Иначе
ФайлСтрок = Excel.Cells(2,1).SpecialCells(21).Row;
ФайлКолонок = Excel.Cells(2,1).SpecialCells(21).Column;
Конецесли;

// Выбираем данные из файла
Для а = Excel.Cells(2,1).SpecialCells(21).Row по ФайлСтрок Цикл

//Полуим данные из соответсвующих ячеек
Артикул = СокрЛП(Excel.Cells(а,Артикул).Value);
НаименованиеТовара = СокрЛП(Excel.Cells(а,НомерКолонкиНаименованияТовара).Value);
ЕдиницаИзмерения = СокрЛП(Excel.Cells(а,НомерКолонкиЕдиницаИзмерения).Value);

Товар = Справочники.Номенклатура.ПустаяСсылка();

// Ищем товар в справочнике по коду
Товар = Справочники.Номенклатура.НайтиПоКоду.Артикул;

// Если не нашли по коду, то ищем по наименованию
Если Товар.Пустая() Тогда
Товар = Справочники.Номенклатура.НайтиПоНаименованию.Наименование;
Конецесли;

//Если не нашли создаем новый
Если Товар.Пустая() Тогда
Товар = Справочники.Номенклатура.СоздатьЭлемент();
Товар.Наименование = НаименованиеТовара;
Товар.Артикул = Артикул;
Товар.БазоваяЕдиницаИзмерения = ЕдиницаИзмерения;
Товар.СтранаПроисхождения = НомерКолонкиСтрана;
Товар.Записать();
Конецесли;
КонецЦикла;

КонецПроцедуры

Народ, помогите, не могу понять почему на одном и том компе под разными пользователями работает и не работает, вываливает ошибку «Ошибка при вызове метода контекста (Sheets): Произошла исключительная ситуация (0x8002000b)»? гуглом пользоваться умею, но ответа так и не нашел.

поправка, ексель 2010, работаем на терминалах по РДП, есть домен.

Sheets — лист книги. может обращается к несущствующему?

коллекция листов вообще-то

от этого сильно смысл последнего предложения поменялся? код покажи-то. и где именно валится

в смысле, от того что ты неправильное определение свойству дала? кстати, автор, Sheets — это не метод

самое интересное, что под одним пользователем работает нормально, а под другим пользователем вываливает ошибку

Тэги: 1С 8

Комментарии доступны только авторизированным пользователям

shtucer-igor 04.03.2009 at 12:54

однозначно плюс !

а можно тоже самое но чтобы грузило в установку цен номенклатуры контрагента ?

Reply ↓

softbear 11.03.2009 at 00:25

однозначно плюс !

Reply ↓

COMPER 19.03.2009 at 11:51

не работает. Но красиво

Reply ↓

COMPER 19.03.2009 at 11:53

Pim 19.03.2009 at 19:10

Reply ↓

egorover 20.03.2009 at 16:26

внимательней, там загрузка идёт по всем типам цен в строку

Reply ↓

olee 23.03.2009 at 00:40

У меня пишет:

по причине:

Произошла исключительная ситуация (0x8002000b)

Reply ↓

egorover 23.03.2009 at 08:03

всё времени нет, укажите имя листа excel Лист1

Reply ↓

olee 23.03.2009 at 10:39

Создался пустой документ с комментарием из какого файла загружен.

Пытаюсь снова загрузить цены — пишет в регистре есть такая строка.

Захожу в регистр сведений — нет такой записи:(

Reply ↓

olee 25.03.2009 at 00:44

Разобрался, все работает!

Очень нужная обработка.

Плюс.

Reply ↓

dev_gen 31.03.2009 at 13:35

Ищу по всему инету такую разработку уже неделю.

Огромное спасибище

Reply ↓

kozakm 11.04.2009 at 08:26

VikFx 28.04.2009 at 11:00

то, что нужно, спасибо

Reply ↓

4emodan 06.05.2009 at 01:22

Большое спасибо! Давно искал.

Reply ↓

4emodan 06.05.2009 at 01:39

А можно сделать, чтоб находило товары не по артикулу, а по коду?

Reply ↓

petrash 06.06.2009 at 11:50

Выручил! Спасибо большое!

Reply ↓

qwertylion@rambler.ru 07.06.2009 at 19:01

Обработка хорошее но вот только документ пустой создается, не подскажите как быть?

Reply ↓

steelrat1976 20.06.2009 at 15:19

Reply ↓

qwertylion@rambler.ru 26.06.2009 at 22:20

при записи в ценообразование пустой лист

Reply ↓

qwertylion@rambler.ru 26.06.2009 at 22:22

Reply ↓

Dimka74 21.07.2009 at 04:29

Пожалуй повторюсь: «А можно сделать, чтоб находило товары не по артикулу, а по коду?»

Reply ↓

sly99 07.10.2009 at 21:25

можно поподробнее, что где писать?

выдает ошибку

по причине:

Произошла исключительная ситуация (0x8002000b)

Reply ↓

cooldanie 06.11.2009 at 15:51

Reply ↓

helloworld 09.11.2009 at 14:31

по причине:

Произошла исключительная ситуация (0x8002000b)

Это наверное когда страница Екселя названа не Лист1. Автор, выбрал бы просто первую страницу — Excel.Sheets(1).select();

Reply ↓

labuh 26.11.2009 at 03:38

Автору респект и уважуха.

Reply ↓

labuh 27.11.2009 at 23:51

Здесь что, больше никто не живет???

Reply ↓

meser 06.12.2009 at 22:22

Reply ↓

nikser 11.01.2010 at 18:40

Ничего не понимаю . у кого она работает??? документ изменения цен то создался , но пустой .

Reply ↓

Epishko 14.02.2010 at 22:04

Reply ↓

Родная 14.04.2010 at 10:56

изначально все получается, но при загрузке, выбранных цен в 1С выдается ошибка

по причине:

при том что справочник «Установка цен номенклатуры» пуст.

Что я не так делаю?

Reply ↓

provnick 24.01.2011 at 21:39

Reply ↓

Glenas 28.01.2011 at 14:46

Reply ↓

egorover 29.07.2011 at 10:03

lenka-nes@mail.ru 13.10.2011 at 10:19

спасибо!пригодилось

Reply ↓

wwizard 01.11.2011 at 17:05

Пишет Ошибка при вызове метода контекста (Sheets)

Что делать?

Reply ↓

tgnike 08.11.2011 at 12:30

Она со всеми екселями работате?

Reply ↓

w22u 21.11.2011 at 14:54

Спасибо, протестируем Вашу обработку.

Reply ↓

Belka063 30.11.2011 at 09:30

Работает.Спасибо.Помогло

Reply ↓

AruslanM 07.12.2011 at 10:41

Спасибо за идею, пригодилось.

Reply ↓

Ibrogim 19.12.2011 at 10:51

Спасибо за обработку, помогла как пример

Reply ↓

ASoft 18.01.2012 at 22:14

maratsat 21.01.2012 at 17:44

Во-первых, хорошая обработка. Спасибо. Значительно сокращает время ввода документа.

Во-вторых, предложения по улучшению

Думаю было бы еще лучше, сделать ввод нескольких типов цен за один раз.

Или как вариант сделать возможным добавлять разные типы цен к одному документу.

А иначе получается, что розничные, оптовые и крупнооптовые цены в разных документах, что не удобно.

Reply ↓

wwizard 21.01.2012 at 23:25

(35) так что делать то

Reply ↓

egorover 23.01.2012 at 21:18

(42) так для этого и создавалось, колонки в таблице excel и есть различные типы цен

Reply ↓

egorover 23.01.2012 at 21:19

(43) имя листа в книге excel

Reply ↓

FE_D_OR83 31.01.2012 at 15:11

Спасибо за обработку,сэкономила время. Радует что каждый может доработать под себя.

Кстати неплохо бы в неё добавить возможность указывать цены для номенклатуры с характеристиками.

Reply ↓

fonomo0 31.01.2012 at 15:24

Автор С какими версиями Excel работает ваша отработка?

Reply ↓

AlexxxMksv 29.04.2012 at 12:17

Reply ↓

TitanLuchs 17.06.2012 at 13:20

Замечательная штука, спасибо автору, помог сэкономить время на написание своего подобного «велосипеда»!

Reply ↓

MyPuK_OLD 19.11.2013 at 15:46

Reply ↓

egorover 19.11.2013 at 21:23

Пробуйте, не пробовал, код открыт

Reply ↓

Автор beztrud, 19 июн 2014, 23:26

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

Цитировать
1. Создаем реквизит формы Таблица
2. Заполняем ее на клиенте (отключаемся от ADO)

А если без реквизита Таблица — то я так понимаю можно использовать таблицу значений, а затем в табличную часть грузить из нее?

Если долго всматриваться в учебник…то в голову может прийти мысль его открыть!

Цитировать
Все что надо это:
1. Начальная строка
2. Количество колонок
3. Признак когда остановиться

Можете привести код с пояснениями, пожалуйста.

Попытка ФайлЭксель = ПолучитьCOMОбъект(ИмяФайла); Исключение ПоказатьИнформациюОбОшибке(ИнформацияОбОшибке()); Отказ = Истина; Возврат; КонецПопытки; СписокИмпорта.Очистить(); счСтроки = НачальнаяСтрока; НомСтр = 0; Пока ИСТИНА Цикл НомСтр = НомСтр + 1; ОбработкаПрерыванияПользователя(); ПроверочнаяЯчейка = СокрЛП(ФайлЭксель.Sheets(1).Cells(СчСтроки,1).Value); Если ПроверочнаяЯчейка = "#" Тогда Прервать; КонецЕсли; Если ПроверочнаяЯчейка = "" Тогда Прервать; КонецЕсли; Состояние("Загрузка: строка №"+счСтроки); НоваяСтрока = СписокИмпорта.Добавить(); НоваяСтрока.НомерСтроки = НомСтр; Для Ш=1 По СписокИмпорта.Колонки.Количество()-1 Цикл мКолонка = СписокИмпорта.Колонки.Получить(Ш); ЗначениеЯчейки = ФайлЭксель.Sheets(1).Cells(СчСтроки,Ш).Value; ЗаполнитьЗначениеПоТипуКолонки(ЗначениеЯчейки, НоваяСтрока[мКолонка.Имя], мКолонка); ОтформатироватьЗначениеПоля(ЗначениеЯчейки, НоваяСтрока[мКолонка.Имя], Ш); //очистим от ненужных символов и пр. КонецЦикла; счСтроки = счСтроки + 1; КонецЦикла; ФайлЭксель.Application.Quit();

Получил помощь — скажи СПАСИБО.
Разобрался сам — расскажи другим.

ФайлЭксель = ПолучитьCOMОбъект(ИмяФайла);
Если выбираем xls, то всё нормально, ну а если xlsx — то
{Обработка.ВычислениеПластика.Форма.Форма.Форма(16)}: Ошибка при вызове метода контекста (ПолучитьCOMОбъект)
ФайлЭксель = ПолучитьCOMОбъект(ИмяФайла);
по причине:
Ошибка получения объекта COM: -2147467259(0x80004005): Неопознанная ошибка

Добавлено: 20 июн 2014, 21:31

Кстати эта ошибка появляется при повторном выборе файла. При первом выборе ошибки нет, хоть и подгружает дольше, чем xls. Может быть проблема в

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

Добавлено: 20 июн 2014, 21:59

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

Да такое поведение нормальное для конструкции

ПолучитьCOMОбъект(ИмяФайла); если открыть файл закрыть и тут же снова открыть, на медленных компах процесс не успевает завершиться и ПолучитьCOMОбъект() подключается к существующему процессу снова, ну а процесс то уже не рабочий…

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

Если долго всматриваться в учебник…то в голову может прийти мысль его открыть!

cska-fanat-kz

ПроверочнаяЯчейка = СокрЛП(ФайлЭксель.Sheets(1).Cells(СчСтроки,1).Value);
Выдает
{Обработка.ВычислениеПластика.Форма.Форма.Форма(72)}: Ошибка при вызове метода контекста (Cells)
ПроверочнаяЯчейка = Эксель.Sheets(1).Cells(СчСтроки,2).Value;
по причине:
Произошла исключительная ситуация (0x800a03ec)

Dethmontt

ЦитироватьДля файлов, указываемых в качестве параметра данной функции, должно быть установлено соответствие расширения имени файла и класса COM.

Это как?

Если долго всматриваться в учебник…то в голову может прийти мысль его открыть!

cska-fanat-kz

ЗаполнитьЗначениеПоТипуКолонки(ЗначениеЯчейки, НоваяСтрока[мКолонка.Имя], мКолонка);
А это что за функция?

Добавлено: 21 июн 2014, 08:43

Вернемся все-таки к ADO. Уважаемый Dethmontt просьба помочь. У меня на форме есть ТабличнаяЧасть.Вычисления. Реквизиты этой табличной части — ЧастьИзделия, ВысотаФасада, ШиринаФасада, КоличествоФасадов. Есть файл эксель без наименования столбцов в первой строке, т.е в первой строке уже находятся данные. Структура файла эксель всегда одинакова во второй колонке файла эксель всегда содержится ЧастьИзделия, в четвертой колонке всегда ВысотаФасада, в пятой — ШиринаФасада и в шестой — КоличествоФасадов. Вы писали — 1. Создаем реквизит формы Таблица — т.е нужно создать на форме ТабличныйДокумент с именем Таблица и грузить в него? Или как?
Все что пришло мне в голову это выбрать файл на клиенте а на сервере считать с него данные и передать на клиент. Но вот моя функция с переменной СтрокаТабличнойЧасти ругается, хоть и грузит данные. У меня к Вам просьба, если не сложно, выложите пожалуйста клиентскую и серверную процедуры для загрузки файла, применимо к моим реквизитам.

Получил помощь — скажи СПАСИБО.
Разобрался сам — расскажи другим.

Источник

shtucer-igor 04.03.2009 at 12:54

однозначно плюс !

а можно тоже самое но чтобы грузило в установку цен номенклатуры контрагента ?

Reply ↓

softbear 11.03.2009 at 00:25

однозначно плюс !

Reply ↓

COMPER 19.03.2009 at 11:51

не работает. Но красиво

Reply ↓

COMPER 19.03.2009 at 11:53

Pim 19.03.2009 at 19:10

Reply ↓

egorover 20.03.2009 at 16:26

внимательней, там загрузка идёт по всем типам цен в строку

Reply ↓

olee 23.03.2009 at 00:40

У меня пишет:

по причине:

Произошла исключительная ситуация (0x8002000b)

Reply ↓

egorover 23.03.2009 at 08:03

всё времени нет, укажите имя листа excel Лист1

Reply ↓

olee 23.03.2009 at 10:39

Создался пустой документ с комментарием из какого файла загружен.

Пытаюсь снова загрузить цены — пишет в регистре есть такая строка.

Захожу в регистр сведений — нет такой записи:(

Reply ↓

olee 25.03.2009 at 00:44

Разобрался, все работает!

Очень нужная обработка.

Плюс.

Reply ↓

dev_gen 31.03.2009 at 13:35

Ищу по всему инету такую разработку уже неделю.

Огромное спасибище

Reply ↓

kozakm 11.04.2009 at 08:26

VikFx 28.04.2009 at 11:00

то, что нужно, спасибо

Reply ↓

4emodan 06.05.2009 at 01:22

Большое спасибо! Давно искал.

Reply ↓

4emodan 06.05.2009 at 01:39

А можно сделать, чтоб находило товары не по артикулу, а по коду?

Reply ↓

petrash 06.06.2009 at 11:50

Выручил! Спасибо большое!

Reply ↓

qwertylion@rambler.ru 07.06.2009 at 19:01

Обработка хорошее но вот только документ пустой создается, не подскажите как быть?

Reply ↓

steelrat1976 20.06.2009 at 15:19

Reply ↓

qwertylion@rambler.ru 26.06.2009 at 22:20

при записи в ценообразование пустой лист

Reply ↓

qwertylion@rambler.ru 26.06.2009 at 22:22

Reply ↓

Dimka74 21.07.2009 at 04:29

Пожалуй повторюсь: «А можно сделать, чтоб находило товары не по артикулу, а по коду?»

Reply ↓

sly99 07.10.2009 at 21:25

можно поподробнее, что где писать?

выдает ошибку

по причине:

Произошла исключительная ситуация (0x8002000b)

Reply ↓

cooldanie 06.11.2009 at 15:51

Reply ↓

helloworld 09.11.2009 at 14:31

по причине:

Произошла исключительная ситуация (0x8002000b)

Это наверное когда страница Екселя названа не Лист1. Автор, выбрал бы просто первую страницу — Excel.Sheets(1).select();

Reply ↓

labuh 26.11.2009 at 03:38

Автору респект и уважуха.

Reply ↓

labuh 27.11.2009 at 23:51

Здесь что, больше никто не живет???

Reply ↓

meser 06.12.2009 at 22:22

Reply ↓

nikser 11.01.2010 at 18:40

Ничего не понимаю . у кого она работает??? документ изменения цен то создался , но пустой .

Reply ↓

Epishko 14.02.2010 at 22:04

Reply ↓

Родная 14.04.2010 at 10:56

изначально все получается, но при загрузке, выбранных цен в 1С выдается ошибка

по причине:

при том что справочник «Установка цен номенклатуры» пуст.

Что я не так делаю?

Reply ↓

provnick 24.01.2011 at 21:39

Reply ↓

Glenas 28.01.2011 at 14:46

Reply ↓

egorover 29.07.2011 at 10:03

lenka-nes@mail.ru 13.10.2011 at 10:19

спасибо!пригодилось

Reply ↓

wwizard 01.11.2011 at 17:05

Пишет Ошибка при вызове метода контекста (Sheets)

Что делать?

Reply ↓

tgnike 08.11.2011 at 12:30

Она со всеми екселями работате?

Reply ↓

w22u 21.11.2011 at 14:54

Спасибо, протестируем Вашу обработку.

Reply ↓

Belka063 30.11.2011 at 09:30

Работает.Спасибо.Помогло

Reply ↓

AruslanM 07.12.2011 at 10:41

Спасибо за идею, пригодилось.

Reply ↓

Ibrogim 19.12.2011 at 10:51

Спасибо за обработку, помогла как пример

Reply ↓

ASoft 18.01.2012 at 22:14

maratsat 21.01.2012 at 17:44

Во-первых, хорошая обработка. Спасибо. Значительно сокращает время ввода документа.

Во-вторых, предложения по улучшению

Думаю было бы еще лучше, сделать ввод нескольких типов цен за один раз.

Или как вариант сделать возможным добавлять разные типы цен к одному документу.

А иначе получается, что розничные, оптовые и крупнооптовые цены в разных документах, что не удобно.

Reply ↓

wwizard 21.01.2012 at 23:25

(35) так что делать то

Reply ↓

egorover 23.01.2012 at 21:18

(42) так для этого и создавалось, колонки в таблице excel и есть различные типы цен

Reply ↓

egorover 23.01.2012 at 21:19

(43) имя листа в книге excel

Reply ↓

FE_D_OR83 31.01.2012 at 15:11

Спасибо за обработку,сэкономила время. Радует что каждый может доработать под себя.

Кстати неплохо бы в неё добавить возможность указывать цены для номенклатуры с характеристиками.

Reply ↓

fonomo0 31.01.2012 at 15:24

Автор С какими версиями Excel работает ваша отработка?

Reply ↓

AlexxxMksv 29.04.2012 at 12:17

Reply ↓

TitanLuchs 17.06.2012 at 13:20

Замечательная штука, спасибо автору, помог сэкономить время на написание своего подобного «велосипеда»!

Reply ↓

MyPuK_OLD 19.11.2013 at 15:46

Reply ↓

egorover 19.11.2013 at 21:23

Пробуйте, не пробовал, код открыт

Reply ↓

Источник

I have the following code to open a workbook and keep just one sheet:

//Get a new workbook.
oWB = app.Workbooks.Add(Missing.Value);

int len = oWB.Sheets.Count;

for (int i = 1; i < len; i++)
{
    ((Worksheet)oWB.Sheets[i]).Delete();
}

oSheet = (Microsoft.Office.Interop.Excel.Worksheet)oWB.ActiveSheet;

This code has worked for many years in many client configurations.

For some reason, I have a customer with excel 2013 (in Hebrew), and on his machine I get the following exception:

System.Runtime.InteropServices.COMException (0x8002000B): Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))
   at Microsoft.Office.Interop.Excel.Sheets.get__Default(Object Index)
   at IOSIGHT.Win.ActiveReports.ExcelHelper.StartExcel()

If I understand the situation, it seems that for some reason the workbook was left with no sheets,
so then call to oWb.ActiveSheet throws an exception.
Any idea what caused this?

And yes I saw other posts on the same exception, but my code does not match their scenarios.

Источник

Question

Answers

Question

Answers

Ошибка при выборе листа эксель

Ошибка при выборе листа эксель