Создание папок с именами столбцов в 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