Vba 函数调用许多其他函数

我需要登录到一个网站，并做很多事情，如更新或刮数据。但是，我不想有几个登录代码，而是希望将所有代码汇总成一个，并根据给定的信息使用它访问其他情况。例如，我有一个登录代码，它调用：

 Public Function LoginPhase(FunctionKey, KeyX)
 ...
 codes
 ...

 Call FunctionKey(KeyX)
 DoEvents

 ...
 End Function

Sub UpdateAcc_Click()

Call LoginPhase(UpdateFunction, 132)

End Sub

Sub UpdateAcc_Click()

Call LoginPhase(DataFunction, 132)

End Sub

并有一个按钮，可调用：

 Public Function LoginPhase(FunctionKey, KeyX)
 ...
 codes
 ...

 Call FunctionKey(KeyX)
 DoEvents

 ...
 End Function

Sub UpdateAcc_Click()

Call LoginPhase(UpdateFunction, 132)

End Sub

Sub UpdateAcc_Click()

Call LoginPhase(DataFunction, 132)

End Sub

另一个按钮调用：

 Public Function LoginPhase(FunctionKey, KeyX)
 ...
 codes
 ...

 Call FunctionKey(KeyX)
 DoEvents

 ...
 End Function

Sub UpdateAcc_Click()

Call LoginPhase(UpdateFunction, 132)

End Sub

Sub UpdateAcc_Click()

Call LoginPhase(DataFunction, 132)

End Sub

当然还有一些函数代码，它们被称为

UpdateFunction

和

DataFunction

---

我怎样才能让它按我想要的方式工作？

你是说这样的吗

Public Function LoginPhase(FunctionKey, KeyX)

Select Case FunctionKey
    Case "UpdateFunction"
        UpdateFunction KeyX
    Case "DataFunction"
        DataFunction KeyX
    Case Else
        MsgBox "FunctionKey """ & FunctionKey & """ is unknown"
End Select

End Function

---

如果在类模块（即ThisWorkbook）中定义所有函数，则可以使用CallByName调用它们，如图所示（该链接与VB6有关，但与vba相同）