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);
Товар = Справочники.Номенклатура.ПустаяСсылка();
// Ищем товар в справочнике по коду
Товар = Справочники.Номенклатура.НайтиПоКоду.Артикул;
// Если не нашли по коду, то ищем по наименованию
Если Товар.Пустая() Тогда
Товар = Справочники.Номенклатура.НайтиПоНаименованию.Наименование;
Конецесли;
//Если не нашли создаем новый
Если Товар.Пустая() Тогда
Товар = Справочники.Номенклатура.СоздатьЭлемент();
Товар.Наименование = НаименованиеТовара;
Товар.Артикул = Артикул;
Товар.БазоваяЕдиницаИзмерения = ЕдиницаИзмерения;
Товар.СтранаПроисхождения = НомерКолонкиСтрана;
Товар.Записать();
Конецесли;
КонецЦикла;
КонецПроцедуры
Здравствуйте! Подскажите, пожалуйста! Загружаю из 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С
ЮлияЮ |
|
||
---|---|---|---|
|
При загрузке данных из Eхcel выдаёт ошибку «Произошла исключительная ошибка (0х800а03ес)», что сделать? Я новичок, ещё не очень разбираюсь в программе. |
Yandex |
|
||
---|---|---|---|
|
all4cf |
|
||
---|---|---|---|
|
Ошибка говорит о том что не может прочитать данные с ячейки файла, проверьте все ли строки и колонки в файле заполнены |
Подсказка: Для быстрого поиска ответов — используйте ‘Поиск’ |
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.
[ Главная | FAQ: Все | 7.х | 8.х | 8.2 УП | 8.3 | Видео | Files | Forum | Freelance | Поиск | Реклама на HelpF.pro | Обратная связь ]
HelpF.pro [old Help1C.com] 2009-2023 Все материалы, размещенные на сайте, добавлены посетителями сайта или взяты из свободных источников. Подробнее…
Номер ошибки: | Ошибка 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)
Поиск
-
Платформа 8,2 УПП. Задача загрузить из Excel файла данные в Справочники.бюджет. При загрузке файла такое ощущения что он зацикливается. и выкидывает ошибку {Форма.Форма.Форма(29)}: Ошибка при вызове метода контекста (Cells)
БюдОбъект.Комментарий = СокрЛП(Ex.Cells(НС,2).Value);
по причине:
Произошла исключительная ситуация (0x800a03ec)
Подскажите что не так я выполняю. сам кодЗапрос = Новый Запрос("ВЫБРАТЬ | Бюджеты.Наименование КАК Наименование , | Бюджеты.НаименованиеПолное КАК НаимПолное , | Бюджеты.Комментарий КАК Комментарий |ИЗ | Справочник.Бюджеты КАК Бюджеты"); Выборка=Запрос.Выполнить().Выбрать(); //проверим что файл существует ФайлНаДиске = Новый Файл(Файл); Если Не ФайлНаДиске.Существует() Тогда Предупреждение("Файл не найден!"); Возврат; КонецЕсли; Ex = ПолучитьТаблицуExcel(Файл); БюдОбъект=Справочники.Бюджеты.СоздатьЭлемент(); СтруктураДанных = Новый Структура("Комментарий"); НС = 1; Пока Истина Цикл СтруктураДанных.Комментарий = СокрЛП(Ex.Cells(НС,2).Value); Если СтруктураДанных.Комментарий = "" Тогда Прервать; КонецЕсли; БюдОбъект.Комментарий= СтруктураДанных.Комментарий; #Если Клиент Тогда Состояние("Номер обработанной строки: " + НС); #КонецЕсли БюдОбъект.Записать(); НС = НС + 1; КонецЦикла; Ex.Quit();
-
Offline
Tiger86
Модераторы
Команда форума
Модератор- Регистрация:
- 24 мар 2011
- Сообщения:
- 6.407
- Симпатии:
- 108
- Баллы:
- 104
1. вы в один и тот же элемент комментарии сыплете и перезаписываете в коде.
2. скорее всего зацикливает -
Народ подскажите почему он сохраняет и заносит последнию строку из цикла а не весь список
Запрос = Новый Запрос("ВЫБРАТЬ | Бюджеты.Наименование КАК Наименование , | Бюджеты.НаименованиеПолное КАК НаимПолное , | Бюджеты.Комментарий КАК Комментарий |ИЗ | Справочник.Бюджеты КАК Бюджеты"); Выборка=Запрос.Выполнить().Выбрать(); //проверим что файл существует ФайлНаДиске = Новый Файл(Файл); Если Не ФайлНаДиске.Существует() Тогда Предупреждение("Файл не найден!"); Возврат; КонецЕсли; Ex = ПолучитьТаблицуExcel(Файл); БюдОбъект=Справочники.Бюджеты.СоздатьЭлемент(); НС = 1; Пока Истина Цикл ПодСтрока=СокрЛП(Ex.Cells(НС,2).Value); ПодСтрока1=Сред(ПодСтрока,Найти(ПодСтрока,"инв.№")); БюдОбъект.Наименование=Прав(ПодСтрока1,8); БюдОбъект.НаименованиеПолное ="Ебись оно все конем по цене="+ СокрЛП(Ex.Cells(НС,4).Value); БюдОбъект.Комментарий = СокрЛП(Ex.Cells(НС,2).Value); БюдОбъект.Записать(); Если БюдОбъект.Комментарий = "" Тогда Прервать; КонецЕсли; #Если Клиент Тогда Состояние("Номер обработанной строки: " + НС); #КонецЕсли НС = НС + 1; КонецЦикла; Ex.Quit(); КонецПроцедуры
-
Потому, что получение объекта, у вас вне цикла, где вы его заполняете. По коду получается, что вы многократно перезаполняете и записываете один и тот-же объект
И еще
Пока Выборка.Следующий() Цикл
-
Процедура ИмяПроцедуры(Файл) //Вначале проверим что файл существует ФайлНаДиске = Новый Файл(Файл); Если Не ФайлНаДиске.Существует() Тогда Предупреждение("Файл не найден!"); Возврат; КонецЕсли; Запрос = Новый Запрос(" |ВЫБРАТЬ | Бюджеты.Ссылка КАК Ссылка, | Бюджеты.Наименование КАК Наименование, | Бюджеты.НаименованиеПолное КАК НаимПолное, | Бюджеты.Комментарий КАК Комментарий |ИЗ | Справочник.Бюджеты КАК Бюджеты |"); Выборка = Запрос.Выполнить().Выбрать(); // Чтение файла 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(); КонецПроцедуры
-
Спасибо за корректировку кода
-
Народ подскажите пожалуйста как создать группу в справочнике 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:
Heltarion 2 / 2 / 0 Регистрация: 21.11.2011 Сообщений: 57 |
||||
1 |
||||
02.12.2011, 11:18. Показов 9089. Ответов 11 Метки нет (Все метки)
Добрый день! ТПП — «табличное поле правил», в ней уже занесены некотрые значения из XML Код процедуры:
0 |
308 / 308 / 1 Регистрация: 16.01.2011 Сообщений: 1,073 |
|
02.12.2011, 11:32 |
2 |
СохранитьНажатие(Элемент) это событие формы
1 |
2 / 2 / 0 Регистрация: 21.11.2011 Сообщений: 57 |
|
02.12.2011, 11:56 [ТС] |
3 |
СохранитьНажатие(Элемент) это событие формы В МодулеОбъекта создал функцию «Процедура СохранитьВЭксель(ТПП) Экспорт»
0 |
308 / 308 / 1 Регистрация: 16.01.2011 Сообщений: 1,073 |
|
02.12.2011, 12:10 |
4 |
процедуру ИнициализацияЭкселя() тоже закинь в модуль объекта
1 |
2 / 2 / 0 Регистрация: 21.11.2011 Сообщений: 57 |
|
02.12.2011, 12:19 [ТС] |
5 |
Да я именно так и сделал, просто забыл упомянуть, ТПП нужна в противном случае он не понимает что это за переменная Добавлено через 4 минуты Так работает, но если я поставлю Дело в том что «стр.НоменклатураБазы» — это справочник ссылка, если у нее текстовый тип то программа глотает и записывает.
0 |
19 / 18 / 1 Регистрация: 15.11.2011 Сообщений: 54 |
|
02.12.2011, 12:22 |
6 |
чет вы мудрено делаете.
1 |
2 / 2 / 0 Регистрация: 21.11.2011 Сообщений: 57 |
|
02.12.2011, 12:28 [ТС] |
7 |
В данный момент ему не нравится присваемое значение к ячейке экселя (если я правильно понимаю сообщение «Ошибка при установке значения атрибута контекста (Value)» ) Причем если тип значения строка, то он его получает без вопросо, если тип значения СправочникССсылка, то он руегается на «Ошибка при установке значения атрибута контекста (Value)». Я просто не понимаю как обратиться к такому типу переменных чтобы получить значение типа строка.
0 |
19 / 18 / 1 Регистрация: 15.11.2011 Сообщений: 54 |
|
02.12.2011, 12:30 |
8 |
а принудительно все значения в текст перевести нельзя?
1 |
308 / 308 / 1 Регистрация: 16.01.2011 Сообщений: 1,073 |
|
02.12.2011, 12:30 |
9 |
стр.НоменклатураБазы.Наименование например
1 |
2 / 2 / 0 Регистрация: 21.11.2011 Сообщений: 57 |
|
02.12.2011, 12:32 [ТС] |
10 |
стр.НоменклатураБазы — это уже есть наименование интересующего меня поля (имя столбца), в некотрых случаях можно писать: стр.НоменклатураБазы.Значение, но это нетот случай Добавлено через 56 секунд
0 |
308 / 308 / 1 Регистрация: 16.01.2011 Сообщений: 1,073 |
|
02.12.2011, 12:34 |
11 |
значение из Excel?
1 |
Heltarion 2 / 2 / 0 Регистрация: 21.11.2011 Сообщений: 57 |
||||
02.12.2011, 12:43 [ТС] |
12 |
|||
Рабочий код:
0 |
-
Платформа 8,2 УПП. Задача загрузить из Excel файла данные в Справочники.бюджет. При загрузке файла такое ощущения что он зацикливается. и выкидывает ошибку {Форма.Форма.Форма(29)}: Ошибка при вызове метода контекста (Cells)
БюдОбъект.Комментарий = СокрЛП(Ex.Cells(НС,2).Value);
по причине:
Произошла исключительная ситуация (0x800a03ec)
Подскажите что не так я выполняю. сам кодЗапрос = Новый Запрос("ВЫБРАТЬ | Бюджеты.Наименование КАК Наименование , | Бюджеты.НаименованиеПолное КАК НаимПолное , | Бюджеты.Комментарий КАК Комментарий |ИЗ | Справочник.Бюджеты КАК Бюджеты"); Выборка=Запрос.Выполнить().Выбрать(); //проверим что файл существует ФайлНаДиске = Новый Файл(Файл); Если Не ФайлНаДиске.Существует() Тогда Предупреждение("Файл не найден!"); Возврат; КонецЕсли; Ex = ПолучитьТаблицуExcel(Файл); БюдОбъект=Справочники.Бюджеты.СоздатьЭлемент(); СтруктураДанных = Новый Структура("Комментарий"); НС = 1; Пока Истина Цикл СтруктураДанных.Комментарий = СокрЛП(Ex.Cells(НС,2).Value); Если СтруктураДанных.Комментарий = "" Тогда Прервать; КонецЕсли; БюдОбъект.Комментарий= СтруктураДанных.Комментарий; #Если Клиент Тогда Состояние("Номер обработанной строки: " + НС); #КонецЕсли БюдОбъект.Записать(); НС = НС + 1; КонецЦикла; Ex.Quit();
-
Offline
Tiger86
Модераторы
Команда форума
Модератор- Регистрация:
- 24 мар 2011
- Сообщения:
- 6.407
- Симпатии:
- 108
- Баллы:
- 104
1. вы в один и тот же элемент комментарии сыплете и перезаписываете в коде.
2. скорее всего зацикливает -
Народ подскажите почему он сохраняет и заносит последнию строку из цикла а не весь список
Запрос = Новый Запрос("ВЫБРАТЬ | Бюджеты.Наименование КАК Наименование , | Бюджеты.НаименованиеПолное КАК НаимПолное , | Бюджеты.Комментарий КАК Комментарий |ИЗ | Справочник.Бюджеты КАК Бюджеты"); Выборка=Запрос.Выполнить().Выбрать(); //проверим что файл существует ФайлНаДиске = Новый Файл(Файл); Если Не ФайлНаДиске.Существует() Тогда Предупреждение("Файл не найден!"); Возврат; КонецЕсли; Ex = ПолучитьТаблицуExcel(Файл); БюдОбъект=Справочники.Бюджеты.СоздатьЭлемент(); НС = 1; Пока Истина Цикл ПодСтрока=СокрЛП(Ex.Cells(НС,2).Value); ПодСтрока1=Сред(ПодСтрока,Найти(ПодСтрока,"инв.№")); БюдОбъект.Наименование=Прав(ПодСтрока1,8); БюдОбъект.НаименованиеПолное ="Ебись оно все конем по цене="+ СокрЛП(Ex.Cells(НС,4).Value); БюдОбъект.Комментарий = СокрЛП(Ex.Cells(НС,2).Value); БюдОбъект.Записать(); Если БюдОбъект.Комментарий = "" Тогда Прервать; КонецЕсли; #Если Клиент Тогда Состояние("Номер обработанной строки: " + НС); #КонецЕсли НС = НС + 1; КонецЦикла; Ex.Quit(); КонецПроцедуры
-
Потому, что получение объекта, у вас вне цикла, где вы его заполняете. По коду получается, что вы многократно перезаполняете и записываете один и тот-же объект
И еще
Пока Выборка.Следующий() Цикл
-
Процедура ИмяПроцедуры(Файл) //Вначале проверим что файл существует ФайлНаДиске = Новый Файл(Файл); Если Не ФайлНаДиске.Существует() Тогда Предупреждение("Файл не найден!"); Возврат; КонецЕсли; Запрос = Новый Запрос(" |ВЫБРАТЬ | Бюджеты.Ссылка КАК Ссылка, | Бюджеты.Наименование КАК Наименование, | Бюджеты.НаименованиеПолное КАК НаимПолное, | Бюджеты.Комментарий КАК Комментарий |ИЗ | Справочник.Бюджеты КАК Бюджеты |"); Выборка = Запрос.Выполнить().Выбрать(); // Чтение файла 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(); КонецПроцедуры
-
Спасибо за корректировку кода
-
Народ подскажите пожалуйста как создать группу в справочнике 1с когда мы экспортируем из excel. Я хочу что бы те строки которые выделены жирным стали группами в справочнике 1с