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

Здравствуйте! Подскажите, пожалуйста! Загружаю из 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);

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

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

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

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

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

   vechiy

16.03.11 — 18:34

Загружаем данные из некой обработки, при чтении значения ячейки получаем следующее:

{Форма.Форма(118)}: Ошибка при вызове метода контекста (Cells): Произошла исключительная ситуация (0x800a03ec)

       сФИО    = фЭксель.Sheets(нСтраница).Cells(нСтрока-1,КолонкаФИО).Value;      

по причине:

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

Обработка то работает, то нет. Может зависеть от версии офиса?

Кто сталкивался с подобной ошибкой?

Здравствуйте! Подскажите, пожалуйста! Загружаю из 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);

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

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

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

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

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

I found a possible solution here: http://www.made4dotnet.com/Default.aspx?tabid=141&aid=15

Edit:

If you automate Microsoft Excel with Microsoft Visual Basic .NET, Microsoft Visual C# .NET, or Microsoft Visual C++, you may receive the following errors when calling certain methods because the machine has the locale set to something other than US English (locale ID or LCID 1033):

Exception from HRESULT: 0x800A03EC

and/or

Old format or invalid type library

SOLUTION 1:


To get around this error you can set CurrentCulture to en-US when executing code related to Excel and reset back to your originale by using these 2 functions.

//declare a variable to hold the CurrentCulture
System.Globalization.CultureInfo oldCI;
//get the old CurrenCulture and set the new, en-US
void SetNewCurrentCulture()
{
  oldCI = System.Threading.Thread.CurrentThread.CurrentCulture;
  System.Threading.Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("en-US");
}
//reset Current Culture back to the originale
void ResetCurrentCulture()
{
  System.Threading.Thread.CurrentThread.CurrentCulture = oldCI;
}

SOLUTION 2:


Another solution that could work, create a 1033 directory under Microsoft OfficeOffice11 (or your corresponding office-version), copy excel.exe to the 1033 directory, and rename it to xllex.dll.

Although you might solve the problem using one off these solutions, when you call the Excel object model in locales other than US English, the Excel object model can act differently and your code can fail in ways you may not have thought of. For example, you might have code that sets the value of a range to a date:

yourRange.Value2 = «10/10/09»

Depending on the locale this code can act differently resulting in Excel putting into the range any of the following values:

October 10, 2009
September 10, 2009
October 9, 2010

I found a possible solution here: http://www.made4dotnet.com/Default.aspx?tabid=141&aid=15

Edit:

If you automate Microsoft Excel with Microsoft Visual Basic .NET, Microsoft Visual C# .NET, or Microsoft Visual C++, you may receive the following errors when calling certain methods because the machine has the locale set to something other than US English (locale ID or LCID 1033):

Exception from HRESULT: 0x800A03EC

and/or

Old format or invalid type library

SOLUTION 1:


To get around this error you can set CurrentCulture to en-US when executing code related to Excel and reset back to your originale by using these 2 functions.

//declare a variable to hold the CurrentCulture
System.Globalization.CultureInfo oldCI;
//get the old CurrenCulture and set the new, en-US
void SetNewCurrentCulture()
{
  oldCI = System.Threading.Thread.CurrentThread.CurrentCulture;
  System.Threading.Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("en-US");
}
//reset Current Culture back to the originale
void ResetCurrentCulture()
{
  System.Threading.Thread.CurrentThread.CurrentCulture = oldCI;
}

SOLUTION 2:


Another solution that could work, create a 1033 directory under Microsoft OfficeOffice11 (or your corresponding office-version), copy excel.exe to the 1033 directory, and rename it to xllex.dll.

Although you might solve the problem using one off these solutions, when you call the Excel object model in locales other than US English, the Excel object model can act differently and your code can fail in ways you may not have thought of. For example, you might have code that sets the value of a range to a date:

yourRange.Value2 = «10/10/09»

Depending on the locale this code can act differently resulting in Excel putting into the range any of the following values:

October 10, 2009
September 10, 2009
October 9, 2010

Форум 1С : Все вопросы » Загрузка данных в 1С Загрузка данных в 1С

ЮлияЮ
25.05.2018 08:27 Прочитано: 3882

При загрузке данных из Eхcel выдаёт ошибку «Произошла исключительная ошибка (0х800а03ес)», что сделать? Я новичок, ещё не очень разбираюсь в программе.

Yandex
Возможно, вас также заинтересует

Реклама на портале

all4cf
28.05.2018 10:57 Ответ № 1

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

Подсказка: Для быстрого поиска ответов — используйте ‘Поиск’

Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.

[ Главная | FAQ: Все | 7.х | 8.х | 8.2 УП | 8.3 | Видео | Files | Forum | Freelance | Поиск | Реклама на HelpF.pro | Обратная связь ]
HelpF.pro [old Help1C.com] 2009-2023 Все материалы, размещенные на сайте, добавлены посетителями сайта или взяты из свободных источников. Подробнее…

Icon Ex Номер ошибки: Ошибка 0x800A03EC
Название ошибки: Excel ? Error Object Returned Error Code 0X800A03Ec
Описание ошибки: Ошибка 0x800A03EC: Возникла ошибка в приложении Microsoft Excel. Приложение будет закрыто. Приносим извинения за неудобства.
Разработчик: Microsoft Corporation
Программное обеспечение: Microsoft Excel
Относится к: Windows XP, Vista, 7, 8, 10, 11

Проверка «Excel ? Error Object Returned Error Code 0X800A03Ec»

Обычно люди ссылаются на «Excel ? Error Object Returned Error Code 0X800A03Ec» как на ошибку времени выполнения (ошибку). Разработчики, такие как Microsoft Corporation, обычно проходят через несколько контрольных точек перед запуском программного обеспечения, такого как Microsoft Excel. К сожалению, такие проблемы, как ошибка 0x800A03EC, могут быть пропущены, и программное обеспечение будет содержать эти проблемы при выпуске.

Некоторые пользователи могут столкнуться с сообщением «Excel ? Error Object Returned Error Code 0X800A03Ec» при использовании Microsoft Excel. Когда это происходит, конечные пользователи могут сообщить Microsoft Corporation о наличии ошибок «Excel ? Error Object Returned Error Code 0X800A03Ec». Разработчик сможет исправить свой исходный код и выпустить обновление на рынке. Эта ситуация происходит из-за обновления программного обеспечения Microsoft Excel является одним из решений ошибок 0x800A03EC ошибок и других проблем.

Как триггеры Runtime Error 0x800A03EC и что это такое?

Сбой устройства или Microsoft Excel обычно может проявляться с «Excel ? Error Object Returned Error Code 0X800A03Ec» в качестве проблемы во время выполнения. Следующие три наиболее значимые причины ошибок выполнения ошибки 0x800A03EC включают в себя:

Ошибка 0x800A03EC Crash — Ошибка 0x800A03EC является хорошо известной, которая происходит, когда неправильная строка кода компилируется в исходный код программы. Это возникает, когда Microsoft Excel не реагирует на ввод должным образом или не знает, какой вывод требуется взамен.

Утечка памяти «Excel ? Error Object Returned Error Code 0X800A03Ec» — если есть утечка памяти в Microsoft Excel, это может привести к тому, что ОС будет выглядеть вялой. Есть некоторые потенциальные проблемы, которые могут быть причиной получения проблем во время выполнения, с неправильным кодированием, приводящим к бесконечным циклам.

Ошибка 0x800A03EC Logic Error — Логическая ошибка вызывает неправильный вывод, даже если пользователь дал действительные входные данные. Это видно, когда исходный код Microsoft Corporation содержит недостаток в обработке данных.

Такие проблемы Excel ? Error Object Returned Error Code 0X800A03Ec обычно вызваны повреждением файла, связанного с Microsoft Excel, или, в некоторых случаях, его случайным или намеренным удалением. Основной способ решить эти проблемы вручную — заменить файл Microsoft Corporation новой копией. Более того, поддержание чистоты реестра и его оптимизация позволит предотвратить указание неверного пути к файлу (например Excel ? Error Object Returned Error Code 0X800A03Ec) и ссылок на расширения файлов. По этой причине мы рекомендуем регулярно выполнять очистку сканирования реестра.

Типичные ошибки Excel ? Error Object Returned Error Code 0X800A03Ec

Частичный список ошибок Excel ? Error Object Returned Error Code 0X800A03Ec Microsoft Excel:

  • «Ошибка Excel ? Error Object Returned Error Code 0X800A03Ec. «
  • «Недопустимая программа Win32: Excel ? Error Object Returned Error Code 0X800A03Ec»
  • «Извините, Excel ? Error Object Returned Error Code 0X800A03Ec столкнулся с проблемой. «
  • «К сожалению, мы не можем найти Excel ? Error Object Returned Error Code 0X800A03Ec. «
  • «Отсутствует файл Excel ? Error Object Returned Error Code 0X800A03Ec.»
  • «Проблема при запуске приложения: Excel ? Error Object Returned Error Code 0X800A03Ec. «
  • «Не удается запустить Excel ? Error Object Returned Error Code 0X800A03Ec. «
  • «Отказ Excel ? Error Object Returned Error Code 0X800A03Ec.»
  • «Ошибка пути программного обеспечения: Excel ? Error Object Returned Error Code 0X800A03Ec. «

Эти сообщения об ошибках Microsoft Corporation могут появляться во время установки программы, в то время как программа, связанная с Excel ? Error Object Returned Error Code 0X800A03Ec (например, Microsoft Excel) работает, во время запуска или завершения работы Windows, или даже во время установки операционной системы Windows. При появлении ошибки Excel ? Error Object Returned Error Code 0X800A03Ec запишите вхождения для устранения неполадок Microsoft Excel и чтобы HelpMicrosoft Corporation найти причину.

Корень проблем Excel ? Error Object Returned Error Code 0X800A03Ec

Заражение вредоносными программами, недопустимые записи реестра Microsoft Excel или отсутствующие или поврежденные файлы Excel ? Error Object Returned Error Code 0X800A03Ec могут создать эти ошибки Excel ? Error Object Returned Error Code 0X800A03Ec.

Точнее, ошибки Excel ? Error Object Returned Error Code 0X800A03Ec, созданные из:

  • Недопустимая или поврежденная запись Excel ? Error Object Returned Error Code 0X800A03Ec.
  • Файл Excel ? Error Object Returned Error Code 0X800A03Ec поврежден от вирусной инфекции.
  • Excel ? Error Object Returned Error Code 0X800A03Ec ошибочно удален или злонамеренно программным обеспечением, не связанным с приложением Microsoft Excel.
  • Другое приложение, конфликтующее с Excel ? Error Object Returned Error Code 0X800A03Ec или другими общими ссылками.
  • Microsoft Excel (Excel ? Error Object Returned Error Code 0X800A03Ec) поврежден во время загрузки или установки.

Продукт Solvusoft

Загрузка
WinThruster 2022 — Проверьте свой компьютер на наличие ошибок.

Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11

Установить необязательные продукты — WinThruster (Solvusoft) | Лицензия | Политика защиты личных сведений | Условия | Удаление

Автор Sweety Bell, 24 ноя 2015, 12:44

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

Здравствуйте! Мне надо загрузить данные из excel в 8.2 обычное приложение. В цикле вывода возникает ошибка в методе Добавить. Первые 2 итерации пропускает нормально, потом выдает ошибку:
НоваяКолонка=ЭлементыФормы.Таблица.Колонки.Добавить(ИмяБезПробелов,ИмяКолонки);
по причине:
Недопустимое значение параметра (параметр номер ‘1’)

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

   Таблица.Очистить();
Таблица.Колонки.Очистить();

Попытка
Excel=Новый COMОбъект("Excel.Application");
Excel.WorkBooks.Open(ИмяФайла);
Состояние("Обработка файла Excel");
ExcelЛист=Excel.Sheets(1);
Исключение
Сообщить("шибка при открытии файла");
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;


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

Счетчик=1;
Пока ЗначениеЗаполнено(Excel.Cells(1,Счетчик).Text)Цикл
ИмяКолонки=Excel.Cells(1,Счетчик).Text;
ИмяБезПробелов=СтрЗаменить(ИмяКолонки," ","");
//Таблица.Колонки.Добавить(ИмяБезПробелов,,ИмяКолонки);
Таблица.Колонки.Добавить(ИмяКолонки);
НоваяКолонка=ЭлементыФормы.Таблица.Колонки.Добавить(ИмяБезПробелов,ИмяКолонки);
НоваяКолонка.Данные=ИмяБезПробелов;
Счетчик=Счетчик+1;
КонецЦикла;

Для нс=2 по Файлстрок Цикл
НоваяСтрока=Таблица.Добавить();
Для НомерКолонки=1 По Таблица.Колонки.Количество()Цикл
ТекущееЗначение=Excel.Cells(нс.НомерКолонки).Text;
  ИмяКолонки=Таблица.Колонких[НомерКолонки-1].Имя;
  НоваяСтрока[ИмяКолонки]=ТекущееЗначение;



  КонецЦикла;
   КонецЦикла;

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


Смело запускайте отладчик. Он вам покажет название колонки.


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


Вы слово «отладчик» сознательно не видите?


Вижу. Он показывает на эту строку
НоваяКолонка=ЭлементыФормы.Таблица.Колонки.Добавить(ИмяКолонки);


Цитата: Sweety Bell от 24 ноя 2015, 13:12
Вижу. Он показывает на эту строку
НоваяКолонка=ЭлементыФормы.Таблица.Колонки.Добавить(ИмяКолонки);

В приведенном вами коде нет такой строки. Есть такая:

НоваяКолонка=ЭлементыФормы.Таблица.Колонки.Добавить(ИмяБезПробелов,ИмяКолонки);


Скажите, а что такое отладчик вы вообще знаете? Вывод строки с ошибкой и отладчик — это знаете ли, очень разные вещи.


Цитата: vitasw от 24 ноя 2015, 13:25
Скажите, а что такое отладчик вы вообще знаете? Вывод строки с ошибкой и отладчик — это знаете ли, очень разные вещи.

инструмент для пошаговой отладки. Я им и пользуюсь. Значение смотрю на табло

Добавлено: 24 ноя 2015, 13:47


Оно зависает на этом месте кода

ИмяКолонки=Excel.Cells(1,Счетчик).Text;


ИмяКолонки=СокрЛП(Excel.Cells(1,Счетчик).Value);


исправила. Теперь другая ошибка: Ошибка при вызове метода контекста (Cells)
      Пока ЗначениеЗаполнено(Excel.Cells(1,Счетчик).Value)Цикл
по причине:
Произошла исключительная ситуация (0x800a03ec)


  • Форум 1С

  • Форум 1С — ПРЕДПРИЯТИЕ 8.0 8.1 8.2 8.3 8.4

  • Конфигурирование, программирование в 1С Предприятие 8

  • загрузка данных из excel в 8.2

Похожие темы (5)

Рейтинг@Mail.ru

Rambler's Top100

Поиск

  1. Платформа 8,2 УПП. Задача загрузить из Excel файла данные в Справочники.бюджет. При загрузке файла такое ощущения что он зацикливается. и выкидывает ошибку {Форма.Форма.Форма(29)}: Ошибка при вызове метода контекста (Cells)
    БюдОбъект.Комментарий = СокрЛП(Ex.Cells(НС,2).Value);
    по причине:
    Произошла исключительная ситуация (0x800a03ec)
    Подскажите что не так я выполняю. сам код

    Запрос = Новый Запрос("ВЫБРАТЬ
    | Бюджеты.Наименование КАК Наименование ,
    | Бюджеты.НаименованиеПолное КАК НаимПолное ,
    | Бюджеты.Комментарий КАК  Комментарий
    |ИЗ
    | Справочник.Бюджеты КАК Бюджеты");
    Выборка=Запрос.Выполнить().Выбрать();
    
    //проверим что файл существует
    ФайлНаДиске = Новый Файл(Файл);
    Если Не ФайлНаДиске.Существует() Тогда
    Предупреждение("Файл не найден!");
    Возврат;
    КонецЕсли;
    
    Ex = ПолучитьТаблицуExcel(Файл);
    БюдОбъект=Справочники.Бюджеты.СоздатьЭлемент();
    
    СтруктураДанных = Новый Структура("Комментарий");
    
    НС = 1;
    Пока Истина Цикл 
    СтруктураДанных.Комментарий = СокрЛП(Ex.Cells(НС,2).Value); 
    Если СтруктураДанных.Комментарий = "" Тогда
    Прервать;
    КонецЕсли;
    БюдОбъект.Комментарий= СтруктураДанных.Комментарий;
    #Если Клиент Тогда
    Состояние("Номер обработанной строки: " + НС);
    #КонецЕсли
    
    
    БюдОбъект.Записать();
    НС = НС + 1;
    КонецЦикла;
    
    
    Ex.Quit();
    
  2. Offline

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

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104

    1. вы в один и тот же элемент комментарии сыплете и перезаписываете в коде.
    2. скорее всего зацикливает

  3. Народ подскажите почему он сохраняет и заносит последнию строку из цикла а не весь список

    Запрос = Новый Запрос("ВЫБРАТЬ
    | Бюджеты.Наименование КАК Наименование ,
    | Бюджеты.НаименованиеПолное КАК НаимПолное ,
    | Бюджеты.Комментарий КАК  Комментарий
    |ИЗ
    | Справочник.Бюджеты КАК Бюджеты");
    Выборка=Запрос.Выполнить().Выбрать();
    
    //проверим что файл существует
    ФайлНаДиске = Новый Файл(Файл);
    Если Не ФайлНаДиске.Существует() Тогда
    Предупреждение("Файл не найден!");
    Возврат;
    КонецЕсли;
    
    Ex = ПолучитьТаблицуExcel(Файл);
    БюдОбъект=Справочники.Бюджеты.СоздатьЭлемент();
    
    НС = 1;
    Пока Истина Цикл
    
    ПодСтрока=СокрЛП(Ex.Cells(НС,2).Value);
    ПодСтрока1=Сред(ПодСтрока,Найти(ПодСтрока,"инв.№"));
    БюдОбъект.Наименование=Прав(ПодСтрока1,8);
    БюдОбъект.НаименованиеПолное ="Ебись оно все конем по цене="+ СокрЛП(Ex.Cells(НС,4).Value);
    БюдОбъект.Комментарий = СокрЛП(Ex.Cells(НС,2).Value);
    БюдОбъект.Записать();
    
    Если БюдОбъект.Комментарий = "" Тогда
    Прервать;
    КонецЕсли;
    #Если Клиент Тогда
    Состояние("Номер обработанной строки: " + НС);
    #КонецЕсли
    
    
    
    НС = НС + 1;
    
    КонецЦикла;
    
    
    Ex.Quit();
    
    КонецПроцедуры
    
  4. Потому, что получение объекта, у вас вне цикла, где вы его заполняете. По коду получается, что вы многократно перезаполняете и записываете один и тот-же объект

    И еще

    Пока Выборка.Следующий() Цикл 
  5. Процедура ИмяПроцедуры(Файл)
    //Вначале проверим что файл существует
    ФайлНаДиске = Новый Файл(Файл);
    Если Не ФайлНаДиске.Существует() Тогда
    Предупреждение("Файл не найден!");
    Возврат;
    КонецЕсли;
    Запрос = Новый Запрос("
    |ВЫБРАТЬ
    |  Бюджеты.Ссылка			 КАК Ссылка,
    |  Бюджеты.Наименование	   КАК Наименование,
    |  Бюджеты.НаименованиеПолное КАК НаимПолное,
    |  Бюджеты.Комментарий	    КАК Комментарий
    |ИЗ
    |  Справочник.Бюджеты КАК Бюджеты
    |");
    Выборка = Запрос.Выполнить().Выбрать();
    // Чтение файла
    Exel = ПолучитьТаблицуExcel(Файл);
    Индекс = 1;
    Пока Выборка.Следующий() Цикл
    ПодСтрока  = СокрЛП(Exel.Cells(Индекс,2).Value);
    ПодСтрока1 = Сред(ПодСтрока,Найти(ПодСтрока,"инв.№"));
    Если СокрЛП(Exel.Cells(Индекс,2).Value) = "" Тогда Продолжить; КонецЕсли; // Если комментарий не получен, переходим к следующему элементу
    БюдОбъект = Выборка.Ссылка.ПолучитьОбъект(); // Получим объект для заполнения
    // заполняем объект
    БюдОбъект.Наименование	   = Прав(ПодСтрока1,8);
    БюдОбъект.НаименованиеПолное = "<Ненормативная лексика> по цене=" + СокрЛП(Exel.Cells(Индекс,4).Value);
    БюдОбъект.Комментарий	    = СокрЛП(Exel.Cells(Индекс,2).Value);
    // Запись заполненного объекта
    Попытка
    БюдОбъект.Записать();
    #Если Клиент Тогда
    Состояние("Номер обработанной строки: " + Индекс);
    #КонецЕсли
    Исключение
    #Если Клиент Тогда
    Сообщить(ОписаниеОшибки(),СтатусСообщения.Важное);
    #КонецЕсли
    КонецПопытки;
    // увеличиваем индекс на 1
    Индекс = Индекс + 1;
    
    КонецЦикла;
    // Закрытие файла
    Exel.Quit();
    КонецПроцедуры
  6. Спасибо за корректировку кода

  7. Народ подскажите пожалуйста как создать группу в справочнике 1с когда мы экспортируем из excel. Я хочу что бы те строки которые выделены жирным стали группами в справочнике 1с

I am getting «HRESULT: 0x800A03EC» error when running Excel add-in with following code:

Excel.Range rng = ActiveSheet.Cells[x, y] as Excel.Range;                
string before = rng.Value2; 
string cleanV = System.Text.RegularExpressions.Regex.Replace(before, @"s+", "");
rng.set_Value(cleanV);

When error happens X and Y are set to 1, thus Excel range is not violated.
I searched extensively and tried a number of ways of setting the cell value (eg. Cells[x,y], range.set_Value()) but am at loss why this error happens and how to avoid it.

Any help is greatly appreciated.

Below are exception details:


System.Runtime.InteropServices.COMException was unhandled by user code
  HResult=-2146827284
  Message=Exception from HRESULT: 0x800A03EC
  Source=""
  ErrorCode=-2146827284
  StackTrace:
       at System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
       at Microsoft.Office.Interop.Excel.Range.set_Value(Object RangeValueDataType, Object value)
       at ImportValidation.ThisAddIn.removeAnySpaces(Int32 x, Int32 y) in c:UsersdshevelevDocumentsVisual Studio 2012ProjectsImportValidationImportValidationThisAddIn.cs:line 354
       at ImportValidation.ThisAddIn.ReadHeaders(Hashtable columnAddress) in c:UsersdshevelevDocumentsVisual Studio 2012ProjectsImportValidationImportValidationThisAddIn.cs:line 123
       at ImportValidation.ThisAddIn.mapColumns() in c:UsersdshevelevDocumentsVisual Studio 2012ProjectsImportValidationImportValidationThisAddIn.cs:line 493
       at ImportValidation.Ribbon1.button6_Click(Object sender, RibbonControlEventArgs e) in c:UsersdshevelevDocumentsVisual Studio 2012ProjectsImportValidationImportValidationRibbon1.cs:line 55
       at Microsoft.Office.Tools.Ribbon.RibbonPropertyStorage.ControlActionRaise(IRibbonControl control)
       at Microsoft.Office.Tools.Ribbon.RibbonPropertyStorage.ButtonClickCallback(RibbonComponentImpl component, Object[] args)
       at Microsoft.Office.Tools.Ribbon.RibbonManagerImpl.Invoke(RibbonComponentCallback callback, Object[] args)
       at Microsoft.Office.Tools.Ribbon.RibbonMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
       at Microsoft.Office.Tools.Ribbon.RibbonManagerImpl.System.Reflection.IReflect.InvokeMember(String name, BindingFlags invokeAttr, Binder binder, Object target, Object[] args, ParameterModifier[] modifiers, CultureInfo culture, String[] namedParameters)
  InnerException: 

Показывать по
10
20
40
сообщений

Новая тема

Ответить

Rambler's Top100

Поиск

  1. Платформа 8,2 УПП. Задача загрузить из Excel файла данные в Справочники.бюджет. При загрузке файла такое ощущения что он зацикливается. и выкидывает ошибку {Форма.Форма.Форма(29)}: Ошибка при вызове метода контекста (Cells)
    БюдОбъект.Комментарий = СокрЛП(Ex.Cells(НС,2).Value);
    по причине:
    Произошла исключительная ситуация (0x800a03ec)
    Подскажите что не так я выполняю. сам код

    Запрос = Новый Запрос("ВЫБРАТЬ
    | Бюджеты.Наименование КАК Наименование ,
    | Бюджеты.НаименованиеПолное КАК НаимПолное ,
    | Бюджеты.Комментарий КАК  Комментарий
    |ИЗ
    | Справочник.Бюджеты КАК Бюджеты");
    Выборка=Запрос.Выполнить().Выбрать();
    
    //проверим что файл существует
    ФайлНаДиске = Новый Файл(Файл);
    Если Не ФайлНаДиске.Существует() Тогда
    Предупреждение("Файл не найден!");
    Возврат;
    КонецЕсли;
    
    Ex = ПолучитьТаблицуExcel(Файл);
    БюдОбъект=Справочники.Бюджеты.СоздатьЭлемент();
    
    СтруктураДанных = Новый Структура("Комментарий");
    
    НС = 1;
    Пока Истина Цикл 
    СтруктураДанных.Комментарий = СокрЛП(Ex.Cells(НС,2).Value); 
    Если СтруктураДанных.Комментарий = "" Тогда
    Прервать;
    КонецЕсли;
    БюдОбъект.Комментарий= СтруктураДанных.Комментарий;
    #Если Клиент Тогда
    Состояние("Номер обработанной строки: " + НС);
    #КонецЕсли
    
    
    БюдОбъект.Записать();
    НС = НС + 1;
    КонецЦикла;
    
    
    Ex.Quit();
    
  2. Offline

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

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104

    1. вы в один и тот же элемент комментарии сыплете и перезаписываете в коде.
    2. скорее всего зацикливает

  3. Народ подскажите почему он сохраняет и заносит последнию строку из цикла а не весь список

    Запрос = Новый Запрос("ВЫБРАТЬ
    | Бюджеты.Наименование КАК Наименование ,
    | Бюджеты.НаименованиеПолное КАК НаимПолное ,
    | Бюджеты.Комментарий КАК  Комментарий
    |ИЗ
    | Справочник.Бюджеты КАК Бюджеты");
    Выборка=Запрос.Выполнить().Выбрать();
    
    //проверим что файл существует
    ФайлНаДиске = Новый Файл(Файл);
    Если Не ФайлНаДиске.Существует() Тогда
    Предупреждение("Файл не найден!");
    Возврат;
    КонецЕсли;
    
    Ex = ПолучитьТаблицуExcel(Файл);
    БюдОбъект=Справочники.Бюджеты.СоздатьЭлемент();
    
    НС = 1;
    Пока Истина Цикл
    
    ПодСтрока=СокрЛП(Ex.Cells(НС,2).Value);
    ПодСтрока1=Сред(ПодСтрока,Найти(ПодСтрока,"инв.№"));
    БюдОбъект.Наименование=Прав(ПодСтрока1,8);
    БюдОбъект.НаименованиеПолное ="Ебись оно все конем по цене="+ СокрЛП(Ex.Cells(НС,4).Value);
    БюдОбъект.Комментарий = СокрЛП(Ex.Cells(НС,2).Value);
    БюдОбъект.Записать();
    
    Если БюдОбъект.Комментарий = "" Тогда
    Прервать;
    КонецЕсли;
    #Если Клиент Тогда
    Состояние("Номер обработанной строки: " + НС);
    #КонецЕсли
    
    
    
    НС = НС + 1;
    
    КонецЦикла;
    
    
    Ex.Quit();
    
    КонецПроцедуры
    
  4. Потому, что получение объекта, у вас вне цикла, где вы его заполняете. По коду получается, что вы многократно перезаполняете и записываете один и тот-же объект

    И еще

    Пока Выборка.Следующий() Цикл 
  5. Процедура ИмяПроцедуры(Файл)
    //Вначале проверим что файл существует
    ФайлНаДиске = Новый Файл(Файл);
    Если Не ФайлНаДиске.Существует() Тогда
    Предупреждение("Файл не найден!");
    Возврат;
    КонецЕсли;
    Запрос = Новый Запрос("
    |ВЫБРАТЬ
    |  Бюджеты.Ссылка			 КАК Ссылка,
    |  Бюджеты.Наименование	   КАК Наименование,
    |  Бюджеты.НаименованиеПолное КАК НаимПолное,
    |  Бюджеты.Комментарий	    КАК Комментарий
    |ИЗ
    |  Справочник.Бюджеты КАК Бюджеты
    |");
    Выборка = Запрос.Выполнить().Выбрать();
    // Чтение файла
    Exel = ПолучитьТаблицуExcel(Файл);
    Индекс = 1;
    Пока Выборка.Следующий() Цикл
    ПодСтрока  = СокрЛП(Exel.Cells(Индекс,2).Value);
    ПодСтрока1 = Сред(ПодСтрока,Найти(ПодСтрока,"инв.№"));
    Если СокрЛП(Exel.Cells(Индекс,2).Value) = "" Тогда Продолжить; КонецЕсли; // Если комментарий не получен, переходим к следующему элементу
    БюдОбъект = Выборка.Ссылка.ПолучитьОбъект(); // Получим объект для заполнения
    // заполняем объект
    БюдОбъект.Наименование	   = Прав(ПодСтрока1,8);
    БюдОбъект.НаименованиеПолное = "<Ненормативная лексика> по цене=" + СокрЛП(Exel.Cells(Индекс,4).Value);
    БюдОбъект.Комментарий	    = СокрЛП(Exel.Cells(Индекс,2).Value);
    // Запись заполненного объекта
    Попытка
    БюдОбъект.Записать();
    #Если Клиент Тогда
    Состояние("Номер обработанной строки: " + Индекс);
    #КонецЕсли
    Исключение
    #Если Клиент Тогда
    Сообщить(ОписаниеОшибки(),СтатусСообщения.Важное);
    #КонецЕсли
    КонецПопытки;
    // увеличиваем индекс на 1
    Индекс = Индекс + 1;
    
    КонецЦикла;
    // Закрытие файла
    Exel.Quit();
    КонецПроцедуры
  6. Спасибо за корректировку кода

  7. Народ подскажите пожалуйста как создать группу в справочнике 1с когда мы экспортируем из excel. Я хочу что бы те строки которые выделены жирным стали группами в справочнике 1с

I am getting «HRESULT: 0x800A03EC» error when running Excel add-in with following code:

Excel.Range rng = ActiveSheet.Cells[x, y] as Excel.Range;                
string before = rng.Value2; 
string cleanV = System.Text.RegularExpressions.Regex.Replace(before, @"s+", "");
rng.set_Value(cleanV);

When error happens X and Y are set to 1, thus Excel range is not violated.
I searched extensively and tried a number of ways of setting the cell value (eg. Cells[x,y], range.set_Value()) but am at loss why this error happens and how to avoid it.

Any help is greatly appreciated.

Below are exception details:


System.Runtime.InteropServices.COMException was unhandled by user code
  HResult=-2146827284
  Message=Exception from HRESULT: 0x800A03EC
  Source=""
  ErrorCode=-2146827284
  StackTrace:
       at System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
       at Microsoft.Office.Interop.Excel.Range.set_Value(Object RangeValueDataType, Object value)
       at ImportValidation.ThisAddIn.removeAnySpaces(Int32 x, Int32 y) in c:UsersdshevelevDocumentsVisual Studio 2012ProjectsImportValidationImportValidationThisAddIn.cs:line 354
       at ImportValidation.ThisAddIn.ReadHeaders(Hashtable columnAddress) in c:UsersdshevelevDocumentsVisual Studio 2012ProjectsImportValidationImportValidationThisAddIn.cs:line 123
       at ImportValidation.ThisAddIn.mapColumns() in c:UsersdshevelevDocumentsVisual Studio 2012ProjectsImportValidationImportValidationThisAddIn.cs:line 493
       at ImportValidation.Ribbon1.button6_Click(Object sender, RibbonControlEventArgs e) in c:UsersdshevelevDocumentsVisual Studio 2012ProjectsImportValidationImportValidationRibbon1.cs:line 55
       at Microsoft.Office.Tools.Ribbon.RibbonPropertyStorage.ControlActionRaise(IRibbonControl control)
       at Microsoft.Office.Tools.Ribbon.RibbonPropertyStorage.ButtonClickCallback(RibbonComponentImpl component, Object[] args)
       at Microsoft.Office.Tools.Ribbon.RibbonManagerImpl.Invoke(RibbonComponentCallback callback, Object[] args)
       at Microsoft.Office.Tools.Ribbon.RibbonMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
       at Microsoft.Office.Tools.Ribbon.RibbonManagerImpl.System.Reflection.IReflect.InvokeMember(String name, BindingFlags invokeAttr, Binder binder, Object target, Object[] args, ParameterModifier[] modifiers, CultureInfo culture, String[] namedParameters)
  InnerException: 

Показывать по
10
20
40
сообщений

Новая тема

Ответить

Olga3891

Дата регистрации: 10.10.2006
Сообщений: 497

внешняя обработка. читается файлик из ексель. база серверная, «100 лет» обработка работала, и вот вдруг перестала файлики читать, Ошибка при вызове метода контекста (Cells)
НомерИсследования=ТекЛист.Cells(2,3).Value;
по причине:
Неизвестная ошибка
причем вылетает то в одном месте при попытке cells, то в другом. на файловой базе все норм.
голову уже сломала, что еще предпринять.
сервер 1с перегружала.

ABell

активный пользователь

офлайн

Дата регистрации: 22.07.2007
Сообщений: 343

Аналогично. Если не стоит Микрософтовский Excel на машине.

Показывать по
10
20
40
сообщений

Читают тему:

  1. Платформа 8,2 УПП. Задача загрузить из Excel файла данные в Справочники.бюджет. При загрузке файла такое ощущения что он зацикливается. и выкидывает ошибку {Форма.Форма.Форма(29)}: Ошибка при вызове метода контекста (Cells)
    БюдОбъект.Комментарий = СокрЛП(Ex.Cells(НС,2).Value);
    по причине:
    Произошла исключительная ситуация (0x800a03ec)
    Подскажите что не так я выполняю. сам код

    Запрос = Новый Запрос("ВЫБРАТЬ
    | Бюджеты.Наименование КАК Наименование ,
    | Бюджеты.НаименованиеПолное КАК НаимПолное ,
    | Бюджеты.Комментарий КАК  Комментарий
    |ИЗ
    | Справочник.Бюджеты КАК Бюджеты");
    Выборка=Запрос.Выполнить().Выбрать();
    
    //проверим что файл существует
    ФайлНаДиске = Новый Файл(Файл);
    Если Не ФайлНаДиске.Существует() Тогда
    Предупреждение("Файл не найден!");
    Возврат;
    КонецЕсли;
    
    Ex = ПолучитьТаблицуExcel(Файл);
    БюдОбъект=Справочники.Бюджеты.СоздатьЭлемент();
    
    СтруктураДанных = Новый Структура("Комментарий");
    
    НС = 1;
    Пока Истина Цикл 
    СтруктураДанных.Комментарий = СокрЛП(Ex.Cells(НС,2).Value); 
    Если СтруктураДанных.Комментарий = "" Тогда
    Прервать;
    КонецЕсли;
    БюдОбъект.Комментарий= СтруктураДанных.Комментарий;
    #Если Клиент Тогда
    Состояние("Номер обработанной строки: " + НС);
    #КонецЕсли
    
    
    БюдОбъект.Записать();
    НС = НС + 1;
    КонецЦикла;
    
    
    Ex.Quit();
    

  2. Tiger86

    Offline

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

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104

    1. вы в один и тот же элемент комментарии сыплете и перезаписываете в коде.
    2. скорее всего зацикливает

  3. Народ подскажите почему он сохраняет и заносит последнию строку из цикла а не весь список

    Запрос = Новый Запрос("ВЫБРАТЬ
    | Бюджеты.Наименование КАК Наименование ,
    | Бюджеты.НаименованиеПолное КАК НаимПолное ,
    | Бюджеты.Комментарий КАК  Комментарий
    |ИЗ
    | Справочник.Бюджеты КАК Бюджеты");
    Выборка=Запрос.Выполнить().Выбрать();
    
    //проверим что файл существует
    ФайлНаДиске = Новый Файл(Файл);
    Если Не ФайлНаДиске.Существует() Тогда
    Предупреждение("Файл не найден!");
    Возврат;
    КонецЕсли;
    
    Ex = ПолучитьТаблицуExcel(Файл);
    БюдОбъект=Справочники.Бюджеты.СоздатьЭлемент();
    
    НС = 1;
    Пока Истина Цикл
    
    ПодСтрока=СокрЛП(Ex.Cells(НС,2).Value);
    ПодСтрока1=Сред(ПодСтрока,Найти(ПодСтрока,"инв.№"));
    БюдОбъект.Наименование=Прав(ПодСтрока1,8);
    БюдОбъект.НаименованиеПолное ="Ебись оно все конем по цене="+ СокрЛП(Ex.Cells(НС,4).Value);
    БюдОбъект.Комментарий = СокрЛП(Ex.Cells(НС,2).Value);
    БюдОбъект.Записать();
    
    Если БюдОбъект.Комментарий = "" Тогда
    Прервать;
    КонецЕсли;
    #Если Клиент Тогда
    Состояние("Номер обработанной строки: " + НС);
    #КонецЕсли
    
    
    
    НС = НС + 1;
    
    КонецЦикла;
    
    
    Ex.Quit();
    
    КонецПроцедуры
    
  4. Потому, что получение объекта, у вас вне цикла, где вы его заполняете. По коду получается, что вы многократно перезаполняете и записываете один и тот-же объект

    И еще

    Пока Выборка.Следующий() Цикл 
  5. Процедура ИмяПроцедуры(Файл)
    //Вначале проверим что файл существует
    ФайлНаДиске = Новый Файл(Файл);
    Если Не ФайлНаДиске.Существует() Тогда
    Предупреждение("Файл не найден!");
    Возврат;
    КонецЕсли;
    Запрос = Новый Запрос("
    |ВЫБРАТЬ
    |  Бюджеты.Ссылка			 КАК Ссылка,
    |  Бюджеты.Наименование	   КАК Наименование,
    |  Бюджеты.НаименованиеПолное КАК НаимПолное,
    |  Бюджеты.Комментарий	    КАК Комментарий
    |ИЗ
    |  Справочник.Бюджеты КАК Бюджеты
    |");
    Выборка = Запрос.Выполнить().Выбрать();
    // Чтение файла
    Exel = ПолучитьТаблицуExcel(Файл);
    Индекс = 1;
    Пока Выборка.Следующий() Цикл
    ПодСтрока  = СокрЛП(Exel.Cells(Индекс,2).Value);
    ПодСтрока1 = Сред(ПодСтрока,Найти(ПодСтрока,"инв.№"));
    Если СокрЛП(Exel.Cells(Индекс,2).Value) = "" Тогда Продолжить; КонецЕсли; // Если комментарий не получен, переходим к следующему элементу
    БюдОбъект = Выборка.Ссылка.ПолучитьОбъект(); // Получим объект для заполнения
    // заполняем объект
    БюдОбъект.Наименование	   = Прав(ПодСтрока1,8);
    БюдОбъект.НаименованиеПолное = "<Ненормативная лексика> по цене=" + СокрЛП(Exel.Cells(Индекс,4).Value);
    БюдОбъект.Комментарий	    = СокрЛП(Exel.Cells(Индекс,2).Value);
    // Запись заполненного объекта
    Попытка
    БюдОбъект.Записать();
    #Если Клиент Тогда
    Состояние("Номер обработанной строки: " + Индекс);
    #КонецЕсли
    Исключение
    #Если Клиент Тогда
    Сообщить(ОписаниеОшибки(),СтатусСообщения.Важное);
    #КонецЕсли
    КонецПопытки;
    // увеличиваем индекс на 1
    Индекс = Индекс + 1;
    
    КонецЦикла;
    // Закрытие файла
    Exel.Quit();
    КонецПроцедуры
  6. Спасибо за корректировку кода

  7. Народ подскажите пожалуйста как создать группу в справочнике 1с когда мы экспортируем из excel. Я хочу что бы те строки которые выделены жирным стали группами в справочнике 1с


1C-pro.ru - форум по 1С:Предприятию 7.7, 8.0, 8.1, 8.2, 8.3

Понравилась статья? Поделить с друзьями:
  • Ошибка при вызове метода контекста open excel workbooks open
  • Ошибка при вызове метода контекста authenticate
  • Ошибка при вызове метода контекста loadcomponentfromurl
  • Ошибка при вызове метода контекста add произошла исключительная ситуация
  • Ошибка при вызове метода контекста initialize