Я устанавливаю макрос, который создает папки, называя их так же, как файлы 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