否则如果命令部分出错

Question

如果没有 If，我无法修复给出 Else 的代码：

Sub aRefreshData()
If Worksheets("Control tab").Range("$I").Value = "OFF" Then MsgBox "Enable Connection before refresh"
Else
 ActiveWorkbook.Connections("server DB").Refresh
End If
End Sub

Answer 1

您在 Else

之后漏掉了“:”

Sub aRefreshData()
If Worksheets("Control tab").Range("$I").Value = "OFF" Then 
    MsgBox "Enable Connection before refresh"
Else:
    ActiveWorkbook.Connections("server DB").Refresh
End If
End Sub

否则如果命令部分出错

else if error on Command part

command

if-statement