摘要： 如果要用VBA创建新的工作簿，可以使用Add方法，如下面的代码。Excel自动将该工作簿命名为“BookN”，其中“N”是下一个可用的数字，同时新工作簿将成为活动工作簿。
Sub AddOne()
Workbooks.Add
End Sub
另外，创建新工作簿更好的方法是将其分配给一个对象变量。例如下例中，由Add方法返回的Workbook对象分配给了对象变量“NewBook”。然后，又设置了“NewBook ”的若干属性。
excel利用VBA比较同行字符串一例
如图所示，在Excel工作表的A、B、C、D四列的1-10行都放有字符串，现在要把B、C、D三列中的字符串分别与A列同一行的字符串相比较，如果含有A列字串的某个字符，就把这个字符变成红色（A列不
Sub AddNew()
Set NewBook = Workbooks.Add
With NewBook
.Title = "图书销售目录一览表"
.Subject = "图书销售"
End With
End Sub
“Title”和“Subject”分别为工作簿的“标题”和“主题”属性，可以在工作簿属性的“摘要”选项卡中查看。
下面的代码不仅创建了一个新工作簿的同时，还在工作簿中的第一个工作表前插入了一个名为“计算机类”的工作表，并将该工作表中的B2单元格赋值为“销售数量”。
Sub CreateNewWorkBook()
Dim WBook As Workbook, WSheet As Worksheet
Set WBook = Workbooks.Add
Set WSheet = WBook.Worksheets.Add
WSheet.Name = "计算机类"
WSheet.Range("B2").Value = "销售数量"
End Sub
excel利用VBA选择上一个或下一个工作表
如果需要用VBA代码在Excel工作簿中选择下一个或上一个工作表，可以使用下面的代码。SubDownSheet()DimiAsIntegeri=Worksheets.CountIfActiveSheet.IndexiThenWorksheets(ActiveSheet.Index 1).ActivateElseWorksh
