Excel VBA создает папку с использованием двух столбцов ячейки

Question

Я пытаюсь создать папки с помощью команды VBA MkDir. У меня есть столбец рабочего листа с 001, 002, 003 ... и рядом с ним столбец с названиями городов (например, Лондон, Бирмингем, Манчестер ...; Я пытаюсь создать папки, которые go 001 Лондон, 002 Бирмингем и др. c

Я могу создавать папки, используя значения из одного столбца, но не двух; Я могу сделать их под названием 001, 002 et c или London, Birmingham et c. Если я помещу города и числа в одну ячейку, я теряю начальные нули, которые я хочу сохранить.

Какой код следует использовать для объединения значений из двух столбцов в имя папки, т. Е. Как использовать VBA для создания папок 001 Лондон, 002 Бирмингем? Спасибо

Answer 1

Sub CreateDir()
 Set activSheet = ActiveWorkbook.ActiveSheet
 p1 = ActiveSheet.Range("C4").Value
 p2 = ActiveSheet.Range("D4").Value
 newFolder = p1 + "_" + p2
 MkDir newFOlder
 Debug.Print "New folder under: " + CurDir() + newFOlder

 '' RmDir newFOlder

End Sub

введите описание изображения здесь