创建一个新的Excel工作簿

时间:2012-09-10 13:18:37

标签: excel vba excel-vba

有人可以帮助我使用以下代码:

Dim NewOutputFile As Workbook
Set NewOutputFile = Workbooks.Add(FileName & ".xls")

其中FileName = "C:\Documents and Settings\me\My Documents\file.xls"

我想动态创建一个新工作簿,然后添加新标签:

NewOutputFile.Sheets.Add ("New tab")

当我说“工作簿”时编辑我的意思是一个新的Excel文件

1 个答案:

答案 0 :(得分:7)

NewOutputFile.Sheets.Add().Name= "New tab"

或者,如果您要将工作表添加为最后一个工作表:

NewOutputFile.Sheets.Add(After:=NewOutputFile.Sheets(NewOutputFile.Sheets.Count)).Name = "New tab"