刷新Excel加载项后-使用VBA代码

Question

我有一个报告，我的团队必须登录到Excel加载项，在下拉列表中更改选择，刷新Excel加载项并打印（或保存为pdf），然后重复进行，直到刷新并打印了所有选择

应该注意的是，每次选择刷新数据都需要花费一些时间，因此代码必须具有足够的“耐心”，才能正确刷新和打印（或保存）该过程。

我在VBA方面的经验有限，并且曾尝试将不同的代码用于不同的目的。

Private Sub CommandButton1_Click()
    Sub Iterate_Through_data_Validation()
    Dim dvCell As Range
    Dim inputRange As Range
    Dim c As Range


    'Which cell has data validation
       Set dvCell = Worksheets("Report_(2019_Season)").Range("K4")
    'Determine where validation comes from
       Set inputRange = Evaluate(dvCell.Validation.Formula1)

    For Each c In inputRange
        dvCell = c.Value
        'add some print page code here

        Dim GT As GreentreeExcelAddin
        Set GT = Application.ExcelAddIns.Item("Greentree.ExcelAddIn").Object
        GT.Refresh ("Report_(2019 Season)")

    Next c

End Sub

我希望下拉框中的所有选择（共215个）已分别刷新和打印（或保存为pdf）。