With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ActiveSheet.TextBox1.Value .Title = "请选择目录" If .Show Then ActiveSheet.TextBox1.Value = .SelectedItems(1) & "\" End If End With