创build一个新的Excel工作簿

有人可以帮我用下面的代码：

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

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

我想dynamic创build一个新的工作簿，然后添加新的选项卡：

 NewOutputFile.Sheets.Add ("New tab") 

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

Answer 1

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

或者如果你想添加一个工作表作为最后的工作表：

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