[求助]利用FileDialog浏览文件夹时，如何设置默认打开路径

owxn

本人做了一个控件，利用它打开一个文件夹浏览对话框，并将所选定的文件夹路径存入工作表单元格中

控件及过程已成功建立，但每次打开浏览对话框时，均为excel默认文件夹下，现想实现默认路径为当前工作表所在位置

本来试图修改excel默认位置（先设置Application.DefaultFilePath＝当前工作表文件路径，最后再还原），也失败

附上代码，请求高人指点！

Sub mydir()

Dim myDialog As FileDialog, FSO As Object, myFolder As Object

Set myDialog = Application.FileDialog(msoFileDialogFolderPicker)

If myDialog.Show = -1 Then

Set FSO = CreateObject("Scripting.FileSystemObject")

Set myFolder = FSO.GetFolder(myDialog.InitialFileName)

Range("D10").Select

ActiveCell.FormulaR1C1 = myFolder

End If

End Sub

tianying

加一句：myDialog.InitialFileName = ThisWorkbook.path

owxn

你好，我曾经加过这样的语句，但是显示错误，出错地点为

Set myFolder = FSO.GetFolder(myDialog.InitialFileName)

是否因为myDialog.InitialFileName重复赋值？

xiangchendub

你这个code 没必要调用FileSystemObject
帮你改了一下

Sub mydir()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        If .Show = -1 Then
              Range("D10").FormulaR1C1 = .SelectedItems(1)
             'Range("D10").FormulaR1C1 = .InitialFileName
        End If
    End With
End Sub

owxn

你这个code 没必要调用FileSystemObject
帮你改了一下

Sub mydir()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        If .Show = -1 Then
              Range("D10").FormulaR1C1 = .SelectedItems(1)
             'Range("D10").FormulaR1C1 = .InitialFileName
        End If
    End With
End Sub

经测试成功，谢谢xiangchendub大哥

zzf_

Sub mydir()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Range("D10") & "\"
        If .Show = -1 Then
              Range("D10").FormulaR1C1 = .SelectedItems(1)
             'Range("D10").FormulaR1C1 = .InitialFileName
        End If
    End With
End Sub

是这样吧？

lvjialin

好想学习有实例吗楼主?????????????

lvjialin

楼主你是怎么了不回答好想学习啊

daphy123

这个有时候很实用啊