如何使用Outlook VBA设置Excel GetOpenFilename的默认打开目录

原有代码失效核心原因：ChDrive、ChDir修改的是当前 Outlook VBA 运行环境的工作目录，不会同步到你独立创建的 Excel 实例中，因此设置的路径无法被GetOpenFilename读取。

方案1：修改 Excel 实例默认路径（适配原有代码逻辑） #

直接修改你创建的 Excel 实例的DefaultFilePath属性即可实现默认目录设置，操作完成后可还原用户原有 Excel 默认路径，不会影响用户日常使用：

Sub Sample2_Fixed()
    Dim myFile As Variant
    Dim i As Integer
    Dim myApp As Excel.Application
    Dim originalDefaultPath As String
    
    Set myApp = New Excel.Application
    ' 保存用户原有默认路径
    originalDefaultPath = myApp.DefaultFilePath
    
    On Error Resume Next ' 规避目标路径不存在的报错
    ' 设置目标路径为默认打开目录
    myApp.DefaultFilePath = "H:\99 - Temp"
    On Error GoTo 0

    ' 选择文件逻辑保持不变
    myFile = myApp.GetOpenFileName(MultiSelect:=True)

    If myFile <> False Then
        If IsArray(myFile) Then
            For i = LBound(myFile) To UBound(myFile)
                Debug.Print myFile(i)
            Next i
        Else
            Debug.Print myFile
        End If
    End If
    
    ' 还原用户原有默认路径，释放Excel对象避免后台残留
    myApp.DefaultFilePath = originalDefaultPath
    myApp.Quit
    Set myApp = Nothing
End Sub

注意：路径末尾无需加反斜杠，Excel 会自动处理路径格式。

方案2：使用 Excel FileDialog 对象（灵活性更高） #

如果需要自定义对话框标题、按钮文字、文件筛选规则等属性，可以直接使用 Excel 的 FileDialog 组件，可直接指定初始目录，无需修改实例全局默认路径：

Sub UseFileDialog()
    Dim i As Integer
    Dim myApp As Excel.Application
    Dim fd As FileDialog
    
    Set myApp = New Excel.Application
    Set fd = myApp.FileDialog(msoFileDialogFilePicker)
    
    With fd
        .Title = "请选择需要导入的文件"
        .ButtonName = "确认选择"
        .InitialFileName = "H:\99 - Temp\" ' 直接设置初始目录，末尾加反斜杠
        .AllowMultiSelect = True ' 允许多选
        ' 可选：设置文件筛选规则
        .Filters.Clear
        .Filters.Add "Excel文件", "*.xlsx;*.xls;*.xlsm"
        .Filters.Add "所有文件", "*.*"
        
        If .Show = -1 Then ' 点击确认按钮
            For i = 1 To .SelectedItems.Count
                Debug.Print .SelectedItems(i)
            Next i
        End If
    End With
    
    ' 释放对象
    Set fd = Nothing
    myApp.Quit
    Set myApp = Nothing
End Sub

适配业务代码的注意事项 #

• 两种方案均兼容32/64位 Outlook 2016，无需额外适配
• 若需要兼容不同版本Office环境，建议将Excel实例创建改为晚绑定（Set myApp = CreateObject("Excel.Application")），无需提前引用Excel类型库
• 建议提前用Dir("H:\99 - Temp\", vbDirectory)判断目标路径是否存在，避免设置失效

内容的提问来源于stack exchange，提问作者Andy M