无法在VBA中使用SystemFileObject创建新文件夹

Question

我试图在我的工作簿所在的同一文件夹中创建一个新文件夹，但我一直遇到运行时错误'52':&;错误的文件名或数字&;。有人知道怎么解决这个问题吗?

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder (ThisWorkbook.Path & "Test")

我试过使用绝对路径，但那不起作用。"ThisWorkbook.Path"在我的代码的不同部分工作。我也试过正斜杠和反斜杠，但没有任何区别。

Answer 1

以防有人读到这篇文章并处于类似的情况:我认为问题是我在SharePoint中制作这个Excel文档。Excel似乎不知道如何处理SharePoint文件的相对文件路径。我的解决方法如下:

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim UserName As String
UserName = VBA.Environ("username")
Dim sourceFilePath As String
sourceFilePath = "C:Users" & UserName & "folderfolderfolder"
FSO.CreateFolder (sourceFilePath & "Test")

我必须更改文件夹名称，因为这是一个与工作相关的项目。