Ошибка ole error 800a03ec excel

Перейти к содержимому раздела

TechnologiCS

Форумы TechnologiCS

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

Дерево сообщений Активные темы Темы без ответов

Sub Test
 MsgBox "Hello!"
End Sub

Сообщения 11

Тему читают: 1 гость

Ошибка может возникать при попытке построить отчет через rnSchedulerExecuter.exe (или через rNav.exe). 

Решение: 

Создать папку:

•  C:WindowsSysWOW64configsystemprofileDesktop если система x64,
•  C:WindowsSystem32configsystemprofileDesktop если система x86.

или (для Windows 2012/8 в связке с Office 2013) выполните следующие действия:

• Откройте Панель управления -> Администрирование -> Службы компонентов -> Компьютеры -> Мой компьютер -> Настройка DCOM;
• Необходимо выбрать Microsoft Office Application;
• Открыть свойства;
• Открыть вкладку Удостоверение;
• Открыть и выбрать Указанный пользователь;
• Необходимо указать пользователя, от имени которого должен запускаться Excel, так же можно зайти на вкладку Безопасность, Разрешение на запуск и активацию, настроить и добавить необходимого пользователя и дать ему все права.

Похожие статьи

1

29.12.2015, 06:21. Показов 26658. Ответов 12

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

var
  Ap : Variant;
  Nomer,metka:integer;
  Mas: array[1..5] of AnsiString;
   Rows, Columns, i,RNum: Integer;
begin
randomize;
metka:=0;// показывает записалось главное слово в перевод или нет
i:=0;
try
Ap := CreateOleObject('Excel.Application');
Ap.Workbooks.Open(ExtractFilePath(Application.ExeName)+'Japanese.xlsx',0,True);
Rows := ap.ActiveSheet.UsedRange.Rows.Count;
Columns := ap.ActiveSheet.UsedRange.Columns.Count;
finally
if rows=0 then showmessage('Подключиться к базе не удалось')
else    showmessage('Подключение к базе удалось');
 
 
 label3.Caption:=  inttostr(Rows);
nomer:=random(rows);// индекс главного слова
for i := 1 to 5 do
  mas[i]:='';
 
 
  for I := 1 to 5 do
            begin
                case i of
                1:begin //////////////////////////////////
                    if metka=0 then
                    begin
                      RNum:=random(4);
                      if RNum=0 then
                        begin mas[i]:=Ap.Range['B'+inttostr(nomer)]; metka:=1; showmessage('Case №1, metka= '+inttostr(metka)+ ' шанс срабатывания, слово: '+mas[i]); end
                      else
                        begin mas[i]:=Ap.Range['B'+inttostr(random(rows))]; showmessage('Case №1, metka= '+inttostr(metka)+' '+mas[i]); end;
                      end
                    else
                      begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))];
                      end;
                    end; ///////////////////////////////
                2: begin ///////////////////////////////
                      if metka=0 then
                      begin
                        RNum:=random(4);
                         if RNum=0 then
                          begin
                            mas[i]:=Ap.Range['B'+inttostr(nomer)]; metka:=1; showmessage('Case №2, metka= '+inttostr(metka)+' '+mas[i]);
                          end
                         else
                          begin
                           mas[i]:=Ap.Range['B'+inttostr(random(rows))] ; showmessage('Case №2, metka= '+inttostr(metka)+ ' шанс срабатывания, слово: '+mas[i]);
                          end;
                      end
                      else
                      begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))];
                      end;
                  end;////////////////////////////////
 
                3:begin
                    if metka=0 then
                    begin
                      RNum:=random(4);
                      if RNum=0 then
                        begin
                          mas[i]:=Ap.Range['B'+inttostr(nomer)]; metka:=1; showmessage('Case №3, metka= '+inttostr(metka)+ ' шанс срабатывания, слово: '+mas[i] );
                        end
                      else
                        begin
                          mas[i]:=Ap.Range['B'+inttostr(random(rows))]; showmessage('Case №3, metka= '+inttostr(metka)+' '+mas[i]);
                        end;
                    end
                    else
                      begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))];showmessage('Case №3, metka= '+inttostr(metka)+' '+mas[i])
                      end;
                  end;
 
                4:begin
                    if metka=0 then
                    begin
                      RNum:=random(4);
                      if RNum=0 then
                        begin
                          mas[i]:=Ap.Range['B'+inttostr(nomer)]; metka:=1; showmessage('Case №4, metka= '+inttostr(metka)+ ' шанс срабатывания, слово: '+mas[i]);
                        end
                      else
                      begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))]; showmessage('Case №4, metka= '+inttostr(metka)+' '+mas[i])
                      end;
                    end
                    else
                      begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))]; showmessage('Case №4, metka= '+inttostr(metka)+' '+mas[i])
                      end;
                  end;
                5:begin if (mas[5]='') and (metka=0) then
                        begin
                          mas[i]:=Ap.Range['B'+inttostr(nomer)]; showmessage('Case №5, metka= '+inttostr(metka)+' '+mas[i]);
                        end
                      else
                       begin
                        mas[i]:=Ap.Range['B'+inttostr(random(rows))]; showmessage('Case №55, metka= '+inttostr(metka)+' '+mas[i]);
                       end;
                       end;
             end
 
 end;
  end;
 
 
metka:=0;
for I := 1 to 5 do
combobox1.Items.Add(mas[i]);
 
Label1.Caption := Ap.Range['A'+inttostr(nomer)];
 
 
 
 
end;

0

	Номер ошибки:	Ошибка 800A03EC
Название ошибки:	Excel Error 800A03Ec
Описание ошибки:	Ошибка 800A03EC: Возникла ошибка в приложении Microsoft Excel. Приложение будет закрыто. Приносим извинения за неудобства.
Разработчик:	Microsoft Corporation
Программное обеспечение:	Microsoft Excel
Относится к:	Windows XP, Vista, 7, 8, 10, 11

Анализ «Excel Error 800A03Ec»

«Excel Error 800A03Ec» — это стандартная ошибка времени выполнения. Разработчики, такие как Microsoft Corporation, обычно проходят через несколько контрольных точек перед запуском программного обеспечения, такого как Microsoft Excel. К сожалению, такие проблемы, как ошибка 800A03EC, могут быть пропущены, и программное обеспечение будет содержать эти проблемы при выпуске.

После установки программного обеспечения может появиться сообщение об ошибке «Excel Error 800A03Ec». Если возникает ошибка 800A03EC, разработчикам будет сообщено об этой проблеме через уведомления об ошибках, которые встроены в Microsoft Excel. Затем они исправляют дефектные области кода и сделают обновление доступным для загрузки. Если есть запрос на обновление Microsoft Excel, это обычно обходной путь для устранения проблем, таких как ошибка 800A03EC и другие ошибки.

Что генерирует ошибку времени выполнения 800A03EC?

Наиболее распространенные вхождения «Excel Error 800A03Ec» проблемы при загрузке Microsoft Excel. Причины сбоев обработки можно отличить, классифицируя ошибки 800A03EC следующим образом:.

Ошибка 800A03EC Crash — это типичная ошибка «Excel Error 800A03Ec», которая приводит к полному завершению работы программы. Если Microsoft Excel не может обработать данный ввод, или он не может получить требуемый вывод, это обычно происходит.

Утечка памяти «Excel Error 800A03Ec» — последствия утечки памяти Microsoft Excel связаны с неисправной операционной системой. Возможные искры включают сбой освобождения, который произошел в программе, отличной от C ++, когда поврежденный код сборки неправильно выполняет бесконечный цикл.

Ошибка 800A03EC Logic Error — логическая ошибка возникает, когда компьютер производит неправильный вывод, даже если вход правильный. Виновником в этом случае обычно является недостаток в исходном коде Microsoft Corporation, который неправильно обрабатывает ввод.

Как правило, такие Microsoft Corporation ошибки возникают из-за повреждённых или отсутствующих файлов Excel Error 800A03Ec, а иногда — в результате заражения вредоносным ПО в настоящем или прошлом, что оказало влияние на Microsoft Excel. Большую часть проблем, связанных с данными файлами, можно решить посредством скачивания и установки последней версии файла Microsoft Corporation. Мы также рекомендуем выполнить сканирование реестра, чтобы очистить все недействительные ссылки на Excel Error 800A03Ec, которые могут являться причиной ошибки.

Распространенные проблемы Excel Error 800A03Ec

Частичный список ошибок Excel Error 800A03Ec Microsoft Excel:

• «Ошибка Excel Error 800A03Ec. «
• «Недопустимая программа Win32: Excel Error 800A03Ec»
• «Excel Error 800A03Ec должен быть закрыт. «
• «Файл Excel Error 800A03Ec не найден.»
• «Excel Error 800A03Ec не может быть найден. «
• «Ошибка запуска программы: Excel Error 800A03Ec.»
• «Excel Error 800A03Ec не выполняется. «
• «Ошибка Excel Error 800A03Ec. «
• «Ошибка в пути к программному обеспечению: Excel Error 800A03Ec. «

Эти сообщения об ошибках Microsoft Corporation могут появляться во время установки программы, в то время как программа, связанная с Excel Error 800A03Ec (например, Microsoft Excel) работает, во время запуска или завершения работы Windows, или даже во время установки операционной системы Windows. Важно отметить, когда возникают проблемы Excel Error 800A03Ec, так как это помогает устранять проблемы Microsoft Excel (и сообщать в Microsoft Corporation).

Причины проблем Excel Error 800A03Ec

Эти проблемы Excel Error 800A03Ec создаются отсутствующими или поврежденными файлами Excel Error 800A03Ec, недопустимыми записями реестра Microsoft Excel или вредоносным программным обеспечением.

Более конкретно, данные ошибки Excel Error 800A03Ec могут быть вызваны следующими причинами:

• Недопустимая или поврежденная запись Excel Error 800A03Ec.
• Файл Excel Error 800A03Ec поврежден от вирусной инфекции.
• Другая программа (не связанная с Microsoft Excel) удалила Excel Error 800A03Ec злонамеренно или по ошибке.
• Excel Error 800A03Ec конфликтует с другой программой (общим файлом).
• Поврежденная установка или загрузка Microsoft Excel (Excel Error 800A03Ec).

Продукт Solvusoft

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

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

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

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