Здравствуйте. У меня проблема с Power Query Выскакивает такая ошибка: не удается создать указанный элемент ActiveX. Сразу при открытии файла, в котором таблица формируется посредством надстройки Power Query
После установки Power Query, сначала все работает, но после перезапуска компьютера появляется такая ошибка. Для устранения ошибки помогает удалить надстройку и поставить ее снова, но опять же, после перезагрузки компьютера надстройка снова сбоит.
Error Message: Не удается создать указанный элемент ActiveX.
Stack Trace: Microsoft.Mashup.Client.ClientShared.Com.ComWrapperException: Не удается создать указанный элемент ActiveX. ---> System.Runtime.InteropServices.COMException: Не удается создать указанный элемент ActiveX. --- Конец трассировки внутреннего стека исключений --- в Microsoft.Mashup.Client.ClientShared.Com.ComWrapper.InvokeMember(String memberName, BindingFlags bindingFlags, Object[] args) в Microsoft.Mashup.Client.Excel.Com.CTPFactory.CreateCTP(String axID, String title, IWindow parentWindow) в Microsoft.Mashup.Client.Excel.Shim.AddInTaskPaneServices.TryCreateCustomTaskPane(TaskPaneType taskPaneType, ExcelWindowId excelWindowId, IWindow comWindow, Int32 initialWidth, ICustomTaskPane& customTaskPane) в Microsoft.Mashup.Client.Excel.Shim.AddInTaskPaneServices.TryCreateCustomTaskPane(TaskPaneType taskPaneType, IWindowContext windowContext, Int32 intitialWidth, ITaskPane& taskPane) в Microsoft.Mashup.Client.Excel.CustomTaskPaneManager.TryCreateTaskPane(IWindowContext windowContext, ITaskPane& taskPane) в Microsoft.Mashup.Client.Excel.CustomTaskPaneManager.TryGetOrCreateTaskPane(IWindowContext windowContext, ITaskPane& taskPane) в Microsoft.Mashup.Client.Excel.CustomTaskPaneManagers.UpdateQueriesTaskPaneVisibility(IWindowContext windowContext) в Microsoft.Mashup.Client.Excel.ExcelEventHandler.PerformPeriodicUpdate(IEnumerable`1 queriesTaskPaneVisibilityUpdateWindows) в Microsoft.Mashup.Client.Excel.AddIn.PerformPeriodicUpdate() в Microsoft.Mashup.Client.Excel.AddIn.<Excel_Idle>b__10() в Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, String actionName, Action action)
Invocation Stack Trace: в Microsoft.Mashup.Host.Document.ExceptionExtensions.GetCurrentInvocationStackTrace() в Microsoft.Mashup.Client.ClientShared.StackTraceInfo..ctor(String exceptionStackTrace, String invocationStackTrace) в Microsoft.Mashup.Client.ClientShared.FeedbackErrorInfo..ctor(String message, Nullable`1 errorCode, String requestId, Exception exception) в Microsoft.Mashup.Client.ClientShared.UnexpectedExceptionHandler.<>c__DisplayClass1.<HandleException>b__0() в Microsoft.Mashup.Host.Document.SynchronizationContextExtensions.SendAndMarshalExceptions(SynchronizationContext context, Action callback) в Microsoft.Mashup.Client.ClientShared.UnexpectedExceptionHandler.HandleException(Exception e) в Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, String actionName, Action action) в Microsoft.Mashup.Client.Excel.AddIn.Excel_Idle(ApplicationIdleEventType eventType) в Microsoft.Mashup.Client.Excel.Shim.ExcelServices.ApplicationMsoComponent.FDoIdle(Int32 grfidlef)
User ID: a4a2e8a1-9b48-4847-ab96-9fb0984dc128
Supports Premium Content: True
Telemetry Enabled: True
DPI Scale: 100%
Formulas:
section Section1;
shared GetData1 = (filename1)=> let Источник = Excel.Workbook(File.Contents(filename1), null, true), матрица_Sheet = Источник{[Item="матрица",Kind="Sheet"]}[Data], #"Повышенные заголовки" = Table.PromoteHeaders(матрица_Sheet, [PromoteAllScalars=true]), #"Измененный тип" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"назв журнала", type text}, {"Ник", type any}, {"часы", type number}, {"ставка", type text}, {"дата", type date}, {"Преподаватель", type text}, {"Место проведения", type text}, {"Дата заполнения", type date}, {"Функционирует?", type text}, {"Вид занятий", type text}, {"Язык", type text}, {"Курс", type text}, {"Название спецпректа/методработы", type text}, {"Номер строки", Int64.Type}}), #"Строки с примененным фильтром" = Table.SelectRows(#"Измененный тип", each ([часы] <> 0)), #"Измененный тип1" = Table.TransformColumnTypes(#"Строки с примененным фильтром",{{"Название спецпректа/методработы", type text}}) in #"Измененный тип1";
shared Registers_пробуем_считать = let Источник = Folder.Files("C:\Данные (папка Registers)\Registers"), #"Строки с примененным фильтром" = Table.SelectRows(Источник, each ([Extension] = ".xlsm")), #"Вставленные первые символы" = Table.AddColumn(#"Строки с примененным фильтром", "Первые символы", each Text.Start([Name], 2), type text), #"Строки с примененным фильтром1" = Table.SelectRows(#"Вставленные первые символы", each ([Первые символы] <> "~$")), #"Добавлен пользовательский объект" = Table.AddColumn(#"Строки с примененным фильтром1", "Пользовательская", each GetData1([Folder Path]&[Name])), #"Вставленные первые символы1" = Table.AddColumn(#"Добавлен пользовательский объект", "Первые символы.1", each Text.Start([Name], 7), type text), #"Строки с примененным фильтром2" = Table.SelectRows(#"Вставленные первые символы1", each ([Первые символы.1] <> "Образец")), #"Удаленные столбцы" = Table.RemoveColumns(#"Строки с примененным фильтром2",{"Content", "Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Первые символы"}), #"Замененное значение" = Table.ReplaceValue(#"Удаленные столбцы",".xlsm","",Replacer.ReplaceText,{"Name"}), #"Развернутый элемент Пользовательская" = Table.ExpandTableColumn(#"Замененное значение", "Пользовательская", {"назв журнала", "Ник", "часы", "ставка", "дата", "Преподаватель", "Место проведения", "Дата заполнения", "Функционирует?", "Вид занятий", "Язык", "Курс", "Название спецпректа/методработы", "Номер строки"}, {"назв журнала", "Ник", "часы", "ставка", "дата", "Преподаватель", "Место проведения", "Дата заполнения", "Функционирует?", "Вид занятий", "Язык", "Курс", "Название спецпректа/методработы", "Номер строки"}), #"Измененный тип" = Table.TransformColumnTypes(#"Развернутый элемент Пользовательская",{{"часы", type number}, {"дата", type date}, {"Дата заполнения", type date}, {"Название спецпректа/методработы", type text}}), #"Удаленные столбцы1" = Table.RemoveColumns(#"Измененный тип",{"Первые символы.1"}), #"Строки с примененным фильтром3" = Table.SelectRows(#"Удаленные столбцы1", each ([часы] <> null)), #"Строки с примененным фильтром4" = Table.SelectRows(#"Строки с примененным фильтром3", each [часы] <> null and [часы] <> ""), #"Измененный тип1" = Table.TransformColumnTypes(#"Строки с примененным фильтром4",{{"Название спецпректа/методработы", type text}}) in #"Измененный тип1";
shared GetData2 = (filename)=> let Источник = Excel.Workbook(File.Contents(filename), null, true), корпоратив_Sheet = Источник{[Item="корпоратив",Kind="Sheet"]}[Data], #"Повышенные заголовки" = Table.PromoteHeaders(корпоратив_Sheet, [PromoteAllScalars=true]), #"Измененный тип" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"Название группы обучения", type text}, {"Основной преподаватель", type text}, {"Функционирует?", type text}, {"текущее кол-во человек в группе", Int64.Type}, {"ПРОШЛЫЙ_МЕСЯЦ(ПМ)_Посещаемость в %", type number}, {"ПМ_Успеваемость в %", type number}, {"ПМ_количество занятий", Int64.Type}, {"ТЕКУЩИЙ_МЕСЯЦ(ТМ)_Посещаемость в %", type number}, {"ТМ_Успеваемость в %", type number}, {"ТМ_количество занятий", Int64.Type}, {"Название компании", type text}, {"Адрес", type text}, {"Стоим. проезда (грн)", Int64.Type}, {"Телефон", Int64.Type}, {"Имя координатора", type text}}) in #"Измененный тип";
shared #"Registers_пробуем_считать (2)" = let Источник = Folder.Files("C:\Данные (папка Registers)\Registers"), #"Строки с примененным фильтром" = Table.SelectRows(Источник, each ([Extension] = ".xlsm")), #"Вставленные первые символы" = Table.AddColumn(#"Строки с примененным фильтром", "Первые символы", each Text.Start([Name], 2), type text), #"Строки с примененным фильтром1" = Table.SelectRows(#"Вставленные первые символы", each ([Первые символы] <> "~$")), #"Добавлен пользовательский объект" = Table.AddColumn(#"Строки с примененным фильтром1", "Пользовательская", each GetData2([Folder Path]&[Name])), #"Развернутый элемент Пользовательская" = Table.ExpandTableColumn(#"Добавлен пользовательский объект", "Пользовательская", {"Название группы обучения", "Основной преподаватель", "Функционирует?", "текущее кол-во человек в группе", "ПРОШЛЫЙ_МЕСЯЦ(ПМ)_Посещаемость в %", "ПМ_Успеваемость в %", "ПМ_количество занятий", "ТЕКУЩИЙ_МЕСЯЦ(ТМ)_Посещаемость в %", "ТМ_Успеваемость в %", "ТМ_количество занятий", "Название компании", "Адрес", "Стоим. проезда (грн)", "Телефон", "Имя координатора"}, {"Название группы обучения", "Основной преподаватель", "Функционирует?", "текущее кол-во человек в группе", "ПРОШЛЫЙ_МЕСЯЦ(ПМ)_Посещаемость в %", "ПМ_Успеваемость в %", "ПМ_количество занятий", "ТЕКУЩИЙ_МЕСЯЦ(ТМ)_Посещаемость в %", "ТМ_Успеваемость в %", "ТМ_количество занятий", "Название компании", "Адрес", "Стоим. проезда (грн)", "Телефон", "Имя координатора"}), #"Строки с примененным фильтром3" = Table.SelectRows(#"Развернутый элемент Пользовательская", each [Название компании] <> null and [Название компании] <> ""), #"Вставленные первые символы1" = Table.AddColumn(#"Строки с примененным фильтром3", "Первые символы.1", each Text.Start([Название группы обучения], 5), type text), #"Строки с примененным фильтром2" = Table.SelectRows(#"Вставленные первые символы1", each ([Первые символы.1] = "Корп.")), #"Измененный тип" = Table.TransformColumnTypes(#"Строки с примененным фильтром2",{{"Телефон", type text}}), #"Удаленные столбцы" = Table.RemoveColumns(#"Измененный тип",{"Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Content", "Первые символы"}), #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Удаленные столбцы",{"Название группы обучения", "Основной преподаватель", "Функционирует?", "текущее кол-во человек в группе", "ПРОШЛЫЙ_МЕСЯЦ(ПМ)_Посещаемость в %", "ПМ_Успеваемость в %", "ПМ_количество занятий", "ТЕКУЩИЙ_МЕСЯЦ(ТМ)_Посещаемость в %", "ТМ_Успеваемость в %", "ТМ_количество занятий", "Название компании", "Адрес", "Стоим. проезда (грн)", "Телефон", "Имя координатора", "Folder Path", "Name"}), #"Переименованные столбцы" = Table.RenameColumns(#"Переупорядоченные столбцы",{{"Name", "Название файла"}, {"Folder Path", "Путь к файлу"}}), #"Удаленные столбцы1" = Table.RemoveColumns(#"Переименованные столбцы",{"Первые символы.1"}) in #"Удаленные столбцы1";
shared Таблица1 = let Источник = Excel.Workbook(File.Contents("C:\Данные (папка Registers)\Служебные\Доп_файлы\Спецполя.xlsx"), null, true), Таблица1_Table = Источник{[Item="Таблица1",Kind="Table"]}[Data], #"Измененный тип" = Table.TransformColumnTypes(Таблица1_Table,{{"№", Int64.Type}, {"ФИО", type text}, {"Ник", type any}, {"категория", type text}, {"обычная", type any}, {"повышенная", type any}, {"обычная2", type any}, {"повышенная2", type any}, {"Спецпроект", type any}, {"Метод Работа", type any}}), #"Удаленные столбцы" = Table.RemoveColumns(#"Измененный тип",{"№", "Ник"}), #"Измененный тип1" = Table.TransformColumnTypes(#"Удаленные столбцы",{{"обычная", type number}, {"повышенная", type number}, {"обычная2", type number}, {"повышенная2", type number}, {"Спецпроект", type number}, {"Метод Работа", type number}}), #"Строки с примененным фильтром" = Table.SelectRows(#"Измененный тип1", each ([категория] <> null)) in #"Строки с примененным фильтром";
Скорее всего это ошибка самой Power Query или Excel. Я бы советовал отключить надстройку и после этого полностью удалить. Далее перезагрузить ПК. Удалить офис, перезагрузить ПК. Установить офис, установить надстройку заново. Попробовать в работе.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...