在Excel中使用Visual Basic更新Webquery

我目前有一个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

是否有人知道我可以使用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

看起来

ActiveWorkbook.Connections("Standings").Refresh

…应该这样做

是否有人知道我可以使用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

看起来

ActiveWorkbook.Connections("Standings").Refresh

---

…应该这样做。

谢谢！！！很高兴知道，虽然我没有使用VBA，而是决定在每次打开文件时强制更新连接。尽管如此，了解更多信息还是很好的。永远不知道什么时候有用。谢谢一群人。谢谢！！！很高兴知道，虽然我没有使用VBA，而是决定在每次打开文件时强制更新连接。尽管如此，了解更多信息还是很好的。永远不知道什么时候有用。谢谢你，伙计。