如何在 Excel 中通过 VBA 自动选择数据源

Question

我有一个包含 4 张纸的 excel 文件。每个工作表都包含一个连接到 Oracle 数据库的数据透视表。我需要所有数据透视表在凌晨 4 点自动更新。为此，我有一个宏。问题是宏要求我手动选择数据源。有没有办法让宏自动选择数据源？

当我执行宏时，它会显示这个窗口 4 次：

然后：

我需要宏选择被标记的那个 (PRODUCCION DWH)。

这是宏：

Sub Actualiza_Reporte()

    Dim pt As PivotTable    
    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables      
            pt.RefreshTable

        Next pt
    Next ws

    ThisWorkbook.Save   ' Guardamos el archivo
    ThisWorkbook.Close  ' Para cerrar el archivo
    Application.Quit    ' Para cerrar Excel
End Sub

我需要自动更新 4 张工作表，而不要求我选择数据源。

感谢和问候。

Answer 1

除了使用宏，您还可以使用 Excel 2016 及更高版本默认包含的电源查询：

依次选择 Data、New Query、Databases、Oracle 并创建到 Oracle 的连接。

那么你只需要像这样设置刷新间隔：

再次单击数据，然后单击连接，然后单击设置，然后在 X 分钟后更新。

如果你想控制oracle power query更新的准确时间，只需配置这个宏：

Sub RefreshQuery()
Dim con As WorkbookConnection
Dim Cname As String

For Each con In ActiveWorkbook.Connections
    If Left(con.name, 8) = "Query - " Then
    Cname = con.name
        With ActiveWorkbook.Connections(Cname).OLEDBConnection
            .BackgroundQuery = False  'or true, up to you
            .Refresh
        End With
    End If
Next
End Sub

在此处找到代码：https://stackoverflow.com/a/38653892/11971785