使VB脚本中的目录相对于运行macros的工作簿

我正在使用以下来创build一个文件夹：

Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") ' Create a new folder oFSO.CreateFolder "C:\MyFolder" 

但是我希望文件夹位置与运行代码的excel工作簿位于相同的位置。

Answer 1

您可以使用

 ThisWorkbook.Path 

返回当前工作簿的path。

像这样的东西：

 Dim oFSO As Object Set oFSO = CreateObject("Scripting.FileSystemObject") oFSO.CreateFolder ThisWorkbook.Path & "\MyFolder"