VBA GetOpenFileName误差

Question

我有一个宏，它使用GetOpenFileName()从用户那里获取excel文件。

Sub openFile()

Dim wb As Workbook, wbName As Variant

wbName = Application.GetOpenFilename("Excel Files,*.xl*;*.xm*")

If wbName <> False Then
    Set wb = Workbooks.Open(wbName)
End If

wb.Close False

End Sub

问题是，在宏运行之后，我无法移动或重命名包含所选文件的文件夹。我可以重命名文件，但不能重命名文件夹，除非我用宏关闭worbook。你有什么想法吗？

Answer 1

GetOpenFilename将“当前”目录更改为对话框中指定的目录。

不可能更改或删除当前Excel应用程序对象的“当前”目录的目录名。

尝试以下修复方法：

Sub openFile()

    Dim wb As Workbook, wbName As Variant

    wbName = Application.GetOpenFilename("Excel Files,*.xl*;*.xm*")

    If wbName <> False Then
        Set wb = Workbooks.Open(wbName)
        wb.Close False
    End If

    'Change "current" directory
    ChDrive "C"
    ChDir "C:\"

End Sub