vba - 格式化函数错误

Question

我目前正在尝试更新具有以下格式的工作簿连接

消息传递-2018-3-22

我每天都链接一个文件，所以我只想更新最近的连接。

这是我一直在使用的代码，但它总是会出现错误:

Sub Refresh()

 Dim LDate As String
 LDate = Date

If Day(Today) >= 10 Then
 Application.ScreenUpdating = False
 ActiveWorkbook.Connections("Messergebnisse-" & format(Date,"yyyy-m-dd")).Refresh
 Sheets("OK").Select
 ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
 Sheets("Summary").Select

Else
 Application.ScreenUpdating = False
 ActiveWorkbook.Connections("Messergebnisse-" & LDate).Refresh
 Sheets("OK").Select
 ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
 Sheets("Summary").Select

End If
End sub

尝试使用日期变量和实际格式函数。

但是格式功能带有错误:

编译错误:

Wrong number of arguments or invalid property assignment

有任何想法吗？

Answer 1

编译错误是因为 If Day(Today) >= 10 Then .

应该是 If Day(Now) >= 10 Then
为了避免编译错误，写Option Explicit在您的模块/类/工作表顶部，在运行代码之前选择 Debug>Compile来自 VB 功能区。它总是会告诉您您的代码是否可以编译以及错误在哪里。

检查这个小样本:

Sub TestMe()
    MsgBox Day(Now)
End Sub