vbaで特定の名前リストからExcelファイルを作成する

Question

指定した名前のセットを使用してExcelファイルを作成します。 A1でNames.xlsに保存されている

考える名前：A8 =

1. ウォール-CMU
2. ウォール - エクステリアサイディング
3. ウォール - - 断熱
4. パイプ - 銅ウォール
5. 絵画
6. パイプ - ダクタイル鋳鉄
7. パイプ - CPVC
8. タンク - ナトリウム硫酸水素

私は、新しい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