Excel VBA刷新特定命名格式工作簿连接报错，需仅更新最新连接

看起来你这段VBA代码的几个小问题导致了报错，我帮你梳理下问题点，再给你修正后的完整代码：

代码里的核心错误点 #

• 未定义的Today函数：VBA里没有内置的Today()函数，获取当前日期应该用Date或者Now()（后者包含时间），你代码里写的Day(Today)会直接触发编译错误。
• 未闭合的条件语句：你写了If Day(Today) >=10 Then，但后面没有对应的End If，这会导致代码结构不完整，触发语法错误。
• 未处理连接不存在的情况：如果当天的连接名称不存在，直接调用.Refresh会抛出“连接不存在”的运行时错误，最好先做存在性判断。
• 代码截断问题：你的代码最后PivotTables("P...明显没写完，这也会导致编译失败。

修正后的完整代码 #

Sub RefreshLatestConnection()
    Dim connName As String
    Dim conn As WorkbookConnection
    
    ' 关闭屏幕更新，提升运行速度
    Application.ScreenUpdating = False
    
    ' 生成符合格式的连接名称：Messergebnisse-yyyy-m-dd
    connName = "Messergebnisse-" & Format(Date, "yyyy-m-dd")
    
    ' 先检查连接是否存在，避免报错
    On Error Resume Next
    Set conn = ActiveWorkbook.Connections(connName)
    On Error GoTo 0
    
    If Not conn Is Nothing Then
        ' 刷新指定连接
        conn.Refresh
        ' 刷新目标工作表的透视表（请替换成你的透视表实际名称）
        Sheets("OK").PivotTables("PivotTable1").RefreshTable
        MsgBox "最新连接及透视表已成功刷新！", vbInformation
    Else
        MsgBox "未找到连接：" & connName, vbExclamation
    End If
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

关键说明 #

1. 日期格式匹配：Format(Date, "yyyy-m-dd")会生成你需要的格式（比如2018-3-22），确保和你的连接命名规则完全一致。
2. 连接存在性检查：通过On Error Resume Next捕获连接不存在的情况，避免程序崩溃，同时给用户友好的提示信息。
3. 完整的流程控制：补上了屏幕更新的开关（提升运行效率），以及透视表刷新的完整代码——记得把"PivotTable1"替换成你实际的透视表名称。
4. 无效条件移除：你原来的If Day(Today) >=10 Then看起来没有实际作用（Format函数已经自动处理了日期的单双位数格式），所以直接移除了；如果这个条件有特殊业务逻辑，你可以补充说明，我再帮你调整。

内容的提问来源于stack exchange，提问作者Suraj Ramchand