问：基于来自同一目录的文件名在同一目录上创建文件夹

Question

我正在建立一个宏，该宏在创建文件夹时将其命名为与同一目录中的excel文件相同。希望这些文件夹将在与excel文件相同的目录中创建。创建文件夹后，我需要将excel文件移动到刚创建的文件夹中。

此过程可行吗？我是VBA的新手，到目前为止，我只能处理简单的格式设置和保存宏代码。我使用了下面的代码，并对其进行了一些微调，以完成文件夹创建部分，但似乎无法使其正常工作。

strSource_Dir = ThisWorkbook.Path
strTarget_Dir = ThisWorkbook.Path

strFilename = Dir(strSource_Dir & "*.xslx")

Do While strFilename <> ""
    strSourcePath = strSource_Dir & strFilename
    strSubfolder = strTarget_Dir & Left(Right(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 24), Len(Right(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 24)) - 4)
    strTargetPath = strSubfolder & "\" & strFilename

    MkDir strSubfolder

Name strSourcePath As strTargetPath

    strFilename = Dir()
Loop