在Excel中使用Visual Basic更新Web查询

Question

我目前有一个webquery，在刷新连接后，我必须编辑它以使其可用。当我创建宏时，它没有记录刷新连接部分，如果它不起作用，我的记录数量每次都会下降。有没有人知道我可以使用Visual Basic插入到宏中以使其首先刷新Webquery连接。 目前，宏看起来像这样

连接的名称是Standings

 Sub Baseball()
'
' Baseball Macro
'

'
    Range("1:3,10:10,16:16,22:24,30:30,36:36,42:46").Select
    Range("A42").Activate
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Team"
    Rows("1:1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveWorkbook.Save
End Sub

Answer 1

  

有没有人知道我可以使用Visual Basic插入宏以使其首先刷新Webquery连接

     

...

     

连接的名称是Standings

看起来像......

ActiveWorkbook.Connections("Standings").Refresh

......应该这样做。