我想知道 Excel 用vba 如何创建目录选择按钮。 就是单击按钮找到目标文件的路径

下面是控件CommandButton1，单击时执行的代码：
Private Sub CommandButton1_Click()
Application.Calculation = xlCalculationManual '手动重算
Dim theSh As Object
Dim theFolder As Object
Set theSh = CreateObject("shell.application")
Set theFolder = theSh.BrowseForFolder(0, "", 0, "")
If Not theFolder Is Nothing Then
Range("C3") = theFolder.Items.Item.Path '在当前表A1单元格录入文件夹路径
End If
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/rf2rx3fe7.html