有人可以用以下代码帮助我吗:
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文件
最佳答案
NewOutputFile.Sheets.Add().Name= "New tab"
或者,如果您要将工作表添加为最后一个工作表:
NewOutputFile.Sheets.Add(After:=NewOutputFile.Sheets(NewOutputFile.Sheets.Count)).Name = "New tab"