使用文本框作为过程（子）输入参数

Question

我的代码有些麻烦。 如果您能帮助我解决我的问题，我会很高兴。

这是我的工作表（名称为SetSheet）的代码部分； cmdSelProjectDir_Click()是我的ActiveX命令按钮，我尝试选择我的工作目录。 SetSheet.txtSetWorkDir是我的ActiveX文本框，将选定的目录路径写入其中。 GetFolder(txtDir)是我从“设置”模块中调用的过程。

但是我没有以正确的方式构建它会给出类似“ Type Mismatch”的错误。 但是我不知道如何将这种类型的结构应用于代码，因为我还将在其他工作表上使用此GetFolder子过程。

'/SetSheet Page
    Sub cmdSelProjectDir_Click()
    Dim txtDir As TextBox
    Set txtDir = SetSheet.txtSetWorkDir
    Call Settings.GetFolder(txtDir)
    End Sub

这是我的程序；

'/GetFolder procedure from Settings module.

    Sub GetFolder(txtDir As TextBox)
        Dim fdo As FileDialog
        Dim sDir As String
        Set fdo = Application.FileDialog(msoFileDialogFolderPicker)
        With fdo
            .Title = "Select a Directory"
            .AllowMultiSelect = False
            .InitialFileName = Application.DefaultFilePath
            If .Show <> -1 Then GoTo NextCode
            sDir = .SelectedItems(1)
            txtDir.Value = sDir
            Debug.Print txtDir.Value; sDir

        End With
    NextCode:
    '    GetFolder = sDir
        Set fdo = Nothing
    End Sub

Answer 1

您必须为ActiveX文本框使用MSForms.TextBox而不是TextBox ：

Dim txtDir As MSForms.TextBox

和

Sub GetFolder(txtDir As MSForms.TextBox)