Добрый вечер,
Есть таблица с данными, в одном из столбцов этой таблице (Organization) содержаться повторяющиеся значения (April, May..)
Есть макрос, который разбивает эту таблицу на отдельные файлы, по содержащемся значению в столбце Organization.
Созданным файлам присваивается имя, как у значения, по которому они созданы. Файлы помещаются в папке, из которой открыт исходный файл.
Помогите пожалуйста добавить в макрос код, который будет создавать папку с таким же именем как у файла и помещать в нее этот файл.
Все созданные папки с файлами должны падать в папку, из которой открыт исходный файл-таблица, который разбивается.
во вложении исходный файл с макросом (Book5) и один из итоговых файлов (April)
Полагаю, что надо дописать эту часть, но как и чем не знаю. Помогите плиз.
Есть таблица с данными, в одном из столбцов этой таблице (Organization) содержаться повторяющиеся значения (April, May..)
Есть макрос, который разбивает эту таблицу на отдельные файлы, по содержащемся значению в столбце Organization.
Созданным файлам присваивается имя, как у значения, по которому они созданы. Файлы помещаются в папке, из которой открыт исходный файл.
Помогите пожалуйста добавить в макрос код, который будет создавать папку с таким же именем как у файла и помещать в нее этот файл.
Все созданные папки с файлами должны падать в папку, из которой открыт исходный файл-таблица, который разбивается.
во вложении исходный файл с макросом (Book5) и один из итоговых файлов (April)
Полагаю, что надо дописать эту часть, но как и чем не знаю. Помогите плиз.
| Код |
|---|
For i = 2 To rngList.Count
rngCrit.FormulaR1C1 = _
"=" & rngCol(1).Address(False, False, xlR1C1, True) & "=""" & rngList(i) & """"
With Workbooks.Add
With .Sheets(1)
rngTable.AdvancedFilter xlFilterCopy, rngCrit.Offset(-1).Resize(2), .[A1]
rngTable.Parent.Rows("1:3").Copy
.Rows("1:1").Insert Shift:=xlDown
.UsedRange.EntireColumn.AutoFit
End With
Application.DisplayAlerts = False
.SaveAs ThisWorkbook.Path & "\" & rngList(i), 51
Application.DisplayAlerts = True
.Close True
End With
Next i |
Изменено: - 18.07.2017 21:55:28
