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

Question

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

给定名称存储在 Names.xls A1:A8 =

墙-CMU

墙 - 绘画

墙 - 外墙板

墙 - 绝缘

pipe - 铜

管道 - 球墨铸铁

管材-CPVC

jar - 硫酸氢钠

我想创建一个新的 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