1

您好我正在尝试编写一个脚本,该脚本将调用一个函数以每 30 秒刷新一次图表。提供的第一个函数通过简单地告诉机器在 30 秒后运行我的另一个函数“RefreshCharts”来工作。然而,我在 RefreshCharts 子中遇到的问题是当我运行脚本时图表不会刷新。首先,我只有一个函数,其中只有 refresh.all ,但它并没有更新图表,即使我在 excel 中记录了一个宏,这就是它给我的,然后它可以工作,但当我更新数据时它没有(数据是从单独的工作表中提取的)现在我尝试遍历工作簿中的每个图表,并尝试查看如果我写了它们应该在循环中刷新但它们仍然没有更新,它们是否会更新。以下是我正在使用的代码,任何帮助将不胜感激。

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
4

0 回答 0