Создание файлов Excel из списка имен с помощью vba

Question

Я хочу создать файлы excel с заданным набором имен.

Указанные имена хранятся в Names.xls на A1: A8 =

1. стена -CMU
2. Стена - Картина
3. стены - Внешний сайдинг
4. Стена - Изоляция
5. трубы - медь
6. Труба - ковкий чугун
7. Труба - CPVC
8. Tank - Бисульфитная натрия

Я хочу, чтобы создать новый Excel файл, переименовать его на основе данного списка имен, сохранить и закрыть его, а затем перейти к следующему файлу.

Код ниже только для создания первого файла:

Sub AddNewWorkbook1() 
    'Adding New Workbook 
    Workbooks.Add 
    'Saving the Workbook 
    ActiveWorkbook.SaveAs Filename:="C:\Users\goktem\Desktop\Change Orders\Wall - CMU.xls" 
    Close 
End Sub 

Мне нужно написать код, чтобы выбрать имя файла из заданного списка имен и создать цикл.

Как я могу это сделать?

Answer 1

Вам нужно будет сыграть с тем, где находится список и т. Д., Но просто создайте простой цикл.

Sub AddNewWorkbook1() 
Dim wbName as String 

'Adding New Workbook 
    For i = 1 to 8 
     wbName = Cells(i, 1).Value 
     Workbooks.Add 
'Saving the Workbook 
     ActiveWorkbook.SaveAs Filename:="C:\Users\goktem\Desktop\Change Orders\" & wbName & ".xls" 
     Close 
    Next i 
End Sub