Excel vba：创build文件夹不起作用

我试图通过VBA在testing文件夹中创build文件夹，但它不起作用。 我不明白为什么 – 这些命令似乎是合法的。

Option Explicit Sub createFolders() Dim homePath As String Dim folderName As String Dim foldersNumber As Long homePath = ThisWorkbook.Worksheets("setup").Cells(1, 2).Value & "\" folderName = ThisWorkbook.Worksheets("setup").Cells(2, 2).Value Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim i As Long For i = 1 To foldersNumber If Not fso.FolderExists(homePath & folderName & i) Then fso.CreateFolder (homePath & folderName & i) Else MsgBox ("Folder exits") End If Next MsgBox ("DONE") End Sub