vba文本框从浏览

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参数全球。

昏暗它作为公共一个标准模块中。

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