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

我想用给定的名字来创buildexcel文件。

给定名称存储在A1：A8 =的Names.xls中

1. 墙-CMU
2. 墙 – 绘画
3. 墙 – 外墙
4. 墙 – 绝缘
5. pipe – 铜
6. pipe – 球墨铸铁
7. pipe道 – CPVC
8. 坦克 – 硫酸氢钠

我想创build一个新的excel文件，根据给定的名称列表重命名它，保存并closures它，然后跳转到下一个文件。

下面的代码只是创build第一个文件：

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 

我需要编写一个代码来从给定的名称列表中select文件名并创build一个循环。

我怎样才能做到这一点？

Answer 1

你将需要玩清单等等，但只是创build一个简单的循环。

 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