函数调用其他许多函数

我需要login到一个网站，做许多事情，如更新或刮擦数据。 但是，我并不是要有一些login代码，而是根据所给出的信息，将所有代码综合起来，并用它来访问其他情况。 例如，我有一个login代码，它调用：

Public Function LoginPhase(FunctionKey, KeyX) ... codes ... Call FunctionKey(KeyX) DoEvents ... End Function 

并有一个button，调用：

 Sub UpdateAcc_Click() Call LoginPhase(UpdateFunction, 132) End Sub 

和另一个button，其中调用：

 Sub UpdateAcc_Click() Call LoginPhase(DataFunction, 132) End Sub 

当然还有被称为UpdateFunction和DataFunction的函数代码。

我如何使它按我打算的方式运作？

Answer 1

你的意思是这样吗？

 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 

Answer 2

如果你在类模块（即ThisWorkbook）中定义了所有的函数，你可以使用CallByName来调用它们（链接是关于VB6的，但是和vba是一样的）。

 Public Function LoginPhase(FunctionKey, KeyX) ... codes ... CallByName ThisWorkbook, FunctionKey, vbMethod, KeyX DoEvents ... End Function