使用 vba 从给定名称列表创建 Excel 文件

Question

我想创建具有给定名称集的 excel 文件。

给定名称存储在 Names.xls A1: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