none
Frown error when running macro RRS feed

  • Question

  • When I run a macro that loops through input parameters and refreshes power query, I keep getting this frown error. Please help.  Thank you much.

    Feedback Type:
    Frown (Error)

    Error Message:
    Exception from HRESULT: 0x800A03EC

    Stack Trace:
       at Microsoft.Mashup.Client.Excel.NativeExcelFunctionsBase.ValidateResult(Int32 result, Int32[] expectedValues)
       at Microsoft.Mashup.Client.Excel.NativeExcelFunctionsMSI.Microsoft.Mashup.Client.Excel.INativeExcelFunctions.EndUndo(IntPtr workbookPointer, Boolean success, UndoableActionType actionType)
       at Microsoft.Mashup.Client.Excel.Shim.NativeFillServices.PerformPostRefreshFixups(IWorkbook workbook, IListObject listObject, String[] columnNames, FillColumnType[] columnTypes, String[] previousColumnNames, FillColumnType[] previousColumnTypes, FillColumnType[] recordFieldTypes, Boolean removeBlankColumns, Boolean applyResultStyle)
       at Microsoft.Mashup.Client.Excel.Fill.PollingRefreshFillSession.CompleteRefresh(IWorkbook workbook, Boolean onTimer)
       at Microsoft.Mashup.Client.Excel.Fill.PollingRefreshFillSession.UpdateRefreshStatus(IWorkbook workbook, Boolean onTimer)
       at Microsoft.Mashup.Client.Excel.Fill.PollingRefreshFillSession.ResumeFill(Boolean onTimer)
       at Microsoft.Mashup.Client.Excel.PollingFillManager.<UpdateQueries>b__a(IFillSession fillSession)
       at Microsoft.Mashup.Client.UI.Shared.Model.QueriesUtilities.ForEachWithChangeScope[T](IEnumerable`1 items, Func`2 getQueries, Action`1 action)
       at Microsoft.Mashup.Client.Excel.Fill.FillManager.<>c__DisplayClass11.<ForEachFillSessionByWorkbook>b__b()
       at Microsoft.Mashup.Client.Excel.Shim.AddInAndNativeCoAuthServicesMSI.InvokeCoauthActionWithDeferredStorage(IWorkbookIdentity workbookIdentity, UndoableActionType actionType, Action action)
       at Microsoft.Mashup.Client.Excel.Fill.FillManager.ForEachFillSessionByWorkbook(Action`1 action)
       at Microsoft.Mashup.Client.Excel.PollingFillManager.UpdateQueries()
       at Microsoft.Mashup.Client.Excel.PollingFillManager.<OnFillUpdateTimerTick>b__6()
       at Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, Action action)

    Stack Trace Message:
    Exception from HRESULT: 0x800A03EC

    Invocation Stack Trace:
       at Microsoft.Mashup.Host.Document.ExceptionExtensions.GetCurrentInvocationStackTrace()
       at Microsoft.Mashup.Client.UI.Shared.StackTraceInfo..ctor(String exceptionStackTrace, String invocationStackTrace, String exceptionMessage)
       at Microsoft.Mashup.Client.UI.Shared.FeedbackErrorInfo..ctor(String message, Exception exception)
       at Microsoft.Mashup.Client.Excel.Native.NativeUserFeedbackServices.ReportException(IWindowHandle activeWindow, IUIHost uiHost, FeedbackPackageInfo feedbackPackageInfo, Exception e, Boolean useGDICapture)
       at Microsoft.Mashup.Client.UI.Shared.UnexpectedExceptionHandler.<>c__DisplayClass1.<HandleException>b__0()
       at Microsoft.Mashup.Host.Document.SynchronizationContextExtensions.SendAndMarshalExceptions(SynchronizationContext context, Action callback)
       at Microsoft.Mashup.Client.UI.Shared.UnexpectedExceptionHandler.HandleException(Exception e)
       at Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, Action action)
       at Microsoft.Mashup.Client.Excel.PollingFillManager.OnFillUpdateTimerTick(Object sender, EventArgs eventArgs)
       at System.Windows.Forms.Timer.OnTick(EventArgs e)
       at System.Windows.Forms.Timer.TimerNativeWindow.WndProc(Message& m)
       at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


    Supports Premium Content:
    False

    Formulas:


    section Section1;

    shared #"payroll data" = let
        CostCenter = Parameter,
        Source = Access.Database(File.Contents("C:\Users\mvonbargen\Documents\Access Databases\Workload Database\Payroll FY20 All Affiliates except DLS_r1.accdb"), [CreateNavigationProperties=true]),
        #"_payroll data" = Source{[Schema="",Item="payroll data"]}[Data],
        #"Filtered Rows1" = Table.SelectRows(#"_payroll data", each [Earn Code] = "1" or [Earn Code] = "1d" or [Earn Code] = "1g" or [Earn Code] = "5" or [Earn Code] = "5c" or [Earn Code] = "5g" or [Earn Code] = "5h" or [Earn Code] = "6"),
        #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows1",{"EmplID", "Jobcode", "Location", "VP", "Comp Rate", "Shift Code", "Employee Status Code", "Employee Status", "Earn Code"}),
        #"Filtered Rows" = Table.SelectRows(#"Removed Columns", each [DeptID] = Parameter)
    in
        #"Filtered Rows";

    shared Parameter = let
        Source = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
        #"Changed Type" = Table.TransformColumnTypes(Source,{{"Cost Center", type text}}),
        CostCenter = Record.Field(#"Changed Type"{0},"Cost Center")
    in
        CostCenter;

    shared #"FY19 Payroll Data" = let
        CostCenter = Parameter,
        Source = Access.Database(File.Contents("C:\Users\mvonbargen\Documents\Access Databases\Workload Database\Payroll FY19 All Affiliates except DLS - PPE 07-14-18 to Current - Copy (2).accdb"), [CreateNavigationProperties=true]),
        #"_FY19 Payroll Data" = Source{[Schema="",Item="FY19 Payroll Data"]}[Data],
        #"Filtered Rows1" = Table.SelectRows(#"_FY19 Payroll Data", each [Earn Code] = "1" or [Earn Code] = "1d" or [Earn Code] = "1g" or [Earn Code] = "5" or [Earn Code] = "5c" or [Earn Code] = "5g" or [Earn Code] = "5h" or [Earn Code] = "6"),
        #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows1",{"EmplID", "Jobcode", "Location", "VP", "Comp Rate", "Shift Code", "Employee Status Code", "Employee Status", "Earn Code"}),
        #"Filtered Rows" = Table.SelectRows(#"Removed Columns", each [DeptID] = Parameter)
    in
        #"Filtered Rows";

    shared Append1 = let
        Source = Table.Combine({#"payroll data", #"FY19 Payroll Data"})
    in
        Source;

    Friday, August 30, 2019 11:56 PM

Answers

All replies