VBA
Sub OpenFile() Dim filePath As String filePath = ThisWorkbook.Path & test.xlsx Workbooks.Open (filePath) End Sub。这里的ThisWorkbook.Path获取的就是当前工作簿的路径，然后通过与文件名的组合就形成了完整的相对路径，从而可以打开指定文件。如果是要打开文件夹，在
VBA中并没有直接打开文件夹的函数，但你可以通过Shell函数来调用系统命令来打开。例如，Sub OpenFolder() Dim folderPath As String folderPath = ThisWorkbook.Path Shell explorer.exe & folderPath, vbNormalFocus End Sub，这样就可以在资源管理器中打开相对路径对应的文件夹了。
