下面是控件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