GetOpenFileName VBA

Question

使用VBA在excel工作表上添加文件时，如何通过单击按钮指定目录？我编写了下面的代码来添加文件，但我希望向用户指定文件位于某个目录中，例如，C:\Users\sal\Desktop\Work\ files \Doc，这样当他添加文件时，他将被定向到名为"Doc“的文件夹，他可以在该文件夹中添加他想要的文件。

    Private Sub CommandButton1_Click()
    repertoire = Application.GetOpenFilename()
    End Sub

Answer 1

使用ChDir

Private Sub CommandButton1_Click()
    
    ChDir "C:\Users\sal\Desktop\Work\Files\Doc"
    repertoire = Application.GetOpenFilename()

End Sub