如何获取刷新的单元格值，其中包含SQL Server中视图的值

Question

我想运行一个子程序，该子程序获取数据并设置标题，其中包含来自单元格的值，该单元格包含来自SQL Server视图中的值。必须首先刷新。

ThisWorkbook.RefreshAll

刷新包含日期的视图->正确（新）值显示在单元格中

ActiveWorkbook.Sheets(1).Range("A1").FormulaR1C1 = strTitel & " per: " & _
ActiveWorkbook.Sheets(2).Range("C2").Text 

在这里它应该获得新的日期值，但是在刷新之前它需要旧的日期值。我该如何强迫它获得新的价值

我也尝试了以下代码：

Set wk = ActiveWorkbook
wk.RefreshAll
wk.Sheets("Parameter").Calculate
Application.Wait (Now + TimeValue("0:00:01"))
MsgBox wk.Sheets("Parameter").Range("C2").Value

在这里，仅当Msgbox显示为旧值后，单元格才会刷新...