Question

我对VBA非常陌生，并且在我相当肯定的基础上挣扎。在Excel中，我想选择“浏览”，选择一个文件夹，文件夹将填充在文本框中。

浏览功能正常，可以让我选择一个文件夹，但是我无法使用所选文件夹填充文本框。

Private Sub CommandButton2_Click()
Dim FName As String
 FName = BrowseFolder(Caption:="Select A Folder", InitialFolder:="C:\MyFolder")
 If FName = vbNullString Then
    Debug.Print "No folder selected."
 Else
    Debug.Print "Folder Selected: " & FName
 End If
End Sub



Private Sub TextBox2_Change()
    TextBox2.Text = FName.SelectItems(0)
End Sub

Answer 1

您需要 FName 全球。

将暗淡作为标准模块中的 Public 。

Answer 2

Private Sub CommandButton2_Click()
Dim FName As String
 FName = BrowseFolder(Caption:="Select A Folder", InitialFolder:="C:\MyFolder")
 If FName = vbNullString Then
    Debug.Print "No folder selected."
 Else
    Debug.Print "Folder Selected: " & FName
    Textbox2.value = FName.SelectItems(0)
 End If
End Sub

来自浏览的vba文本框

2 个答案: