Не удалось получить свойство "getScrollTop" ссылки, значение которой не определено или является NULL
Call Run_macros
Sub Run_macros()
Dim objExcel
Dim Op_writ
Dim Wb
'запускаем Excel-процесс
Set objExcel = CreateObject ("Excel.Application")
objExcel.Visible = true
Op_writ="R:\инста\ЭКСЕЛЬ\АНАЛИЗ\НОВЫЙПОДПИСЧИКИ17"
Set Wb = objExcel.Workbooks.Open (Op_writ)
'запуск макроса
objExcel.run "ОБН_данных"
'сохранение файла
objExcel.Workbooks("НОВЫЙПОДПИСЧИКИ17.xlsm").Save
'по завершению закрываем документ. Пишем только имя файла, без пути
objExcel.Workbooks("НОВЫЙПОДПИСЧИКИ17.xlsm").Close(false)
'закрываем Excel-процесс
objExcel.Quit
objExcel = Nothing
Op_writ = Nothing
Wb = Nothing
End Sub
Sub ОБН_данных()
With ThisWorkbook.Connections("Запрос — ЗАПРОС_ДАННЫХ")
.OLEDBConnection.BackgroundQuery = False
.Refresh
End With
End Sub
objExcel.Workbooks("файл1.xlsm").Save
Call Run_macros
'запуск макроса'
Sub Run_macros()
'запускаем Excel-процесс
set objExcel = CreateObject ("Excel.Application")
objExcel.Visible = true
Op_writ="R:\ЭКСЕЛЬ\файл1"
objExcel.Workbooks.Open (Op_writ)
'запуск макроса
objExcel.run "ОБН_данных"
'сохранение файла
objExcel.Workbooks("файл1.xlsm").Save
'по завершению закрываем документ. Пишем только имя файла, без пути
objExcel.Workbooks("файл1.xlsm").Close(false)
'закрываем Excel-процесс
objExcel.Quit
end sub
Feedback Type:
Frown (Error)
Error Message:
Не удалось получить свойство "getScrollTop" ссылки, значение которой не определено или является NULL
Stack Trace:
в Microsoft.Mashup.Client.UI.Windows.JsErrorHandler.WrapInvokeScript(Func`1 invokeScript)
в Microsoft.Mashup.Client.UI.Windows.JsHostedScript.InvokeScriptOnDocument(IHostedWebDocument document, String script)
в Microsoft.Mashup.Client.UI.Windows.JsHostedScript.TryInvoke[T](String script, T& result)
в Microsoft.Mashup.Client.UI.Shared.Ux.Navigator.NavigatorHost.TryInvokeHostedScript[T](String methodName, T& result, Object[] args)
в Microsoft.Mashup.Client.Excel.WorkbookQueriesNavigatorHost.GetScrollTop()
в Microsoft.Mashup.Client.UI.Shared.Ux.Navigator.QueriesNavigatorModelBase.OnQueriesContentChangeStarted(Object sender, EventArgs e)
в Microsoft.Mashup.Host.Models.EventHandlerExtensions.RaiseEvent(EventHandler handler, Object sender)
в Microsoft.Mashup.Host.Document.Model.Queries.ChangeScope..ctor(Queries queries, PackagePath packagePath, PackageReference packageReference, Boolean commitEachEdit)
в Microsoft.Mashup.Host.Document.Model.Queries.CreateChangeScope(Boolean commitEachEdit)
в Microsoft.Mashup.Client.UI.Shared.Model.QueriesUtilities.ForEachWithChangeScope[T](IEnumerable`1 items, Func`2 getQueries, Action`1 action)
в Microsoft.Mashup.Client.Excel.Fill.FillManager.<>c__DisplayClass74_0.<ForEachFillSessionByWorkbook>b__1()
в Microsoft.Mashup.Client.Excel.Shim.NativeWorkbookStorageServices.Microsoft.Mashup.Client.Excel.Shim.IDeferredStorageInvoker.InvokeDeferredStorageAction(IWorkbook workbook, Action action)
в Microsoft.Mashup.Client.Excel.Shim.NativeCoAuthServices.InvokeCoauthAction(IWorkbook workbook, UndoableActionType actionType, Action action)
в Microsoft.Mashup.Client.Excel.Shim.NativeCoAuthServices.InvokeCoauthAction(IWorkbookIdentity workbookIdentity, UndoableActionType actionType, Action action)
в Microsoft.Mashup.Client.Excel.Fill.FillManager.ForEachFillSessionByWorkbook(Action`1 action)
в Microsoft.Mashup.Client.Excel.Fill.FillManager.CleanUpForWorkbook(Func`2 needsCleanup)
в Microsoft.Mashup.Client.Excel.Fill.PassiveFillManager.OnWorkbookClose(IWorkbook workbook, Boolean isWorkbookClosed)
в Microsoft.Mashup.Client.Excel.NativeEventHandler.PerformCleanupForWorkbook(IntPtr workbookPointer, Boolean isWorkbookClosed)
в Microsoft.Mashup.Client.Excel.NativeEventHandler.<>c__DisplayClass21_0.<OnWorkbookClose>b__0()
в Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, Action action)
Stack Trace Message:
Не удалось получить свойство "getScrollTop" ссылки, значение которой не определено или является NULL
Invocation Stack Trace:
в Microsoft.Mashup.Host.Document.ExceptionExtensions.GetCurrentInvocationStackTrace()
в Microsoft.Mashup.Client.UI.Shared.StackTraceInfo..ctor(String exceptionStackTrace, String invocationStackTrace, String exceptionMessage)
в Microsoft.Mashup.Client.UI.Shared.FeedbackErrorInfo..ctor(String message, Exception exception, Nullable`1 stackTraceInfo, String messageDetail)
в Microsoft.Mashup.Client.UI.Windows.UIHost.RaiseErrorDialog(IWindowHandle activeWindow, FeedbackPackageInfo feedbackPackageInfo, Exception e, LocalizedString dialogTitle, LocalizedString dialogMessage, Boolean useGDICapture)
в Microsoft.Mashup.Client.Excel.Native.NativeUserFeedbackServices.ReportException(IWindowHandle activeWindow, IUIHost uiHost, FeedbackPackageInfo feedbackPackageInfo, Exception e, Boolean useGDICapture)
в Microsoft.Mashup.Client.UI.Shared.UnexpectedExceptionHandler.<>c__DisplayClass14_0.<HandleException>b__0()
в Microsoft.Mashup.Host.Document.SynchronizationContextExtensions.SendAndMarshalExceptions(SynchronizationContext context, Action callback)
в Microsoft.Mashup.Client.UI.Shared.UnexpectedExceptionHandler.HandleException(Exception e)
в Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, Action action)
в Microsoft.Mashup.Client.Excel.NativeEventHandler.OnWorkbookClose(IntPtr workbookPointer)
в Microsoft.Mashup.Client.Excel.NativeWorkbookCallbacks.<>c__DisplayClass8_0.<OnWorkbookCloseCallback>b__0()
в Microsoft.Mashup.Client.Excel.Native.NativeExcelCallbackInvoker.InvokeAndReturnHResult(Action action)
в Microsoft.Mashup.Client.Excel.NativeWorkbookCallbacks.OnWorkbookCloseCallback(IntPtr workbookPointer)
в Microsoft.Mashup.Client.UI.Windows.HostedWebBrowser.HostedWebBrowserSite.Microsoft.Mashup.Client.UI.Windows.HostedWebBrowser.IInternetSecurityManager.GetSecurityId(String pwszUrl, IntPtr pbSecurityId, UInt32& pcbSecurityId, UInt32 dwReserved)
InnerException0.Stack Trace Message:
Не удалось получить свойство "getScrollTop" ссылки, значение которой не определено или является NULL
InnerException0.Stack Trace:
(at :1:1)
TypeError: Не удалось получить свойство "getScrollTop" ссылки, значение которой не определено или является NULL
at eval code (eval code:1:1)
InnerException0.Invocation Stack Trace:
в Microsoft.Mashup.Host.Document.ExceptionExtensions.GetCurrentInvocationStackTrace()
в Microsoft.Mashup.Client.UI.Shared.StackTraceInfo..ctor(String exceptionStackTrace, String invocationStackTrace, String exceptionMessage)
в Microsoft.Mashup.Client.UI.Shared.FeedbackErrorInfo.GetFeedbackValuesFromException(Exception e, String prefix)
в Microsoft.Mashup.Client.UI.Shared.FeedbackErrorInfo.GetFeedbackValuesFromInnerExceptions(Exception e, Int32 depth)
в Microsoft.Mashup.Client.UI.Shared.FeedbackErrorInfo.CreateAdditionalErrorInfo(Exception e)
в Microsoft.Mashup.Client.UI.Shared.FeedbackErrorInfo..ctor(String message, Exception exception, Nullable`1 stackTraceInfo, String messageDetail)
в Microsoft.Mashup.Client.UI.Windows.UIHost.RaiseErrorDialog(IWindowHandle activeWindow, FeedbackPackageInfo feedbackPackageInfo, Exception e, LocalizedString dialogTitle, LocalizedString dialogMessage, Boolean useGDICapture)
в Microsoft.Mashup.Client.Excel.Native.NativeUserFeedbackServices.ReportException(IWindowHandle activeWindow, IUIHost uiHost, FeedbackPackageInfo feedbackPackageInfo, Exception e, Boolean useGDICapture)
в Microsoft.Mashup.Client.UI.Shared.UnexpectedExceptionHandler.<>c__DisplayClass14_0.<HandleException>b__0()
в Microsoft.Mashup.Host.Document.SynchronizationContextExtensions.SendAndMarshalExceptions(SynchronizationContext context, Action callback)
в Microsoft.Mashup.Client.UI.Shared.UnexpectedExceptionHandler.HandleException(Exception e)
в Microsoft.Mashup.Host.Document.ExceptionHandlerExtensions.HandleExceptions(IExceptionHandler exceptionHandler, Action action)
в Microsoft.Mashup.Client.Excel.NativeEventHandler.OnWorkbookClose(IntPtr workbookPointer)
в Microsoft.Mashup.Client.Excel.NativeWorkbookCallbacks.<>c__DisplayClass8_0.<OnWorkbookCloseCallback>b__0()
в Microsoft.Mashup.Client.Excel.Native.NativeExcelCallbackInvoker.InvokeAndReturnHResult(Action action)
в Microsoft.Mashup.Client.Excel.NativeWorkbookCallbacks.OnWorkbookCloseCallback(IntPtr workbookPointer)
в Microsoft.Mashup.Client.UI.Windows.HostedWebBrowser.HostedWebBrowserSite.Microsoft.Mashup.Client.UI.Windows.HostedWebBrowser.IInternetSecurityManager.GetSecurityId(String pwszUrl, IntPtr pbSecurityId, UInt32& pcbSecurityId, UInt32 dwReserved)
1.
"id": "2126209591897730228" уникальный ID публикации?
"shortcode": "B2B0FvTF6y0" уникальный код публикации?
"gating_info": null
"fact_check_overall_rating": null
"fact_check_information": null
"media_preview": "ABcq6WlrkpXm2EhjjI/iPXt9eOlSB7oeuP8AroP8a"
"taken_at_timestamp": 1567689692 как я понял, это время когда была опубликована публикация, только как привести этот код в нормальное время?
"edge_media_to_caption":
"accessibility_caption":
"felix_profile_grid_crop":
"encoding_status":
"is_published": true для чего им эта логическая инфа? :)
"title": подпись к видео?
2.
Чем отличаются:
1. "edge_liked_by": 33
2. "edge_media_preview_like": 33