調用多種其他功能的函數

Question

我需要登錄到一個網站，並做許多事情，如更新或刮擦數據。但是，我不想有幾個登錄代碼，而是將所有信息彙總成一個，並根據所提供的信息使用它來訪問其他情況。例如，我有它調用一個登錄碼：

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。

如何讓它按我打算的方式運作？

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來調用它們如圖所示here（鏈接約爲VB6，但它是用VBA相同）。

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

CallByName ThisWorkbook, FunctionKey, vbMethod, KeyX 
DoEvents 

... 
End Function