Создание папок с именами столбцов в Excel - VBA
Формулировка задачи:
Доброго дня! Есть 2 вопроса)
1. Имеется таблица Excel вида:
Малышева 8 Марта Восточная
558784 16794 989
583107 38427 93074
3977619 46592 425452
3977627 84070 4658827
4205923 84780 5352510
можно ли создать макрос который будет создавать скажем в папке С:\Reestr
подпапки с именами столбцов.
2. Текст в ячейках ниже - название pdf файлов лежащих в C:\in
можно ли дописать первый макрос так что-бы при его запуске
файлы из "In" перемещались в созданный каталог с именем столбца.
Ручками все это делать совсем не вариант, т.к. пакость каждый месяц и
состоит из ~30000 названий файлов)))
Спасибо заранее)
Решение задачи: «Создание папок с именами столбцов в Excel»
textual
Листинг программы
Declare Function MakeSureDirectoryPathExists Lib "Imagehlp.dll" (ByVal strPath As String) As Long 'проверяет наличие папки с указанным путем и создает, если ее нет 'возвращает 0, если папку создать не удалось и не-0, если ОК Sub Solvein() Const FLDR_FROM = "C:\in\" Const FLDR_TO = "C:\Reestr\" Dim c As Range, d As Range On Error Resume Next For Each c In Range("A1", Cells(1, Columns.Count).End(xlToLeft)) If MakeSureDirectoryPathExists(FLDR_TO & c & "\") Then For Each d In Range(c.Offset(1), Cells(Rows.Count, c.Column).End(xlUp)) Name FLDR_FROM & d & ".pdf" As FLDR_TO & c & "\" & d & ".pdf" If Err Then Err.Clear d.Interior.Color = vbRed End If Next Else c.Interior.Color = vbRed End If Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д