Private Sub expression_PivotTableUpdate(ByVal Target As PivotTable)
expression 引用在类模块中带有事件声明的 Worksheet 类型对象的变量。
Target 必需。选定的数据透视表。
本示例显示一则消息，说明数据透视表已经更新。本示例假定您已在类模块中声明了

带有事件的 Worksheet 类型的对象。
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
MsgBox "The PivotTable connection has been updated."
End Sub

SelectionChange 事件
当工作表上的选定区域发生改变时，将产生本事件。
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Target 新选定的区域。
本示例滚动工作簿窗口，直至选定区域位于窗口的左上角。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveWindow
.ScrollRow = Target.Row
.ScrollColumn = Target.Column
End With
End Sub

本示例显示活动工作簿中工作表 sheet1 上单元格 A1 中的值。
MsgBox Worksheets("Sheet1").Range("A1").Value

本示例显示活动工作簿中每个工作表的名称。
For Each ws In Worksheets
MsgBox ws.Name
Next ws

本示例向活动工作簿添加新工作表，并设置该工作表的名称。
Set newSheet = Worksheets.Add
newSheet.Name = "current Budget"

本示例关闭工作簿 Book1.xls，但不提示用户保存所作更改。Book1.xls 中的所有

更改都不会保存。
Application.DisplayAlerts = False
Workbooks("BOOK1.XLS").Close
Application.DisplayAlerts = True

本示例设置保存文件时显示提示，要求用户输入汇总信息。
Application.PromptForSummaryInfo = True

本示例显示 Microsoft Excel 的完整路径。
Private Sub aa()
MsgBox "The path is " & Application.Path
End Sub

示例显示每一个可用加载宏的路径及文件名。
For Each a In AddIns
MsgBox a.FullName
Next a

ChDir 语句
改变当前的目录或文件夹。
ChDir path
在 Power Macintosh 中，默认驱动器总是改为在 path 语句中指定的驱动器。完整

路径指定由卷标名开始，相对路径由冒号 (:) 开始. ChDir 可以辨认路径中指定的

别名:
ChDir "MacDrive:Tmp" ' 在 Macintosh 中

本示例显示当前路径分隔符。
MsgBox "The path separator character is " & _
Application.PathSeparator

Move 方法
将一个指定的文件或文件夹从一个地方移动到另一个地方。
语法
object.Move destination
Move 方法语法有如下几部分：
部分 描述
object 必需的。始终是一个 File 或 Folder 对象的名字。
destination 必需的。文件或文件夹要移动到的目标。不允许有通配符。

CreateFolder 方法
创建一个文件夹。
语法
object.CreateFolder(foldername)
reateFolder 方法有如下几部分：
部分 描述
object 必需的。始终是一个 FileSystemObject 的名字。
foldername 必需的。字符串表达式，它标识创建的文件夹。

本示例使用 MkDir 语句来创建目录或文件夹。如果没有指定驱动器，新目录或文件

夹将会建在当前驱动器中。
MkDir "MYDIR" ' 建立新的目录或文件夹。

Name 语句示例
本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都

已存在。 在 Macintosh 中，默认驱动器名称是 “HD” 并且路径部分由冒号取代

反斜线隔开。
Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE" ' 定义文件名。
Name OldName As NewName ' 更改文件名。
OldName = "C:/MYDIR/OLDFILE": NewName = "C:/YOURDIR/NEWFILE"
Name OldName As NewName ' 更改文件名，并移动文件。

本示例显示当前默认文件路径。
MsgBox "The current default file path is " & _
Application.DefaultFilePath

本示例设置替换启动文件夹。
Application.AltStartupPath = "C:/EXCEL/MACROS"

FolderExists 方法
如果指定的文件夹存在返回 True，不存在返回 False。
语法
object.FolderExists(folderspec)

本示例在单元格中启用编辑。
Application.EditDirectlyInCell = True

程序说明：
几种用VBA在单元格输入数据的方法：
Public Sub Writes()
1-- 2 方法，最简单在 "[ ]" 中输入单元格名称。
1 [A1] = 100 '在 A1 单元格输入100。
2 [A2:A4] = 10 '在 A2:A4 单元格输入10。
3-- 4 方法，采用 Range(" ")， " " 中输入单元格名称。
3 Range("B1") = 200 '在 B1 单元格输入200。
4 Range("C1:C3") = 300 '在 C1:C3 单元格输入300。
5-- 6 方法，采用 Cells(Row,Column)，Row是单元格行数，Column是单元格栏数。
5 Cells(1, 4) = 400 '在 D1 单元格输入400。
6 Range(Cells(1, 5), Cells(5, 5)) = 50 '在 E1:E 5单元格输入50。
End Sub

你点选任何单元格，按 Selection 按钮，則则所点选的单元格均会被输入文字