对象/属性/方法/事件
（Object/Attribute/
Method/Event） |
描述
（Description） |
Wait |
暂停运行宏，直到一特定时间才可继续执行
本示例暂停一个正在执行的宏，到今天下午 6:23 时才可继续执行。
Application.Wait "18:23:00"
本示例显示一条消息，用以表明是否经过 10 秒钟。
If Application.Wait(Now + TimeValue("0:00:10")) Then
MsgBox "Time expired"
End If |
Walls |
返回一个 Walls 对象，该对象代表三维图表的背景墙。
本示例将 Chart1 的背景墙边框颜色设置为红色。本示例应在三维图表上运行。
Charts("Chart1").Walls.Border.ColorIndex = 3 |
Walls |
代表三维图表的背景墙。此对象不是集合。没有代表单个背景墙的对象；只能将所有的背景墙作为一个单位同时返回。 |
WallsAndGridlines2D |
如果三维图表中的网格线以二维方式绘制，则该值为 True
本示例使 Microsoft Excel 在 Chart1 中绘制二维网格线。
Charts("Chart1").WallsAndGridlines2D = True |
Watch |
代表在重新计算工作表时跟踪的区域。Watch 对象允许用户验证其模型的准确性并调试其遇到的问题。
说明
Watch 对象是 Watches 集合的成员 |
Watches |
返回一个 Watches 对象，该对象代表在 重新计算工作表时跟踪的区域
本示例在单元格 A3 中创建一个求和公式， 然后将该单元格添加到“监视窗口”中。
Sub AddWatch()
With Application
.Range("A1").Formula = 1
.Range("A2").Formula = 2
.Range("A3").Formula = "=Sum(A1:A2)"
.Range("A3").Select
.Watches.Add Source:=ActiveCell
End With
End Sub |
Watches |
指定应用程序中所有 Watch 对象的集合
使用 Application 对象的 Watches 属性可返回一个 Watches 集合。 |
WebConsecutiveDelimitersAsOne |
当从网页的 HTML <PRE> 标记中向查询表导入数据时，如果将连续多个分隔符看作单个分隔符，并且数据将被分列，则该值为 True。如果将连续多个分隔符看作多个分隔符，则该值为 False。默认值是 True。可读/写 Boolean 类型。 |
WebDisableDateRecognition |
向查询表中导入网页时，如果将类似日期的数据当作文本进行处理，则该值为 True。如果使用了日期识别，则该值为 False。默认值为 False。Boolean 类型，可读写。 |
WebDisableRedirections |
如果对 QueryTable 对象禁用 Web 查询重定向，则该属性的值为 True。默认值为 False。Boolean 类型，可读写。 |
WebFormatting |
返回或设置一个值，用于确定向查询表中导入网页时，网页中有多少格式被应用。XlWebFormatting 类型，可读写。 |
WebOptions |
返回 WebOptions 集合，该集合中包含以网页保存文档或打开网页时 Microsoft Excel 所使用的工作簿级属性。
本示例指定将第一个工作簿中的项目保存到网页中时，使用级联样式表和 Western 文档编码。
Set objWO = Workbooks(1).WebOptions
objWO.RelyOnCSS = True
objWO.Encoding = msoEncodingWestern |
WebOptions |
包含工作簿级的属性，当以网页保存文档或打开网页时，Microsoft Excel 将使用这些属性 |
WebPagePreview |
以网页的形式显示对指定工作簿的预览。
本示例以网页的形式显示对第一个工作簿的预览。
Workbooks(1).WebPagePreview |
WebPreFormattedTextToColumns |
返回或设置向查询表中导入网页时，是否对网页 HTML <PRE> 标记内的数据进行分列。默认值为 True。Boolean 类型，可读写。 |
WebSelectionType |
返回或设置一个值，用于确定是否向查询表中导入了整个网页、网页上的所有表格或网页上的特定表格。XlWebSelectionType 类型，可读写。 |
WebSingleBlockTextImport |
向查询表中导入网页时，如果位于指定网页的 HTML <PRE> 标记中的数据是同时进行处理的，则该值为 True。如果数据是以连续行的数据块方式导入的，以便能识别标题行，则该值为 False。默认值为 False。Boolean 类型，可读写。 |
WebTables |
向查询表中导入网页时，返回或设置由逗号分隔的表格名称或表格索引号的列表。String 类型，可读写。 |
Weekday |
返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。
语法
Weekday(date, [firstdayofweek])
date 必要。能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。如果 date 包含 Null，则返回 Null。
Firstdayofweek 可选。指定一星期第一天的常数。如果未予指定，则以 vbSunday 为缺省值。 |
Weekday |
返回与日期对应的一周中的某一天。默认情况下，其值为 1（星期日）到 7（星期六）之间的整数。 |
WeekdayName |
返回一个字符串，表示一星期中的某天。
语法
WeekdayName(weekday, abbreviate, firstdayofweek)
weekday 必需的。数字值，表示一星期中的某天。该数字值要依赖于firstdayofweek设置中的设置值来决定。
abbreviate 可选的。Boolean值，表示星期的名称是否被缩写。如果忽略该值，缺省值为False，表明星期的名称不能被缩写。
firstdayofweek 可选的。数字值，表示一星期中第一天。关于其值，请参阅“设置值”部分。 |
WeekNum |
返回一个数字，指示一年中的第几周。 |
Weibull |
返回韦伯分布。使用此分布可以进行可靠性分析，例如计算设备失效的平均时间。 |
Weight |
返回或设置边框的粗细。
本示例对 Sheet1 上椭圆一的边框粗细进行设置。
Worksheets("Sheet1").Ovals(1).Border.Weight = xlMedium |
Weight |
返回或设置一个 XlBorderWeight 值，它代表边框的粗细。 |
Weight |
返回或设置一个 Single 值，它代表线条的粗细。 |
WhichAddress |
您查询的是 Macintosh 专用的 Visual Basic 关键词。有关该关键词的帮助信息，请查阅 Microsoft Office Macintosh 版的语言参考帮助。 |
While...Wend |
只要指定的条件为 True，则会重复执行一系列的语句。
语法
While condition
[statements]
Wend
condition 必要参数。数值表达式或字符串表达式，其计算结果为 True 或 False。如果 condition 为 Null，则 condition 会视为 False。
statements 可选参数。一条或多条语句，当条件为 True 时执行。 |
Width |
从应用程序窗口的左边到其右边的距离
本示例将活动窗口的尺寸扩大为可用的最大尺寸（假定该窗口尚未最大化）。
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With |
Width |
窗口的宽度
expression.Width
expression必需。该表达式返回一个 Window 对象 |
Width |
区域的宽度
expression.Width
expression必需。该表达式返回一个 Range 对象。 |
Width |
获取或设置指定命令栏的宽度（以像素为单位）。可读写。
语法
表达式.Width
表达式 一个代表 CommandBar 对象的变量。
返回值
Integer |
Width |
返回或设置一个 Single 值，它代表对象的宽度（以磅为单位）。
语法
表达式.Width
表达式 一个代表 Shape 对象的变量。 |
Width |
返回或设置一个 Double 值，它代表对象的宽度（以磅为单位）。 |
Width |
返回或设置一个 Single 值，它代表对象的宽度（以磅为单位）。 |
Width |
返回一个 Double 值，它代表对象的宽度（以磅为单位）。 |
Width |
返回或设置一个 Double 值，它代表窗口的宽度（以磅为单位）。
语法
表达式.Width
表达式 一个代表 Window 对象的变量。 |
Width # |
将一个输出行的宽度指定给用 Open 语句打开的文件。
语法
Width #filenumber, width
filenumber 必要。任何有效的文件号。
width 必要。范围在 0–255 之间的数值表达式，在新的一行开始之前，指出在该行上可出现多少字符。如果 width 等于 0，则行的长度不受限制。width 的缺省值为 0。 |
Window |
代表一个窗口。许多工作表的特性，如滚动条和网格线，都是窗口的属性。Window 对象是 Windows 集合中的成员。Application 对象的 Windows 集合包含该应用程序中的所有窗口，而 Workbook 对象的 Windows 集合只包含指定工作簿中的窗口。 |
WindowActivate |
工作簿的窗口激活时，将产生本事件
本示例使工作簿窗口激活时最大化。
Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
Wn.WindowState = xlMaximized
End Sub |
WindowDeactivate |
工作簿的窗口变为非活动状态时，将产生本事件
本示例使工作簿窗口变为非活动状态时最小化。
Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
Wn.WindowState = xlMinimized
End Sub |
WindowNumber |
返回窗口号。例如，名称为“Book1.xls:2”的窗口，其窗口号为 ２。大多数窗口的窗口号为 １
本示例为活动窗口新建一个窗口，然后显示新窗口的窗口号。
ActiveWindow.NewWindow
MsgBox ActiveWindow.WindowNumber |
WindowNumber |
返回窗口号。例如，名称为“Book1.xls:2”的窗口，其窗口号为 2。大多数窗口的窗口号为 1。Long 类型，只读。
语法
表达式.WindowNumber
表达式 一个代表 Window 对象的变量。 |
WindowResize |
工作簿窗口调整大小时，将产生本事件
工作簿窗口调整大小时，将运行本示例。
Private Sub Workbook_WindowResize(ByVal Wn As Excel.Window)
Application.StatusBar = Wn.Caption & " resized"
End Sub |
Windows |
对于 Application 对象，返回代表所有 工作簿中所有窗口的 Windows 集合
本示例关闭 Microsoft Excel 中第一个打开或隐藏的窗口。
Application.Windows(1).Close
本示例将活动工作簿的窗口一命名为“Consolidated Balance Sheet”。此名称将被用作对 Windows 集合的索引。
ActiveWorkbook.Windows(1).Caption = "Consolidated Balance Sheet"
ActiveWorkbook.Windows("Consolidated Balance Sheet") _
.ActiveSheet.Calculate |
Windows |
Microsoft Excel 中所有 Window 对象的集合
使用 Windows 属性返回 Windows 集合。下面的示例在 Microsoft Excel 中层叠所有当前显示窗口。
Windows.Arrange arrangeStyle:=xlCascade |
Windows |
对于 Workbook 对象，返回代表指定工作簿中所有窗口的 Windows 集合
本示例将活动工作簿的窗口一命名为“Consolidated Balance Sheet”。此名称将被用作对 Windows 集合的索引。
ActiveWorkbook.Windows(1).Caption = "Consolidated Balance Sheet"
ActiveWorkbook.Windows("Consolidated Balance Sheet") _
.ActiveSheet.Calculate |
Windows |
Microsoft Excel 中所有 Window 对象的集合。Application 对象的 Windows 集合包含应用程序中的所有窗口，而 Workbook 对象的 Windows 集合则只包含指定工作簿中的窗口。 |
WindowsForPens |
如果此计算机正在运行的是 Microsoft Windows for Pen Computing，则该值为 True
本示例显示当 Microsoft Windows for PenComputing 在运行时，如何限制仅识别手写数字和标点符号。
If Application.WindowsForPens Then
Application.ConstrainNumeric = True
End If |
WindowState |
返回或设置窗口的状态
本示例将 Microsoft Excel 应用程序窗口最大化。
Application.WindowState = xlMaximized |
WindowState |
返回或设置窗口的状态。XlWindowState 类型，可读写。
语法
表达式.WindowState
表达式 一个代表 Window 对象的变量。 |
With |
在一个单一对象或一个用户定义类型上执行一系列的语句。
语法
With object
[statements]
End With
object 必要参数。一个对象或用户自定义类型的名称。
statements 可选参数。要执行在 object 上的一条或多条语句。 |
Workbook |
代表 Microsoft Excel 工作簿
Workbook 对象是 Workbooks 集合的成员。Workbooks 集合包含 Microsoft Excel 中所有当前打开的 Workbook 对象 |
WorkbookActivate |
当激活任一工作簿时产生此事件
当激活一个工作簿时，本示例对所有打开的窗口进行排列。
Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
Application.Windows.Arrange xlArrangeStyleTiled
End Sub |
WorkbookAddinInstall |
当工作簿作为加载宏安装时，产生此事件
当指定工作簿作为加载宏安装时，本示例将 Microsoft Excel 最大化。
Private Sub App_WorkbookAddinInstall(ByVal Wb As Workbook)
Application.WindowState = xlMaximized
End Sub |
WorkbookAddinUninstall |
当任一作为加载宏的工作簿卸载时产生此事件
当指定工作簿作为加载宏卸载时，本示例将 Microsoft Excel 最小化。
Private Sub App_WorkbookAddinUninstall(ByVal Wb As Workbook)
Application.WindowState = xlMinimized
End Sub |
WorkbookAfterXmlExport |
在 Microsoft Excel 将任一打开的工作簿中的数据保存或导出到 XML 数据文件之后，发生此事件
expression.WorkbookAfterXmlExport(Wb, Map, Url, Result)
expression必需。该表达式返回一个 Application 对象。 |
WorkbookAfterXmlImport |
当刷新现有的 XML 数据连接或新的 XML 数据被导入任一打开的 Microsoft Excel 工作簿之后，发生此事件。
expression.WorkbookAfterXmlImport(Wb, Map, IsRefresh, Result)
expression必需。该表达式返回一个 Application 对象。 |
WorkbookBeforeClose |
当任一打开的工作簿要关闭时立即产生此事件
本示例在关闭工作簿之前询问用户是否关闭。
Private Sub App_WorkbookBeforeClose(ByVal Wb as Workbook, _
Cancel as Boolean)
a = MsgBox("Do you really want to close the workbook?", _
vbYesNo)
If a = vbNo Then Cancel = True
End Sub |
WorkbookBeforePrint |
在打印任一打开的工作簿之前产生此事件
本示例在打印工作簿之前对所有工作表进行重新计算。
Private Sub App_WorkbookBeforePrint(ByVal Wb As Workbook, _
Cancel As Boolean)
For Each wk in Wb.Worksheets
wk.Calculate
Next
End Sub |
WorkbookBeforeSave |
在保存任一打开工作簿之前产生此事件
本示例在保存工作簿之前询问用户是否保存。
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
ByVal SaveAsUI As Boolean, Cancel as Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub |
WorkbookBeforeXmlExport |
在 Microsoft Excel 将任一打开的工作表中的数据保存或导出到 XML 数据文件之前，发生此事件。
expression.WorkbookBeforeXmlExport(Wb, Map, Url, Cancel)
expression必需。该表达式返回一个 Application 对象。 |
WorkbookBeforeXmlImport |
在刷新现有的 XML 数据连接或新的 XML 数据被导入任一打开的 Microsoft Excel 工作簿之前，发生此事件。
expression.WorkbookBeforeXmlImport(Wb, Map, Url, IsRefresh, Cancel)
expression 必需。该表达式返回一个 Application 对象。 |
WorkbookConnection |
返回查询表所使用的 WorkbookConnection 对象。只读。 |
WorkbookConnection |
建立当前工作簿与 PivotCache 对象之间的连接。只读。 |
WorkbookConnection |
返回指定的 XMLMap 对象的新连接。只读。 |
WorkbookOpen |
当打开一个工作簿时产生此事件
当打开一个工作簿时，本示例对所有打开的窗口进行排列。
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Application.Windows.Arrange xlArrangeStyleTiled
End Sub |
WorkbookPivotTableCloseConnection |
发生在数据透视表的连接关闭之后
本示例显示一则消息，说明数据透视表与其数据源的连接已经关闭。本示例假定您已在类模块中声明了带有事件的 Workbook 类型的对象。
Private Sub ConnectionApp_WorkbookPivotTableCloseConnection(ByVal wbOne As Workbook, Target As PivotTable)
MsgBox "The PivotTable connection has been closed."
End Sub |
WorkbookPivotTableOpenConnection |
发生在数据透视表的连接打开之后
本示例显示一则消息，说明数据透视表与其数据源的连接已经打开。本示例假定您已在类模块中声明了带有事件的 Workbook 类型的对象。
Private Sub ConnectionApp_WorkbookPivotTableOpenConnection(ByVal wbOne As Workbook, Target As PivotTable)
MsgBox "The PivotTable connection has been opened."
End Sub |
Workbooks |
返回一个 Workbooks 集合，此集合代表所有打开的工作簿
本示例激活 Book1.xls 工作簿。
Workbooks("BOOK1").Activate
本示例打开 Large.xls 工作簿。
Workbooks.Open filename:="LARGE.XLS" |
Workbooks |
Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合。
使用 Workbooks 属性可返回 Workbooks 集合。下例关闭所有打开的工作簿。
Workbooks.Close |
WorkbookSync |
当作为“文档工作区”一部分的工作簿的本地副本与服务器上的副本进行同步时，发生此事件
如果“文档工作区”中的工作簿同步失败，则下例显示一条消息。
Private Sub app_WorkbookSync(ByVal Wb As Workbook, _
ByVal SyncEventType As Office.MsoSyncEventType)
If SyncEventType = msoSyncEventDownloadFailed Or _
SyncEventType = msoSyncEventUploadFailed Then
MsgBox "Workbook synchronization failed. " & _
"Please contact your administrator " & vbCrLf & _
"or try again later."
End If
End Sub |
WorkDay |
返回某日期（起始日期）之前或之后相隔指定工作日的某一日期的日期值。工作日不包括周末和节假日。在计算发票到期日、预期交货时间或工作天数时，可以使用函数 WORKDAY 来扣除周末或节假日。 |
Worksheet |
代表一张工作表。Worksheet 对象是 Worksheets 集合的成员 |
Worksheet |
返回 Worksheet 对象，该对象代表包含指定区域的工作表
本示例显示包含活动单元格的工作表的名称。本示例必须在工作表上运行。
MsgBox ActiveCell.Worksheet.Name
本示例显示包含活动单元格区域“testRange”的工作表名称。
MsgBox Range("testRange").Worksheet.Name |
WorksheetFunction |
返回 WorksheetFunction 对象
本示例对单元格区域 A1:A10 使用 Min 工作表函数，并显示结果。
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer |
WorksheetFunction |
用作可从 Visual Basic 中调用的 Microsoft Excel 工作表函数的容器
使用 WorksheetFunction 属性可返回 WorksheetFunction 对象。下面的示例显示了对单元格区域 A1:A10 应用工作表函数 Min 的结果。
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer |
Worksheets |
对于 Application 对象，返回代表活动 工作簿中所有工作表的 Sheets 集合
本示例显示活动工作簿中工作表 sheet1 上单元格 A1 中的值。
MsgBox Worksheets("Sheet1").Range("A1").Value
本示例显示活动工作簿中每个工作表的名称。
For Each ws In Worksheets
MsgBox ws.Name
Next ws |
Worksheets |
对于 Workbook 对象，返回代表指定工作簿所有工作表的 Sheets 集合
本示例显示活动工作簿中每个工作表的名称。
For Each ws In Worksheets
MsgBox ws.Name
Next ws |
Worksheets |
指定的或活动工作簿中所有 Worksheet 对象的集合。每个 Worksheet 对象都代表一个工作表。
说明
Worksheet 对象也是 Sheets 集合的成员。Sheets 集合包含工作簿中所有的工作表（图表工作表和工作表）。 |
WrapText |
如果使 Microsoft Excel 中对象的文本自动换行，则该值为 True
本示例对 sheet1 中的单元格 B2 进行格式设置，使其中的文字自动换行。
Worksheets("Sheet1").Range("B2").Value = _
"This text should wrap in a cell."
Worksheets("Sheet1").Range("B2").WrapText = True |
WrapText |
返回或设置一个 Variant 值，它指明 Microsoft Excel 是否为对象中的文本自动换行。
语法
表达式.WrapText
表达式 一个代表 CellFormat 对象的变量。 |
WrapText |
返回或设置一个 Boolean 值，它指明 Microsoft Excel 是否为对象中的文本自动换行。
语法
表达式.WrapText
表达式 一个代表 Style 对象的变量。 |
WrapText |
返回或设置一个 Boolean 值，它指明 Microsoft Excel 是否为对象中的文本自动换行。 |
Write # |
将数据写入顺序文件。
语法
Write #filenumber, [outputlist]
filenumber 必要。任何有效的文件号。
outputlist 可选。要写入文件的数值表达式或字符串表达式，用一个或多个逗号将这些表达式分界。 |
WritePassword |
返回或设置一个工作簿的写密码。
在本示例中，如果活动工作簿不能进行写保护，那么 Microsoft Excel 设置字符串密码以作为活动工作簿的写密码。
Sub UseWritePassword()
Dim strPassword As String
strPassword = InputBox ("Enter the password")
' Set password to a string if allowed.
If ActiveWorkbook.WriteReserved = False Then
ActiveWorkbook.WritePassword = strPassword
End If
End Sub |
WriteReserved |
如果指定工作簿是写保护的，则该值为 True
如果活动工作簿是写保护的，本示例将显示一则消息，其中包含将该工作簿以写保护方式保存的用户的名称。
With ActiveWorkbook
If .WriteReserved = True Then
MsgBox "Please contact " & .WriteReservedBy & Chr(13) & _
" if you need to insert data in this workbook."
End If
End With |
WriteReservedBy |
返回当前对指定工作簿有写入权的用户的名称
如果当前工作簿是写保护的，本示例将显示一则消息，其中包含将该工作簿以写保护方式保存的用户的名称。
With ActiveWorkbook
If .WriteReserved = True Then
MsgBox "Please contact " & .WriteReservedBy & Chr(13) & _
" if you need to insert data in this workbook."
End If
End With |