Здравствуйте. Я пытаюсь написать скрипт, который будет вызывать функцию для обновления sh графиков каждые 30 секунд. Первая предоставленная функция работает, просто сообщая машине запускать мою другую функцию «RefreshCharts» через 30 секунд. Однако проблема в моей подпрограмме RefreshCharts заключается в том, что при запуске сценария диаграммы не обновляют sh. Сначала у меня просто была функция, в которой была только refre sh .all, но она не обновляла диаграммы, хотя когда я записывал макрос в excel, это то, что он давал мне, и тогда он работал, но не при обновлении данные (данные извлекаются с отдельного листа), прямо сейчас я попытался провести l oop через каждый график в рабочей книге и попытался выяснить, обновятся ли они, если я напишу, что они должны обновить sh в l * 1008. * но все же они не обновляются. Ниже приведен код, который я использую, любая помощь будет принята с благодарностью.
Sub myTime()
Application.OnTime Now + TimeValue("00:00:30"), "RefreshCharts"
End Sub
Sub RefreshCharts()
Workbooks.Open Filename:="C:\Users\mansah57\Desktop\Malek Excel\refresh\2019 EXCEL Filling Daily Production Tracking.xlsx"
Dim myChart As ChartObject
For Each myChart In ThisWorkbook.Charts
myChart.Chart.Refresh
'Debug.Print "hit"
Next myChart
Application.ScreenUpdating = True
Workbooks("2019 EXCEL Filling Daily Production Tracking.xlsx").Close SaveChanges:=False
Call myTime
End Sub