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