创建工作簿。。。。。

secowu

要在 Visual Basic 中创建工作簿，请使用 Add 方法。以下过程将创建一个工作簿。Microsoft Excel 会自动将该工作簿命名为“BookN”，其中“N”是下一个可用的数字。新工作簿将成为活动工作簿。

Sub AddOne()
    Workbooks.Add
End Sub

创建工作簿的一种更好的方式是将其分配给一个对象变量。在下例中，由 Add 方法返回的 Workbook 对象分配给了对象变量 newBook。然后，又设置了 newBook 的若干属性。通过使用对象变量可以轻松地控制新工作簿。

Sub AddNew()
Set NewBook = Workbooks.Add
    With NewBook
        .Title = "All Sales"
        .Subject = "Sales"
        .SaveAs Filename:="Allsales.xls"
    End With
End Sub

secowu

引用多张工作表

可用 Array 函数标识一组工作表。以下示例选定了活动工作簿中的三张工作表。

Sub Several()
    Worksheets(Array("Sheet1", "Sheet2", "Sheet4")).Select
End Sub