vba로 주어진 이름 목록에서 Excel 파일 만들기

Question

주어진 이름 집합으로 Excel 파일을 만들고 싶습니다.

을 감안할 때 이름은 A1에서 Names.xls에 저장 : A8 =

1. 벽 -CMU에게
2. 벽 - 외부 사이딩
3. 벽 - - 절연
4. 파이프 - 구리
5. 벽 그림
6. 파이프 - 연성 철
7. 파이프 - CPVC
8. 탱크 - 나트륨 중 황산염

나는 새로운 엑셀 파일을 만들 수는 주어진 이름의 목록을 기반으로 이름을 변경, 저장하고 닫은 후 다음 파일로 이동합니다.

아래의 코드는 첫 번째 파일 만드는 것입니다 :

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