利用VBA創(chuàng)建新的工作簿
如果要用VBA創(chuàng)建新的工作簿，可以使用Add方法，如下面的代碼。Excel自動(dòng)將該工作簿命名為“BookN”，其中“N”是下一個(gè)可用的數(shù)字，同時(shí)新工作簿將成為活動(dòng)工作簿。
Sub AddOne()Workbooks.AddEnd Sub
另外，創(chuàng)建新工作簿更好的方法是將其分配給一個(gè)對(duì)象變量。例如下例中，由Add方法返回的Workbook對(duì)象分配給了對(duì)象變量“NewBook”。然后，又設(shè)置了“NewBook ”的若干屬性。
Sub AddNew()Set NewBook = Workbooks.AddWith NewBook.Title = "圖書銷售目錄一覽表".Subject = "圖書銷售"End WithEnd Sub
“Title”和“Subject”分別為工作簿的“標(biāo)題”和“主題”屬性，可以在工作簿屬性的“摘要”選項(xiàng)卡中查看。
下面的代碼不僅創(chuàng)建了一個(gè)新工作簿的同時(shí)，還在工作簿中的第一個(gè)工作表前插入了一個(gè)名為“計(jì)算機(jī)類”的工作表，并將該工作表中的B2單元格賦值為“銷售數(shù)量”。
Sub CreateNewWorkBook()Dim WBook As Workbook, WSheet As WorksheetSet WBook = Workbooks.AddSet WSheet = WBook.Worksheets.AddWSheet.Name = "計(jì)算機(jī)類"WSheet.Range("B2").Value = "銷售數(shù)量"End Sub
