在 VBA 中将变量从窗体传递到模块

我在表单上有以下按钮：

Private Sub CommandButton1_Click()
 Dim pass As String
 pass = UserForm1.TextBox1
 Unload UserForm1
End Sub

然后我有一个名为 Module1 的模块：

 Public Sub Login()

 ...

 UserForm1.Show
 driver.findElementByName("PASSWORD").SendKeys pass

 ...

End Sub

这个想法是用户在输入框中输入的任何密码都将分配给变量pass。然而我遇到的麻烦是通过pass从 UserForm1 进入 Module1 的 Login 子项。

我想添加类似的东西Module1.Login (pass)在卸载之前将其添加到我的表单中，它会起作用，但这似乎没有传递任何内容。任何帮助将非常感激。谢谢。

不要在用户窗体中声明变量。将其声明为Public在模块中。

Public pass As String

在用户表单中

Private Sub CommandButton1_Click()
    pass = UserForm1.TextBox1
    Unload UserForm1
End Sub

在模块中

Public pass As String

Public Sub Login()
    '
    '~~> Rest of the code
    '
    UserForm1.Show
    driver.findElementByName("PASSWORD").SendKeys pass
    '
    '~~> Rest of the code
    '
End Sub

您可能还想在调用之前添加额外的检查driver.find... line?

If Len(Trim(pass)) <> 0 Then

这将确保不会传递空白字符串。