Visual Basic for Applications 学习笔记(一)

一 创建新工作簿 

如果要用 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 = "1995 Sales"
        .Subject = "Sales"
        .SaveAs filename:="95Sales.xls"
    End With
End Sub

二 打开工作簿

用 Open 方法打开一个工作簿时，该工作簿将成为 Workbooks  集合的成员。下述过程打开 C 盘上“MyFolder”文件夹内的工作簿“MyBook.xls”。
Sub OpenUp()
    Workbooks.Open("C:/MyFolder/MyBook.xls")
End Sub
 

  
  


   
   
三 用编号引用工作表

  
  
 
编号是赋予工作表的连续的数字，这些数字的顺序，是根据同一类型的工作表的标签位置按由左而右的顺序确定的。下述过程使用 Worksheets 属性激活活动工作簿上的第一张工作表。
Sub FirstOne()
    Worksheets(1).Activate
End Sub
如果要处理所有类型的工作表（工作表、图表、模块表和对话框编辑表），可用 Sheets 属性。下述过程激活工作簿中的第四张工作表。
Sub FourthOne()
    Sheets(4).Activate
End Sub
注意   移动、添加或删除工作表时，编号顺序将会改变。

<script language="VBScript" src="ShowMe_Code.vbs" type="text/javascript"></script> <script language="VBSCRIPT" type="text/javascript"> Sub HelpPopup (sFile, sID) Call InitConstants() On Error Resume Next r=oua.HelpPopup(sFile,sID) If Err<>0 Then Msgbox L_SECURITY_MSG,48,L_TITLE End Sub </script>