創建一個新的Excel工作簿

Question

有人可以幫助我使用以下代碼：

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文件

Answer 1

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

或者，如果要添加工作表作為最后一個工作表：

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