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

Question

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

在A1：A8 =

中给出存储在Names.xls中的名称

1. Wall -CMU
2. 墙 - 绘画
3. 墙 - 外墙板
4. 墙 - 绝缘
5. 管道 - 铜
6. 管道 - 球墨铸铁
7. Pipe - 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