否则命令部分

Question

我无法修复此代码，而Else没有If：

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

Answer 1

你错过了＆＃34;：＆＃34;在其他人之后

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