Nielsen Nitro系列（蓝莓系列）刷新

Question

我正在寻找VBA来刷新Nielsen Nitro系列。

Nielsen Nitro是一个从数据库中提取数据的应用程序。范围也称为蓝莓范围以刷新数据

我试过使用低于VBA，但它无法正常工作

Dim acnNitro As New ACNNITRO
Dim acnNitroUpdate As ACNielsenNitro.ACNNitroUpdate
Dim WS As Worksheet
Dim bret as Boolean
acnNitro.ParentApp = Application
acnNitroUpdate = acnNitro.ACNNitroUpdate
WS = ActiveSheet 'or Set WS = WorkSheets("My Sheet")
bret = acnNitroUpdate.UpdateAllNRanges(WS, ntrSelectGet)
acnNitro = Nothing
acnNitroUpdate = Nothing
WB = Nothing 

截图

我还提供了该范围的截图。

你可以建议我使用VBA代码吗？