描述
代表定义在单元格区域上的名称。名称可为内置名称（如“Database”、“Print_Area”和“Auto_Open”）或自定义名称。
Application、Workbook 和 Worksheet 对象
对于 Application, Workbook 和 Worksheet 对象， Name 对象是 Names集合的成员。可用 Names(index) （其中 index 为名称的编号或定义名称）返回单个 Name 对象。
名称的编号指出名称在集合中的位置。名称是按字母顺序排列的，从 a 到z，且不区分大小写（与“定义名称”对话框和“应用名称”对话框中显示的顺序相同，可从“插入”菜单中的“名称”命令获得）。下例显示应用程序的名称集合中的第一个名称的单元格引用。
MsgBox Names(1).RefersTo
下例从活动工作簿中删除名称“mySortRange”。
ActiveWorkbook.Names("mySortRange").Delete
可用 Name 返回或设置名称本身的文字。下例修改活动工作簿第一个Name 对象的名称。
Names(1).Name = "stock_values"
Range 对象
虽然 Range 对象可能有若干名称，但 Range 对象没有 Names 集合。可用 Range 对象的 Name 属性从该区域的名称列表（按字母排序）中返回第一个名称。下例设置第一个工作表上单元格区域“A1:B1”的第一个名称的 Visible 属性。
Worksheets(1).Range("a1:b1").Name.Visible = False
属性
Application 属性，Category 属性，CategoryLocal 属性，Creator 属性，Index 属性，marcoType 属性，Name 属性，NameLocal 属性，Parent 属性，RefersTo 属性，RefersToLocal属性，RefersToR1C1 属性，RefersToR1C1Local 属性，RefersToRange 属性，ShoutcutKey 属性，Value属性，Visivle 属性
方法
Delete 方法
适用于
AddIns 对象，Application 对象，AxisTitle 对象，Chart 对象，ChartArea对象，ChartObject 对象，ChartTitle 对象，Corners 对象，CubeField 对象，CustomView 对象，DataLabel 对象，DataLabels 集合对象，DisplayUnitLabel 对象，DownBars 对象，DropLines 对象，ErrorBars 对象，Floor 对象，Font 对象，Gridlines 对象，HiLoLines 对象，HyperLink对象，Legend 对象，Name 对象，OLEObject 对象，Parameter对象，PivotField 对象，PivotItem 对象，PivotTable 对象，PlotArea 对象，QueryTable 对象，Range 对象，RecentFile 对象，Scenario 对象，Series 对象，SeriesLines 对象，Shape 对象，ShapeRange 集合对象，Style 对象，TickLabels 对象，Trendline 对象，UpBars 对象，Walls 对象，Workbook对象，Worksheet 对象
描述
返回或设置对象的名称。Range 对象的名称为 Name 对象。其它对象的名称为字符串。
下表显示了 Name 属性及其相关属性的示例值，假设有一个具有唯一名称为“[Europe].[France].[Paris]”的 OLAP 数据源，并且有一个包含名为“Paris”的项的非 OLAP 数据源。
| 属性 | Value（OLAP 数据源） | Value（非 OLAP 数据源） |
| Caption | Paris | Paris |
| Name | [Europe].[France].[Paris] （只读） | Paris |
| SourceName | [Europe].[France].[Paris]（只读） | （与 SQL 属性值相同，只读） |
| Value | [Europe].[France].[Paris]（只读） | Paris |
当在 PivotItems 集合中指定一个索引号时，可以使用下表所示的句法。
| 句法（OLAP 数据源） | 句法（非 OLAP 数据源） |
| expression.PivotItems("[Europe].[France].[Paris]") | expression.PivotItems("Paris") |
当使用 Item 属性引用集合中的特定成员时，可以使用下表所示的文字索引名称。
| 名称（OLAP 数据源） | 名称（非 OLAP 数据源） |
| [Europe].[France].[Paris] | Paris |
另见
示例
本示例首先用宏语言，然后用用户语言显示活动工作簿中的第一种样式的名称。
With ActiveWorkbook.Styles(1)
MsgBox "The name of the style is " & .Name
MsgBox "The localized name of the style is " & .NameLocal
End With
适用于
Trendline 对象
描述
如果 Microsoft Excel 自动确定趋势线的名称则为 True。Boolean 类型，可读写。
示例
本示例设置 Microsoft Excel 自动确定“Chart1”的第一条趋势线的名称。
本示例应在包含单个带趋势线系列的二维柱形图上运行。
Charts("Chart").SeriesCollection(1).Trendlines(1).NameIsAuto = True
适用于
Name 对象，Style 对象
描述
以用户语言返回或设置对象的名称。String 类型，对 Name 为可读写，对Style 为只读。说明
如果样式为内置的，本属性以当前系统所使用的地区语言返回样式的名称。
另见
示例
本示例显示活动工作簿上第一个样式的原名称和本土化以后的名称。
With ActiveWorkbook.Styles(1)
MsgBox "The name of the style is " & .Name
MsgBox "The localized name of the style is " & .NameLocal
End With
描述
应用程序或工作簿中所有 Name 对象的集合。每个 Name 对象代表一个定义在单元格区域上的名称。名称可为内置名称（如“Database”、“Print_Area”和“Auto_Open”）或自定义名称。
使用Names 集合对象
可用 Names 属性返回 Names 集合。下例创建活动工作簿中所有名称及其引用地址的列表。
Set nms = ActiveWorkbook.Names
Set wks = Worksheets(1)
For r = 1 To nms.Count
wks.Cells(r, 2).Value = nms(r).Name
wks.Cells(r, 3).Value = nms(r).RefersToRange.Address
Next
可用 Add 方法创建名称并将其添加到集合中。下例创建指向工作表“Sheet1”上单元格区域“A1:C20”的新名称。
Names.Add Name:="test", RefersTo:="=Sheet1!$a$1:$c$20"
RefersTo 参数必须以 A1-样式的记号指定，包括必要时使用的美元符（ $ ）。例如，如果在工作表“Sheet1”上选定了单元格“A10”，然后又将 RefersTo 参数指定为“=Sheet1!A1:B1”而定义了一个名称，那么该名称实际上指向单元格区域“A10:B10”（因为指定的是相对引用）。若要指定绝对引用，应当用“=Sheet1!$A$1:$B$1”。
可用 Names(index) （其中 index 为名称的编号或定义名称）返回单个Name 对象。下例从活动工作簿上删除名称“mySortRange”。
ActiveWorkbook.Names("mySortRange").Delete
属性
Application 属性，Count 属性，Creator 属性，Parent 属性
方法
Add 方法(Names 集合)，Item 方法(Names 集合)
适用于
Application 对象，Workbook 对象，Worksheet 对象
描述
Application 对象：返回一个 Names 集合，此集合代表当前工作簿中的所有名称。只读。
Workbook 对象：返回一个 Names 集合，此集合代表指定工作簿中的所有名称（包括所有带工作表区分符的名称）。只读。
Worksheet 对象：返回一个 Names 集合，此集合代表所有带工作表区分符的名称（用“WorksheetName!”前缀定义的名称）。只读。
说明
在不使用对象识别符的情况下使用此属性等价于 ActiveWorkbook.Names。
示例
本示例是将 Sheet1 工作表中的 A1 单元格名称定义为“myName”。
ActiveWorkbook.Names.Add Name:="myName", RefersToR1C1:= _
"=Sheet1!R1C1"
适用于
OLEDBError 对象
描述
返回一个与提供者相关的数值，该数据用于指定一个错误。而错号对应于最近一次 OLE DB 查询所产生的错误条件。只读。Long 类型。
示例
本示例显示由最近一次 OLE DB 查询所返回的本地错误号和其它错误信息。
Set objEr = Application.OLEDBErrors(1)
MsgBox "The following error occurred:" & _
objEr.Number & ", " & objEr.Native & ", " & _
objEr.ErrorString & " : " & objEr.SqlState
适用于
Range 对象
描述
定位追踪箭头，此箭头指定引用单元格、从属单元格或错误源单元格。选定引用单元格、从属单元格或错误源单元格并返回一个 Range 对象，该对象代表新选定区域。本方法应用于没有可见追踪箭头的单元格时将出错。
句法
expression.NavigateArrow(TowardPrecedent, ArrowNumber, LinkNumber)
expression
必选。该表达式返回一个 Range 对象。
TowardPrecedent
Variant 类型，可选。指定定位的方向：如果为 True 则定位到引用单元格；如果为 False 则定位到从属单元格。
ArrowNumber
Variant 类型，可选。指定要定位的箭头编号；对应于单元格公式中编号的引用。
LinkNumber
Variant 类型，可选。如果指定箭头是外部引用箭头，则该参数表示要追踪
的外部引用。如果省略本参数，则追踪第一个外部引用。
示例
本示例将第一个追踪箭头从 Sheet1 的 A1 单元格定位到该单元格的引用单元格。
本示例应在 A1 单元格包含公式的工作表中运行，该单元格包含对 D1，D2 和 D3 单元格的引用（例如，公式?D1*D2*D3）。 应在单元格中包含对其它单元格的引用的工作表上运行。运行本示例之前，先显示Auditing 工具栏，选定 A1 单元格，并单击 Trace Precedents 按钮。
Worksheets("Sheet1").Activate
Range("A1").Select
ActiveCell.NavigateArrow True, 1
适用于
Application 对象
描述
返回模板所在的网络路径，如果指定的网络路径不存在，本属性将返回一空字符串。String 类型，只读。
示例
本示例显示模板所在的网络路径。
Msgbox Application.NetworkTemplatesPath
适用于
SeriesCollection 集合对象
描述
创建新系列。返回代表该新系列的 Series 对象。
句法
expression.NewSeries()
expression
必选。该表达式返回 SeriesCollection 对象。
另见
示例
本示例向第一张图表添加新系列。
Set ns = Charts(1).SeriesCollection.NewSeries
适用于
Workbook 对象
描述
当在工作簿中新建工作表时产生此事件。
句法
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh
新工作表。可为一个 Worksheet 或 Chart 对象。
另见
示例
本示例将新建的工作表移到工作簿的末尾。
Private Sub Workbook_NewSheet(ByVal Sh as Object)
Sh.Move After:= Sheets(Sheets.Count)
End Sub
适用于
Window 对象，Workbook 对象
描述
新建一个窗口或者创建指定窗口的副本。
句法
expression.NewWindow
expression
必选。该表达式返回一个 Window 对象或者 Workbook 对象。
示例
本示例为当前工作簿新建一个窗口。
ActiveWorkbook.NewWindow
适用于
Application 对象
描述
当新建一个工作簿时产生此事件。
句法
Private Sub object_NewWorkbook(ByVal Wb As Workbook)
object
在类模块中带有事件声明的 Application 类型对象。
Wb
新工作簿。
示例
本示例当新建一个工作簿时对所有打开的窗口进行排列。
Private Sub App_NewWorkbook(ByVal Wb As Workbook)
Application.Windows.Arrange xlArrangeStyleTiled
End Sub
适用于
Comment 对象
描述
返回一个 Comment 对象，该对象代表下一条批注。
句法
expression.Next
expression
必选。该表达式返回一个 Comment 对象。
说明
本方法仅对单张工作表有效。对工作表中最后一条批注使用本方法可返回Null（不是下一张工作表的第一条批注）。
示例
本示例参阅下一条批注。
Range("a1").Comment.Next.Visible = False
适用于
Chart 对象，Range 对象，Worksheet 对象
描述
返回 Chart，Range 或 Worksheet 对象，该对象代表下一工作表或单元格。只读。
说明
如果指定对象为区域，本属性的作用就像“TAB”键，但本属性只是返回下一单元格，而不选定它。
在处于保护状态的工作表中，本属性返回下一个未锁定单元格。在未保护的工作表中，本属性总是返回紧靠指定单元格右边的单元格。
另见
示例
本示例选定工作表“Sheet1”中下一个未锁定单元格。如果工作表“Sheet1”未保护，选定的单元格将是紧靠活动单元格右边的单元格。
Worksheets("Sheet1").Activate
ActiveCell.Next.Select
适用于
Shape 对象，ShapeRange 集合对象
描述
返回 ShapeNodes 集合，该集合代表指定形状的几何描述。应用于代表任意多边形的 Shape 对象或 ShapeRange 对象。
示例
本示例向 myDocument 中第三个形状的第四个节点之后添加光滑节点和曲线段。第三个形状必须是至少有四个节点的任意多边形。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Nodes
.Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100
End With
适用于
TextEffectFormat 对象
描述
如果指定的艺术字对象中所有字符（无论大小写）均为同一高度，本属性为 True。
Long 类型，可读写。
示例
本示例向 myDocument 中添加包含文字“Test Effect”的艺术字对象，并为新添加的艺术字对象取名为“texteff1”，然后本示例使该对象中的所有字符都成为同一高度。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect1, _
Text:="Test Effect", FontName:="Courier New", _
FontSize:=44, FontBold:=True, _
FontItalic:=False, Left:=10, Top:=10).Name = "texteff1"
myDocument.Shapes("texteff1").TextEffect.NormalizedHeight = True
适用于
Range 对象
描述
返回或者设置与区域左上角单元格相关联的单元格注释。String 类型，可读写。
单元格注释已由区域批注取代。有关详细内容，另见 Comment 对象。
句法
expression.NoteText(Text, Start, Length)
expression
必选。该表达式返回一个 Range 对象。
Text
Variant类型，可选。要添加到注释中的文字（不超过 255 个字符）。注释文字插入的起始位置由 Start 参数指定，Length 参数指定现有注释被替代的字符长度。如果省略本参数，本方法返回的是现有注释从 Start 位置起始长度为 Length 的文字字符串。
Start
Variant 类型，可选。要设置或返回的文字的起始位置。如果省略本参数，本方法使用第一个字符作为起始位置。要追加注释，可为此参数指定一个比现有注释文字长度大的数字。Length
Variant 类型，可选。要设置或返回的字符个数。如果省略本参数，则Microsoft Excel 将以从现有注释起始位置到注释末尾的长度设置或返回注释（不超过 255 个字符）。如果从 Start 位置到注释的末尾的字符数超过255，则本方法只返回 255 个字符。
说明
要添加超过 255 个字符的注释，可先使用本方法指定前 255 个字符，然后再用它为注释追加其余部分（一次不超过 255 个字符）。
另见
示例
本示例为 Sheet1 中 A1 单元格设置单元格注释。
Worksheets("Sheet1").Range("A1").NoteText "This may change!"
适用于
PivotTable 对象
描述
返回或设置当 DisplayNullString 为 True 时，在包含 null 值的单元格中显示的字符串。默认值为空字符串（""）。String 类型，可读写。
另见
DisplayNullString 属性， ErrorString 属性
示例
本示例使数据透视表在包含 null 值的单元格中显示“NA”。
With Worksheets(1).PivotTables("数据透视表1")
.NullString = "NA"
.DisplayNullString = True
End With
适用于
OLEDBError 对象
描述
返回用于指定错误号的数字值。该错误号对应于某个唯一的陷阱，而该陷阱又对应于最近一次 OLE DB 查询所产生的错误条件。只读。Long 类型。
示例
本示例显示由最近一次 OLE DB 查询所返回的错误号和其它错误信息。
Set objEr = Application.OLEDBErrors(1)
MsgBox "The following error occurred:" & _
objEr.Number & ", " & objEr.Native & ", " & _
objEr.ErrorString & " : " & objEr.SqlState
适用于
DataLabel 对象，DataLabels 集合对象，PivotField 对象，Range 对象，Style 对象，TickLabels 对象
描述
对于 Range 对象为 Variant 类型，对于其它对象为 String 类型，返回或者设置指定对象的格式代码。如果指定区域中的所有单元格包含不同的数字格式则返回 Null。可读写。
说明
对于 PivotField 对象，可以只对其中一个数据字段设置其 NumberFormat属性。
这里的格式代码字符串与“单元格格式”对话框中的“格式代码”选项是相同的。Format 函数则使用与 NumberFormat 属性和NumberFormatLocal 属性不同的格式代码字符串。
另见
NumberFormatLinked 属性， NumberFormatLocal 属性
示例
以下这些示例分别对 Sheet1 中的 A17 单元格、第一行和 C 列的数字格式进行设置。
Worksheets("Sheet1").Range("A17").NumberFormat = "General"
Worksheets("Sheet1").Rows(1).NumberFormat = "hh:mm:ss"
Worksheets("Sheet1").Columns("C"). _
NumberFormat = "$,##0.00_);[Red]($#,##0.00)"
适用于
DataLabel 对象，DataLabels 集合对象，TickLabels 对象
描述
如果指定数字格式与单元格相链接（以便当单元格的格式更改时数据标志的格式也作相应的改动）则为 True。Boolean 类型，可读写。
示例
本示例将“Chart1”中的数值坐标轴刻度线标志的数字格式链接到相应的单元格。Charts("Chart1").Axes(xlValue).TickLabels.NumberFormatLinked = True
适用于
Range 对象，Style 对象，TickLabels 对象
描述
以用户语言字符串返回或设置对象的格式代码。String 类型，可读写。
说明
Format 函数所用的格式代码与 NumberFormat 和 NumberFormatLocal属性所用的不同。
另见
示例
本示例以用户语言显示工作表“Sheet1”上的单元格“A1”中的数字格式。
MsgBox "The number format for cell A1 is " & _
Worksheets("Sheet1").Range("A1").NumberFormatLocal
适用于
OLEFormat 对象，OLEObject 对象
描述
返回与本 OLE 对象相联系的 OLE 自动化对象。Object 类型，只读。
示例
本示例在工作表“Sheet1”上的内嵌 Word 文档对象的开始处插入文字。
注意在 With 控制结构内的三条语句为 WordBasic 语句。
Set wordObj = Worksheets("Sheet1").OLEObjects(1)
wordObj.Activate
With wordObj.Object.Application.WordBasic
.StartOfDocument
.Insert "This is the beginning"
.InsertPara
End With
适用于
ShadowFormat 对象
描述
如果指定形状的阴影是填充的，并且阴影被形状所遮盖（即便该形状没有填充），那么本属性为 True。如果阴影没有填充，并且当形状没有填充时，可透过形状看到阴影的轮廓，那么本属性为 False。Long类型，可读写。
示例
本示例设置 myDocument 上第三个形状的阴影的垂直和水平投影距离。阴影投影在形状右边 5 磅和上方 3 磅的位置。如果该形状原来没有阴影，
本示例将向该形状添加阴影。该阴影是填充的，并被形状所遮盖，即便该形状没有填充也是如此。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Shadow
.Visible = True
.OffsetX = 5
.OffsetY = -3
.Obscured = True
End With
描述
代表一个由最近的 ODBC 查询产生的 ODBC 错误。ODBCError 对象是ODBCErrors 集合的成员。如果指定的 ODBC 查询运行过程没有错误，则 ODBCErrors 集合为空。集合中的错误按 ODBC 数据源产生的次序进行索引。
使用 ODBCError 对象
使用 ODBCErrors(index) （其中 index 为错误的索引号）可返回单个ODBCError 对象。 下列示例对第一个查询表进行刷新并显示产生的第一个 ODBC 错误。
With Worksheets(1).QueryTables(1)
.Refresh
If Application.ODBCErrors.Count > 0 Then
Set er = Application.ODBCErrors(1)
MsgBox "The following error occurred:" &
er.ErrorString & " : " & er.SqlState
Else
MsgBox "Query complete:all records returned."
End If
End With
属性
Application 属性，Creator 属性，ErrorString 属性，Parent 属性，SplState属性
描述
ODBCError 对象的集合。每一 ODBCError 对象代表的是由最近的ODBC 查询返回的错误。如果指定的 ODBC 查询运行过程没有错误，则ODBCErrors 集合为空。集合中的错误按 ODBC 数据源产生的次序进行索引。您不能向该集合中添加成员。
使用 ODBCErrors 集合
使用 ODBCErrors 属性可返回 ODBCErrors 集合。下列示例对第一个查询表进行刷新并显示产生的任何 ODBC 错误。
With Worksheets(1).QueryTables(1)
.Refresh
Set errs = Application.ODBCErrors
If errs.Count > 0 Then
Set r = .Destination.Cells(1)
r.Value = "The following errors occurred:"
c = 0
For Each er In errs
c = c + 1
r.offset(c, 0).value = er.ErrorString
r.offset(c, 1).value = er.SqlState
Next
Else
MsgBox "Query complete: all records returned."
End If
End With
属性
Application 属性，Count 属性，Creator 属性，Parent 属性
方法
Item 方法(OBBCErrors 集合)
适用于
Application 对象
描述
返回一个 ODBCErrors 集合，该集合包含由最近的查询表或数据透视表操
作产生的所有 ODBC 错误。只读。
说明
如果有多个查询同时运行，则 ODBCErrors 集合包含的是最后完成的查询所产生的 ODBC 错误。
示例
本示例对第一张查询表进行刷新，并显示产生的所有 ODBC 错误。
With Worksheets(1).QueryTables(1)
.Refresh
Set errs = Application.ODBCErrors
If errs.Count > 0 Then
Set r = .Destination.Cells(1)
r.Value = "The following errors occurred:"
c = 0
For Each er In errs
c = c + 1
r.offset(c, 0).value = er.ErrorString
r.offset(c, 1).value = er.SqlState
Next
Else
MsgBox "Query complete:all records returned"
End If
End With
适用于
Application 对象
描述
以秒为单位返回或者设置 ODBC 查询时间限制。默认值为 45 秒。Long 类
型，可读写。
说明
返回值为 0（零）表示没有时间限制。
示例
本示例将 ODBC 查询的时间设置为 15 秒。
Application.ODBCTimeout = 15
适用于
Range 对象
描述
返回一个 Range 对象，此对象代表偏离于指定区域的区域。只读。
句法
expression.Offset(RowOffset, ColumnOffset)
expression
必选。该表达式返回 Range 对象。
RowOffset
Variant 类型，可选。区域偏移量中的行数（正数、负数或零）。默认值为 0
（零）。
ColumnOffset
Variant 类型，可选。区域偏移量中的列数（正数、负数或零）。默认值为 0
（零）。
另见
示例
本示例激活 Sheet1 工作表中当前单元格向右偏离 3 列，向下偏离 3 列的
单元格。
Worksheets("Sheet1").ActivateActive
Cell.Offset(rowOffset:=3, columnOffset:=3).Activate
本示例假定 Sheet1 中包含了一个带标题行的表。示例选定这个表，但不包
括其标题行。示例运行之前须保证这个表处于活动状态。
Set tbl = ActiveCell.Curren
tRegiontbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
tbl.Columns.Count).Select
适用于
TickLabels 对象
描述
返回或设置各级标志之间的距离以及第一级标志与坐标轴之间的距离。其默认距离为 100 像素，代表坐标轴标志之间以及标志与坐标轴之间的距离。其值可以为从 0 到 1000 之间的一个整数，相对于坐标轴标志的字体大小。可读写。Long 类型。
示例
如果偏移量小于 500，则本示例将图表“Chart1”中数值轴上标志之间的具体设置为当前距离的两倍。
With Charts("Chart1").Axes(xlValue).TickLabels
If .Offset < 500 then
.Offset = .Offset * 2
End If
End With
适用于
ShadowFormat 对象
描述
以磅为单位返回或设置指定形状的阴影的水平投影距离。正值表示投影在形状的右边，负值表示投影在形状的左边。Single 类型，可读写。
说明
如果要从阴影的当前位置对该阴影作少量移动，又不想指定阴影的绝对位置，可用 IncrementOffsetX 方法或 IncrementOffsetY 方法。
示例
本示例设置 myDocument 上第三个形状的阴影的垂直和水平投影距离。阴影投影在形状右边 5 磅和上方 3 磅的位置。如果该形状原来没有阴影，本示例将向该形状添加阴影。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Shadow
.Visible = True
.OffsetX = 5
.OffsetY = -3
End With
适用于
ShadowFormat 对象
描述
以磅为单位返回或设置指定形状的阴影的垂直投影距离。正值表示投影在形状的右边，负值表示投影在形状的左边。Single 类型，可读写。
说明
如果要从阴影的当前位置对该阴影作少量移动，又不想指定阴影的绝对位置，可用 IncrementOffsetX 方法或 IncrementOffsetY 方法。
示例
本示例设置 myDocument 上第三个形状的阴影的垂直和水平投影距离。阴影投影在形状右边 5 磅和上方 3 磅的位置。如果该形状原来没有阴影，本示例将向该形状添加阴影。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Shadow
.Visible = True
.OffsetX = 5
.OffsetY = -3
End With
描述
代表由最近一次 OLE DB 查询所返回的 OLE DB 错误。OLEDBError 对象是 OLEDBErrors 集合中的成员。如果指定的 OLE DB 查询运行时未发生任何错误，则 OLEDBErrors 集合为空。集合中错误的索引次序与 OLEDB 提供者生成这些错误时的次序相同。
使用 OLEDBError 对象
使用 OLEDBErrors(index) 可返回一个 OLEDBError 对象，其中，index 是OLE DB 错误的索引号。下例将显示由最近一次 OLE DB 查询所返回的第一个错误的错误描述和 SqlState 属性值。
Set objEr = Application.OLEDBErrors(1)
MsgBox "The following error occurred:" & _
objEr.ErrorString & " : " & objEr.SqlState
属性
Application 属性，Creator 属性，ErrorString 属性，Native 属性，Number属性，Parent 属性，SqlState 属性，Stage 属性
描述
OLEDBError 对象的集合。每个 OLEDBError 对象都代表最近一次 OLEDB 查询所返回的一个错误。如果指定的 OLE DB 查询运行时未发生错误，则 OLEDBErrors 集合为空。集合中错误的索引次序与 OLE DB 提供者生成这些错误时的次序相同。不能向该集合中添加成员。
使用 OLEDBErrors 集合
使用 OLEDBErrors 属性可返回 OLEDBErrors 集合。下例将显示该集合中每个 OLE DB 错误的错误说明和 SqlState 属性值。
For Each objEr in Application.OLEDBErrors
MsgBox "The following error occurred:" & _
objEr.ErrorString & " : " & objEr.SqlState
Next objEr
使用 OLEDBErrors(index) 可返回一个 OLEDBError 对象，其中，index 是OLE DB 错误的索引号。下例将显示最近一次 OLE DB 查询所返回的第一个错误的错误说明和 SqlState 属性值。
Set objEr = Application.OLEDBErrors(1)
MsgBox "The following error occurred:" & _
objEr.ErrorString & " : " & objEr.SqlState
属性
Application 属性，Count 属性，Creator 属性，Parent 属性
方法
Item 方法(OLEDBErrors 集合)
适用于
Application 对象
描述
返回 OLEDBErrors 集合，它代表最近一次 OLE DB 查询所返回的错误信息。只读。
示例
本示例显示最近一次 OLE DB 查询所返回的 OLE DB 错误的错误说明和SqlState 属性值。
Set objEr = Application.OLEDBErrors.Item(1)
MsgBox "The following error occurred:" & _
objEr.ErrorString & " : " & objEr.SqlState
描述
包含 OLE 对象的属性。
使用 OLEFormat 对象
使用 OLEFormat 属性可返回 OLEFormat 对象。下列示例激活 Shapes集合中的一个 OLE 对象。
Worksheets(1).Shapes(1).OLEFormat.Activate
如果 Shape 对象不代表一个链接对象或嵌入式对象，则 OLEFormat 属性失效。
属性
Application 属性，Creator 属性，Object 属性，Parent 属性，ProgId 属性
方法
Activate 方法，Verb 方法
适用于
Shape 对象
描述
返回一个 OLEFormat 对象，该对象包含所有 OLE 对象属性。只读。
示例
本示例激活一个 OLE 对象。如果 Shapes(1) 代表的不是嵌入式 OLE 对象则本示例失效。Worksheets(1).Shapes(1).OLEFormat.Activate
描述
返回工作表中一个 ActiveX 控件或者一个链接式或嵌入式 OLE 对象。OLEObject 对象 是 OLEObjects 集合的成员。OLEObjects 集合中包含单张工作表中的所有 OLE 对象。
使用 OLEObject 对象
使用 OLEObjects(index)（其中 index 为对象名称或编号）可返回一个OLEObject 对象。下列示例删除 Sheet1 中的第一个 OLE 对象。
Worksheets("Sheet1").OLEObjects(1).Delete
下列示例删除名为“ListBox1”的 OLE 对象。
Worksheets("Sheet1").OLEObjects("ListBox1").Delete
说明
工作表上的 ActiveX 控件的 OLEObject 对象的属性和方法是相同的。这样，通过在 Visual Basic 代码使用控件名称即可对这些属性进行访问。下列示例选中复选框控件“MyCheckBox”，将其设为与活动单元格对齐，然后激活此控件。
With MyCheckBox
.Value = True
.Top = ActiveCell.Top
.Activate
End With
属性
AltHTML 属性，Application 属性，AutoLoad 属性，AutoUpdate 属性，Border 属性，BottomRightCell 属性，Creator 属性，Enabled 属性，Height属性，Index 属性，Interior 属性，Left 属性，LinkedCell 属性，ListFillRange属性，Locked 属性，Name 属性，Object 属性，OLEType 属性，Parent 属性，Placement 属性，PrintObject 属性，ProgId 属性，Shadow 属性，ShapeRange 属性，SourceName 属性，Top 属性，TopLeftCell 属性，Visible属性，Width 属性，Zorder 属性
方法
Activate 方法，BringToFront 方法，Copy 方法，CopyPicture 方法，Cut 方法，Delete 方法，Duplicate 方法，Select 方法，SendToBack 方法，Update方法，Verb 方法
事件
GotFocus 事件，LostFocus 事件
描述
指定工作表中所有 OLEObject 对象的集合。每一 OLEObject 对象代表一个 ActiveX 控件或者一个链接式或嵌入式的 OLE 对象。
使用 OLEObjects 集合
使用 OLEObjects 方法可返回 OLEObjects 集合。下列示例隐藏第一张工作表中的所有 OLE 对象。
Worksheets(1).OLEObjects.Visible = False
使用 Add 方法可新建一个 OLE 对象，并将其添加到 OLEObjects 集合中。下列示例新建一个 OLE 对象，该对象代表 Arcade.bmp 位图文件，并将该位图文件添加到第一张工作表中。
Worksheets(1).OLEObjects.Add FileName:="arcade.bmp"
下列示例新建一个 ActiveX 控件（一个列表框），并将其添加到第一张工作表中。
Worksheets(1).OLEObjects.Add ClassType:="Forms.ListBox.1"
说明
工作表上的 ActiveX 控件有两个名称：包含该控件的形状的名称，可以在工作表的“名称”框中看到该名称；另一个名称是控件的代码名称，可以在“属性”窗口中“（命名）”右边的单元格中看到该名称。首次向工作表添加控件时，形状名称和代码名称是匹配的。但是，如果其中一个名称改变了，另一个不会随之自动改变。
可以在控件的事件过程名中使用其代码名称。但是，从工作表的 Shapes 或OLEObjects 集合返回控件时，必须使用形状名称来引用该控件，而不能使用代码名称。例如，假定向工作表添加了一个复选框，形状名称和代码名称都是“CheckBox1”。如果在“属性”窗口中“（命名）”右边的单元格中键入“chkFinished”，来改变其代码名称，则必须在事件过程名中使用“chkFinished”，但仍可用“CheckBox1”从Shapes或OLEObject集合返回控件，如下例所示。
Private Sub chkFinished_Click()
ActiveSheet.OLEObjects("CheckBox1").Object.Value = 1
End Sub
属性
AltHTML 属性，Application 属性，AutoLoad 属性，Border 属性，Count属性，Creator 属性，Enabled 属性，Height 属性， Interior 属性，Left 属性， Locked 属性， Parent 属性，Placement 属性，PrintObject 属性，Shadow 属性，ShapeRange 属性，SourceName 属性，Top 属性， Visible属性，Width 属性，ZOrder 属性
方法
Add 方法(OLEObjects 集合)，BringToFront 方法，Copy 方法，CopyPicture 方法，Cut 方法，Delete 方法，Duplicate 方法，Item 方法(OLEObjects 集合)，Select 方法，SendToBack 方法
适用于
Chart 对象，Worksheet 对象
描述
返回代表图表或工作表上单个 OLE 对象（OLEObject 对象，句法 1）或所有 OLE 对象的集合（OLEObjects 集合，句法 2）的对象。只读。
句法 1
expression.OLEObjects(Index)
句法 2
expression.OLEObjectsexpression
必选。该表达式返回 Chart 或 Worksheet 对象。
Index
Variant 类型，可选。OLE 对象的名称或编号。
另见
示例
本示例创建工作表“Sheet1”上 OLE 对象的链接类型列表。该列表将出现在本示例新建的工作表中。
Set newSheet = Worksheets.Add
i = 2
newSheet.Range("A1").Value = "Name"
newSheet.Range("B1").Value = "Link Type"
For Each obj In Worksheets("Sheet1").OLEObjects
newSheet.Cells(i, 1).Value = obj.Name
If obj.OLEType = xlOLELink Then
newSheet.Cells(i, 2) = "Linked"
Else
newSheet.Cells(i, 2) = "Embedded"
End If
i = i + 1
Next
适用于
OLEObject 对象
描述
返回 OLE 对象类型。可为下列 XlOLEType 常量： xlOLELink 或xlOLEEmbed。如果对象是链接的（对象存储于文件之外），本属性返回xlOLELink，如果对象是内嵌的（对象完全包含于文件之内），则返回xlOLEEmbed。Long 类型，只读。
另见
示例
本示例创建工作表“Sheet1”上 OLE 对象的链接类型列表。该列表将出现在本示例新建的工作表中。
Set newSheet = Worksheets.Add
i = 2
newSheet.Range("A1").Value = "Name"
newSheet.Range("B1").Value = "Link Type"
For Each obj In Worksheets("Sheet1").OLEObjects
newSheet.Cells(i, 1).Value = obj.Name
If obj.OLEType = xlOLELink Then
newSheet.Cells(i, 2) = "Linked"
Else
newSheet.Cells(i, 2) = "Embedded"
End If
i = i + 1
Next
适用于
Filter 对象
描述
如果指定的筛选已打开，则为 True。Boolean 类型，只读。
另见
示例
下面的示例将一个变量的值设置为 Criteria1 属性，该属性是 Crew 工作簿中过滤范围第一列的过滤器的。
With Worksheets("Crew")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then c1 = .Criteria1
End With
End If
End With
适用于
Shape 对象
描述
返回或者设置单击指定对象时运行的宏的名称。String 类型，可读写。
说明
对菜单项的此属性进行设置，将用为指定宏设置的帮助信息覆盖原先为该菜单项所设置的帮助信息。
另见
Help 方法， MacroOptions 方法， MouseDown 事件， MouseMove 事件， MouseUp 事件， StatusBar 属性
示例
本示例设置每当单击第一个形状时， Microsoft Excel 就运行 ShapeClick 过程。
Worksheets(1).Shapes(1).OnAction = "ShapeClick"
适用于
ChartFillFormat 对象，FillFormat 对象
描述
将指定填充设为单色过渡。
句法
expression.OneColorGradient(GradientStyle, Variant, Degree)
expression
必选。该表达式返回一个 FillFormat 对象。
GradientStyle
Long 类型，必选。过渡样式。 可为下列 MsoGradientStyle 常量之一：
msoGradientDiagonalDown,msoGradientDiagonalUp,msoGradientFromCenter, msoGradientFromCorner,msoGradientHorizontal 或 msoGradientVertical。
Variant
Long 类型， 必选。过渡变量。取值范围为 1 到 4 之间，分别与“填充效果”对话框中“过渡”选项卡的四个过渡变量相对应。如果 GradientStyle设为 msoGradientFromCenter，则 Variant 参数只能设为 1 或 2。
Degree
Single 类型，必选。灰度。取值范围为 0.0（暗）到 1.0（亮）之间。
示例
本示例以第一张图表中使用的填充格式对第二张图表的填充格式进行设置。
Set c1f = Charts(1).ChartArea.FillIf c1f.Type = msoFillGradient And _
c1f.GradientColorType = msoGradientOneColor Then
With Charts(2).ChartArea.Fill
.Visible = True
OneColorGradient c1f.GradientStyle, _
c1f.GradientVariant, c1f.GradientDegree
End With
End If
适用于
Application 对象
描述
当按下特定键或特定的组合键时运行指定的过程。
句法
expression.OnKey(Key, Procedure)
expression
必选。该表达式返回一个 Application 对象。
Key
String 类型，必选。一个用于代表将要按下键的字符串。
Procedure
Variant 类型，可选。表示要运行的过程的名称字符串。如果 Procedure 参数为 "" （空字符串），则按下 Key 键时不触发任何操作。使用 OnKey 方式将更改击键在 Microsoft Excel 中产生的正常结果。如果省略 Procedure参数，则 Key 键产生 Microsoft Excel 中的正常结果，同时清除先前使用OnKey 方法对该击键设置的过程。
说明
Key 参数可指定任何单个键，可指定任何与 ALT, CTRL 或 SHIFT 的组合键，还可以指定这些键的任何组合（在 Windows 中）。每一键的名称可由一个或多个字符表示，比如 “a”表示字符 a，或者 “{ENTER}” 表示 ENTER键。
要指定非显示字符对应的键（例如 ENTER 键或 TAB 键），可使用下表所列出的代码。表中的每一代码表示键盘上的一个对应键。
| 键 | 代码 |
| BACKSPACE | {BACKSPACE} 或 {BS} |
| BREAK | {BREAK} |
| CAPS LOCK | {CAPSLOCK} |
| CLEAR | {CLEAR} |
| DELETE 或 DEL | {DELETE} 或 {DEL} |
| DOWN ARROW | {DOWN} |
| END | {END} |
| ENTER （数字小键盘） | {ENTER} |
| ENTER | ~ (tilde) |
| ESC | {ESCAPE} 或 {ESC} |
| HELP | {HELP} |
| HOME | {HOME} |
| INS | {INSERT} |
| LEFT ARROW | {LEFT} |
| NUM LOCK | {NUMLOCK} |
| PAGE DOWN | {PGDN} |
| PAGE UP | {PGUP} |
| RETURN | {RETURN} |
| RIGHT ARROW | {RIGHT} |
| SCROLL LOCK | {SCROLLLOCK} |
| TAB | {TAB} |
| UP ARROW | {UP} |
| F1 到 F15 | {F1} 到 {F15} |
在 Windows 中，也可指定与 SHIFT 键和/或 CTRL 键和/或 ALT 键的组合键。要指定与这些键的组合可使用下表提供的方法。
| 要组合的键 | 在键代码之前添加 |
| SHIFT | + （加号） |
| CTRL | ^ （乘幂） |
| ALT | % （百分号） |
若为特定字符指派处理过程（如 +，^，% 等等），可将此字符用圆括号括起。有关详细内容，另见示例。
示例
本示例为 CTRL+PLUS SIGN 组合键指派“InsertProc”过程，并为SHIFT+CTRL+RIGHT ARROW 组合键指派“SpecialPrintProc”过程。
Application.OnKey "^{+}", "InsertProc"
Application.OnKey "+^{RIGHT}", "SpecialPrintProc"
本示例将 SHIFT+CTRL+RIGHT ARROW 击键重新设为正常的含义。
Application.OnKey "+^{RIGHT}"
本示例将 SHIFT+CTRL+RIGHT ARROW 组合键设为不发生任何操作。
Application.OnKey "+^{RIGHT}", ""
适用于
Application 对象
描述
对“重复”菜单项和执行的过程名进行设置。运行对此属性进行设置的过程之后，则选择“编辑”菜单的“重复”命令将执行本方法指定的过程。
句法
expression.OnRepeat(Text, Procedure)
expression
必选。该表达式返回一个 Application 对象。
Text
String 类型，必选。在“编辑”菜单的“重复”命令处显示的文字。
Procedure
String 类型，必选。选择“编辑”菜单的“重复”命令时执行的过程。
说明
如果一个过程不使用 OnRepeat 方法，则恢复命令重复最近运行的过程。一个过程必须在其最后使用 OnRepeat 方法和 OnUndo 方法，以免过程中的后续操作覆盖掉要重复和撤消的过程。
另见
示例
本示例对重复和撤消过程进行设置。
Application.OnRepeat "Repeat VB Procedure", _
"Book1.xls!My_Repeat_Sub"
Application.OnUndo "Undo VB Procedure", _
"Book1.xls!My_Undo_Sub"
适用于
Application 对象
描述
安排一个过程在将来的特定时间运行（既可为某个日期的指定时间，也可为指定的时间段之后）。
句法
expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)
expression
必选。该表达式返回一个 Application 对象。
EarliestTime
Variant 类型，必选。设置过程开始运行的最早时间。
Procedure
String 类型，必选。设置要运行的过程名。
LatestTime
Variant 类型，可选。过程开始运行的最晚时间。例如，LatestTime 参数设为 EarliestTime + 30 ，当时间到了 EarliestTime 时，如果由于其它程序处于运行状态而Microsoft Excel 不处于“就绪”、“复制”、“剪切”或“查找”模式，则 Microsoft Excel 将等待 30 秒让第一个过程先结束运行。如果 30秒内 Microsoft Excel 不能回到“就绪”模式，则不运行此过程。如果省略该参数， Microsoft Excel 将一直等待到可以运行该过程为止。
Schedule
Variant 类型，可选。如果为 True 则安排一个新的 OnTime 过程。如果为 False 则清除先前设置的过程。默认值为 True。
说明
使用 Now + TimeValue(time) 可安排经过一段时间（从现在开始计时）之后运行某个过程。使用 TimeValue(time) 可安排某个过程只运行指定的时间。
示例
本示例设置 15 秒后运行 my_Procedure 过程，从现在开始计时。
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
本示例设置 my_Procedure 在下午 5 点开始运行。
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
本示例撤消由前一个示例对 OnTime 的设置。
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False
适用于
Application 对象
描述
对“撤消”菜单项和执行的过程名进行设置。运行对此属性进行设置的过程之后，则选择“编辑”菜单的“撤消”命令将执行本方法指定的过程。
句法
expression.OnUndo(Text, Procedure)
expression
必选。该表达式返回一个 Application 对象。
Text
String 类型，必选。在“编辑”菜单的“撤消”命令处显示的文字。
Procedure
String 类型，必选。选择“编辑”菜单的“撤消”命令时执行的过程。
说明
如果一个过程中不使用 OnUndo 方法，则 Undo 命令不可选。
一个过程必须在其最后使用 OnRepeat 方法和 OnUndo 方法，以免过程中的后续操作覆盖掉要重复和撤消的过程。
另见
示例
本示例对重复和撤消过程进行设置。
Application.OnRepeat "Repeat VB Procedure", _
"Book1.xls!My_Repeat_Sub"
Application.OnUndo "Undo VB Procedure", _
"Book1.xls!My_Undo_Sub"
适用于
Application 对象，Window 对象
描述
返回或者设置每当激活一个窗口时要运行的过程的名称。String 类型，可读写。
说明
当由其它过程切换到该窗口或由 DDE 通道接受的命令要切换到该窗口时，则不运行由该属性指定的过程。此过程只响应用户操作，如鼠标单击窗口，或单击“编辑”菜单中的“定位”命令等等。
如果工作表或宏表定义了 Auto_Activate 宏或者 Auto_Deactivate 宏，则在OnWindow 属性指定的过程运行完之后再运行这些宏。
示例
本示例设置每当激活第一个窗口时就运行 WindowActivate 过程。
ThisWorkbook.Windows(1).OnWindow = "WindowActivate"
适用于
Workbook 对象
描述
打开工作簿时，将产生本事件。
句法
Private Sub Workbook_Open()
示例
本示例使每次打开工作簿时，都最大化 Microsoft Excel 窗口。
Private Sub Workbook_Open()
Application.WindowState = xlMaximized
End Sub
适用于
RecentFile 对象，Workbooks 集合对象
描述
打开一个工作簿。
句法
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password,WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable,Notify, Converter, AddToMRU)
expression
必选。该表达式返回一个 Workbooks 对象或 RecentFile 对象。
FileName
String 类型，必选。要打开的工作簿文件名。
UpdateLinks
Variant 类型，可选。指定文件中的链接的更新方式。如果省略本参数，则提示用户选择链接的更新方式。否则，该参数的取值应为下表的某个值。
| 取值 | 意义 |
| 0 | 不更新任何引用。 |
| 1 | 更新外部引用，但不更新远程引用。 |
| 2 | 更新外部引用，但不更新外部引用。 |
| 3 | 更新所有远程引用和外部引用。 |
如果 Microsoft Excel 正在打开以 WKS，WK1 或 WK3 格式存储的文件并且 UpdateLinks 参数设为 2，则 Microsoft Excel 根据与该文件关联的图形创建图表。如果该参数设为 0，则不创建任何图表。
ReadOnly
Variant 类型，可选。如果为 True 则以只读模式打开工作簿。
Format
Variant 类型，可选。如果 Microsoft Excel 正在打开一个文本文件，则该参数用于指定分隔字符，如下表所示。如果省略本参数，则使用当前的分隔字符。
| 取值 | 分隔字符 |
| 1 | 制表符 |
| 2 | 逗号 |
| 3 | 空格 |
| 4 | 分号 |
| 5 | 没有分隔符 |
| 6 | 自定义字符（参阅 Delimiter 参数） |
Password
Variant 类型，可选。该字符串为用于打开一个受保护工作簿的密码。如果省略该参数并且指定工作簿已设置密码，则提示用户输入密码。
WriteResPassword
Variant 类型，可选。该字符串为一个写保护工作簿的写入权密码。如果省略该参数并且指定工作簿已设置密码，则提示用户输入密码。
IgnoreReadOnlyRecommended
Variant 类型，可选。如果为 True 则设置 Microsoft Excel 不显示建议只读消息（如果该工作簿以“建议只读”选项保存）。
Origin
Variant 类型，可选。如果该文件为文本文件，则该参数用于指示该文件的来源于何种操作系统（以便对代码页和回车/换行（CR/LF）进行正确映射）。可为下列 XlPlatform 常量之一： xlMacintosh、 xlWindows 或xlMSDOS。如果省略本参数，则使用当前操作系统。Delimiter
Variant 类型，可选。如果该文件为文本文件并且 Format 参数设为 6，则此参数用于指定用作分隔符的字符。例如，可使用 Chr(9) 代表制表符，使用 "," 代表逗号，使用 ";" 代表分号或者使用自定义字符。如果该参数为字符串，则只使用该字符串的第一个字符。
Editable
Variant 类型，可选。如果该文件为 Microsoft Excel 4.0 加载宏，则该参数为 True 时可在可见窗口中打开该加载宏。如果该参数设为 False 或者省略该参数，则该加载宏以隐藏方式打开，并且不能设为可见。本选项不能应用于由 Microsoft Excel 5.0 或更高版本的 Microsoft Excel 创建的加载宏。如果文件是Excel模板，设置True打开指定模板进行编辑。设置False则在基于指定模板中打开新工作簿。缺省值为False。
Notify
Variant 类型，可选。如果该文件不能以可读写模式打开，则若该参数设为True 可将该文件添加到文件通知列表。Microsoft Excel 将以只读模式打开该文件并轮询文件通知列表，当文件通知列表中的该文件可用时则通知用户。如果该参数设为 False，或者省略该参数，则不请求任何通知，并且不能打开任何不可用的文件。
Converter
Variant 类型，可选。打开文件时试用的第一个文件转换器的索引号。首先使用的是指定的文件转换器；如果该转换器不能识别此文件，则试用所有的转换器。转换器索引号由 FileConverters 属性所返回的转换器行号组成。
AddToMRU
Variant 类型，可选。如果为 True 则将该工作簿添加到最近使用文件列表中。默认值为 False。
说明
如果正在打开的工作簿包含 Auto_Open 宏，则若在 Visual Basic 中打开该工作簿这些宏将不执行。如果要执行 Auto_Open 宏，必须使用RunAutoMacros 方法。
另见
Activate 方法， Close 方法， FileConverters 属性， OpenText 方法
示例
本示例打开 Analysis.xls 工作簿，然后执行 Auto_Open 宏。
Workbooks.Open "ANALYSIS.XLS"
ActiveWorkbook.RunAutoMacros xlAutoOpen
适用于
Workbook 对象
描述
打开链接的支持文档。
句法
expression.OpenLinks(Name, ReadOnly, Type)
expression
必选。该表达式返回 Workbook 对象。
Name
String 类型，必选。Microsoft Excel 链接或 DDE/OLE 链接的名称，就像LinkSources 方法返回的一样。
ReadOnly
Variant 类型，可选。如果指定 True，就以只读方式打开文档。默认值为False。
Type
可选。链接类型。可为下列 XlLink 常量： xlExcelLinks, xlOLELinks（也处理 DDE 链接）, xlPublishers 或 xlSubscribers。
示例
本示例打开活动工作簿中的第一个 OLE 链接。
linkArray = ActiveWorkbook.LinkSources(xlOLELinks)
ActiveWorkbook.OpenLinks linkArray(1)
本示例打开活动工作簿的所有 Microsoft Excel 支持文档。
ActiveWorkbook.OpenLinks _
name:=ActiveWorkbook.LinkSources(xlExcelLinks)
适用于
Workbooks 集合对象
描述
载入一个文本文件，并将其作为包含单个工作表的工作簿进行分列处理，
然后在此工作表中放入经过分列处理的文本文件数据。
句法
expression.OpenText(Filename,Origin,StartRow,DataType,TextQualifier,ConsecutiveDelimiter,Tab,Semicolon,Comma,Space,Other,OtherChar,FieldInfo,DecimalSeparator,ThousandsSeparator)
expression必选。该表达式返回一个 Workbooks 对象。
Filename
String 类型，必选。指定要载入并作分列处理的文件名。
Origin
Variant 类型，可选。指定文本文件来源。可为下列 XlPlatform 常量之一：
xlMacintosh, xlWindows 或 xlMSDOS。如果省略该参数，则本方法使用
“文本导入向导”中“文件来源”选项的当前设定值。
StartRow
Variant 类型，可选。作分列处理的起始行号。默认值为 1。
DataType
Variant 类型，可选。指定文件中数据的列格式。可为下列XlTextParsingType 常量之一： xlDelimited 或 xlFixedWidth。默认值为xlDelimited。
TextQualifier
Variant 类型，可选。指定文本识别符。可为下列 XlTextQualifier 常量之一： xlTextQualifierDoubleQuote,xlTextQualifierSingleQuote或
xlTextQualifierNone。默认值为 xlTextQualifierDoubleQuote。
ConsecutiveDelimiter
Variant 类型，可选。如果为 True 则将连续多个分隔符号作为一个分隔符号处理。默认值为 False。
Tab
Variant 类型，可选。如果为 True 则将分隔符设为制表符（DataType 必须设为 xlDelimited）。默认值为 False。
Semicolon
Variant 类型，可选。如果为 True 则将分隔符设为分号（DataType 必须设为 xlDelimited）。默认值为 False。
Comma
Variant 类型，可选。如果为 True 则将分隔符设为逗号（DataType 必须设为 xlDelimited）。默认值为 False。
Space
可选。Variant 类型，如果为 True 则将分隔符设为空格（DataType 必须设为 xlDelimited)）。默认值为 False。
Other
Variant 类型，可选。如果为 True 则将分隔符设为由 OtherChar 参数指定的字符（DataType 必须设为 xlDelimited）。默认值为 False。
OtherChar
Variant 类型，可选（如果 Other 为 True 则必选）。当 Other 设为 True 时指定分隔字符。如果指定了多个字符，则仅使用字符串中第一个字符作为分隔符，并忽略其余的字符。
FieldInfo
可选。Variant 类型，包含各数据列分列信息的数组，其意义取决于 DataType的值。
如果数据用分隔符号隔开，该参数为二元数组的数组，其中每一个二元数组指定一个特定列的转换选项。二元数组中第一个元素为列号（下标从 1 开始），第二个元素指定列的分列方式，可为下列数字之一。
| 常量 | 描述 |
| xlDMYFormat | DMYdate |
| xlDYMFormat | DYM date |
| xlEMDFormat | EMDdate |
| xlGeneralFormat | General |
| xlMDYFormat | MDY date |
| xlMYDFormat | MYD date |
| xlSkipColumn | Skip column |
| xlTextFormat | Text |
| xlYDMFormat | YDM date |
| xlYMDFormat | YMD date |
只有在安装或选择了台湾语言支持时才能使用xlEMDFormat。xlEMDFormat常量表示使用的是台湾纪元时间。
列标识符指定顺序不限。输入数据中如果某列没有列标识符，则用常规设置对该列进行分列处理。本示例设置分列处理时跳过第三列，将第一列作为文本处理，源数据中其它列以常规设置进行分列处理。
Array(Array(3, 9), Array(1, 2))
如果源数据为定宽列，则每个二元数组的第一个元素指定起始元素在列中的位置，（用整数表示，第一个字符为 0 (零)），第二个元素用 1 到 9 的数字指定分列选项，如前表所示。下列示例在一个定宽文本文件中分列出两列。第一列包含从第 1 至第 10个字符，忽略第 11，12，13，14 及 15 个字符。第二列包含从第 16 至该行的最后一个字符。
Array(Array(0, 1), Array(10, 9), Array(15, 1))
DecimalSeparator
可选，String类型。识别数字时Microsoft Excel 使用的数字分隔符。缺省设置为系统设置。
ThousandsSeparator
可选，String类型。识别数字时Microsoft Excel 使用的千字分隔符。缺省设置为系统设置。
下表所示为Excel引入各种设置时，不同的引入文本的结果。数字结果在右边的列。
| 系统数字分隔符 | 系统千字分隔符 | 数字分隔符值 | 千字分隔符值 | 引入的文本 | 单元格值（数据类型） |
| Period | Comma | Comma | Period | 123.123,45 | 123,123.45(numeric) |
| Period | Comma | Comma | Comma | 123.123,45 | 123.123,45 (text) |
| Comma | Period | Comma | Period | 123,123.45 | 123,123.45(numeric) |
| Period | Comma | Period | Comma | 123 123.45 | 123 123.45 (text) |
| Period | Comma | Period | Space | 123 123.45 | 123,123,45(numeric) |
另见
Close 方法， Open 方法， TextToColumns 方法
示例
本示例打开 Data.txt 文件并使用制表符作为分隔符对此文件进行分列处理，转换成为工作表。
Workbooks.OpenText filename:="DATA.TXT", _
dataType:=xlDelimited, tab:=True
适用于
Application 对象
描述
返回当前操作系统的名称和版本号。例如，“Windows (32-bit) 4.00”。String类型，只读。
示例
本示例显示操作系统的名称。
MsgBox "Microsoft Excel is using " & Application.OperatingSystem
适用于
Filter 对象，FormatCondition 对象，Validation 对象
描述
返回条件格式或有效数据操作符。可为下列 XlFormatConditionOperator常量之一： xlBetween， xlEqual， xlGreater， xlGreaterEqual， xlLess，
xlLessEqual， xlNotBetween 或 xlNotEqual。Long 类型，只读。
另见
Add 方法(FormatConditions 集合)， Formula1 属性， Formula2 属性， Modify 方法(FormatCondition 对象)
示例
如果单元格区域“E1:E10”的第一个条件格式的公式指定“小于5”，本示
例将修改之。
With Worksheets(1).Range("e1:e10").FormatConditions(1)
If .Operator = xlLess And .Formula1 = "5" Then.
Modify xlCellValue, xlBetween, "5", "15"
End If
End With
适用于
PivotCache 对象
描述
如果构造数据透视表的高速缓存时将其优化，本属性为 True。默认值为False。
Boolean 类型，可读写。
说明
高速缓存的优化将导致附加的查询，并将降低数据透视表的初始性能。
对于OLE DB数据源，本属性为只读，且总返回False。
示例
本示例使数据透视表的高速缓存在构造时被优化。
Worksheets(1).PivotTables("Pivot1") _
.PivotCache.OptimizeCache = True
适用于
PageSetup 对象，Trendline 对象
描述
PageSetup 对象： 当 Microsoft Excel 打印一张大工作表时，该属性用于返回或者设置用于页编号的次序。可为下列 XlOrder 常量之一：
xlDownThenOver 或 xlOverThenDown。仅应用于工作表。Long 类型，可读写。
Trendline 对象： 当趋势线类型设为 xlPolynomial 时返回或者设置趋势线的次序（对于 1 的整数）。Long 类型，可读写。
示例
本示例设置打印 Sheet1 时将其分为多页打印。按照从左到右，从上到下的顺序编号和打印。
Worksheets("Sheet1").PageSetup.Order = xlOverThenDown
适用于
Application 对象
描述
返回注册组织名称。String 类型，只读。
另见
示例
本示例显示注册组织名称。
MsgBox "The registered organization is " & _
Application.OrganizationName
适用于
DefaultWebOptions 对象，WebOptions 对象
描述
当以 Web 页保存指定文档时，如果所有支持文件，例如：背景纹理和图形等，都组织在单独的文件夹中，则其值为 True。如果支持文件保存在与 Web页相同的文件夹中，则其值为 False。默认值为 True。可读写。Boolean 类型。
说明
新创建的文件夹位于用来保存 Web 页的文件夹中，并以文档名称进行命名。如果使用了长文件名，则文件夹名称后会带有一个后缀。FolderSuffix 属性可返回与已选定或已安装语言支持相对应的后缀，或者也可返回默认的文件夹后缀。
如果在上次保存某个文档时，OrganizeInFolder 属性的值与现在不同，那么现在保存该文档时，Microsoft Excel 会相应地将支持文件自动移进或移出该文件夹。
如果并未使用长文件名（即：UseLongFileNames 属性设置为 False），则Microsoft Excel 会自动将任何支持文件保存到其它文件夹中。这些文件不能保存到与 Web 页相同的文件夹中。
示例
本示例指定在以 Web 页保存文档时，所有支持文件都保存在相同的文件夹中。
Application.DefaultWebOptions.OrganizeInFolder = False
适用于
AxisTitle 对象，ChartTitle 对象，CubeField 对象，DataLabel 对象，DataLabels 集合对象，DisplayUnitLabel 对象，PageSetup 对象，PivotField对象，Range 对象，Style 对象，TextFrame 对象，TickLabels 对象
描述
返回或者设置对象的方向，如下表所示。Long 类型，可读写。
对象 方向
ChartObject, ChartObjects 嵌入式图表的放置。可为下列 XlPlacement 常量之
一： xlFreeFloating， xlMove 或 xlMoveAndSize 。
PageSetup 纵向或横向打印模式。可为下列两个
XlPageOrientation 常量之一： xlLandscape 或
xlPortrait 。
PivotField 指定字段在数据透视表中的位置。可为下列
XlPivotFieldOrientation 常量之一： xlColumnField，xlDataField ，
xlHidden， xlPageField 或
xlRowField 。
AxisTitle,ChartTitle,DataLabel,
DisplayUnitLabel,Range,Style,
TextFrame 文本方向。可为 -90 度到 90 度之间的整数，或者下列 XlOrientation 常量之一： xlDownward，xlHorizontal ， xlUpward 或 xlVertical 。
TickLabels文本方向。可为 -90 度到 90 度之间的整数，或者下列 XlTickLabelOrientation常量之一：
xlTickLabelOrientationAutomatic,
xlTickLabelOrientationDownward,
xlTickLabelOrientationHorizontal,
xlTickLabelOrientationUpward
或xlTickLabelOrientationVertical
说明
对于 OLAP 数据源，当设置某一层次上的一个字段的本属性值时，也会同时设置同一层次中所有其它字段的方向。对于行、列、页或度量字段中不同层次上的字段，只有当它们位于数据区时才有效。将某一层次或字段设置为 xlHidden 时，会将该层次或字段从数据透视表报表中移出。
示例
示例显示 ORDER_DATE 字段的方向。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
Set pvtField = pvtTable.PivotFields("ORDER_DATE")
Select Case pvtField.Orientation
Case xlHidden
MsgBox "Hidden field "
Case xlRowField
MsgBox "Row field"
Case xlColumnField
MsgBox "Column field"
Case xlPageField
MsgBox "Page field"
Case xlDataField
MsgBox "Data field"
End Select
本示例设置 Sheet1 以横向打印。
Worksheets("Sheet1").PageSetup.Orientation = xlLandscape
描述
代表工作表上的分级显示。
使用Outline分级显示对象可用 Outline 属性返回 Outline 对象。下例使工作表“Sheet4”中的分级显示只显示第一级。
Worksheets("sheet4").Outline.ShowLevels 1
属性
Application 属性，AutomaticStyles 属性，Creator 属性，Parent 属性，SummaryColumn 属性，SummaryRow 属性
方法
ShowLevels 方法
另见
ApplyOutlinesStyles 方法， AutoOutline 方法， ClearOutline 方法， DisplayOutline 属性， OutlineLevel 属性， ShowDetail 属性， Ungroup 方法(Range 对象)
适用于
Worksheet 对象
描述
返回一个 Outline 对象，此对象代表指定工作表的分级显示。只读。
示例
本示例将 Sheet1 的分级显示设置为使用自动样式。
Worksheets("Sheet1").Outline.AutomaticStyles = True
适用于
Font 对象
描述
如果指定字体为边框字体则为 True。Boolean 类型，可读写。
说明
该属性在 Windows 中不起作用。但保留其值（可对其进行设置并返回其值）。
示例
本示例对 Sheet1 的 A1 单元格的字体进行设置。
Worksheets("Sheet1").Range("A1").Font.OutlineFont = True
适用于
Range 对象
描述
返回或设置指定行或列的当前分级显示级别。Variant 类型，可读写。
说明
第一级为最外层的摘要级。
另见
ApplyOutlinesStyles 方法， AutoOutline 方法， ClearOutline 方法， DisplayOutline 属性， EntireColumn 属性， EntireRow 属性， Outline 对象， ShowDetail 属性， Ungroup 方法(Range 对象)
示例
本示例设置工作表“Sheet1”上第二行的分级显示级别。
Worksheets("Sheet1").Rows(2).OutlineLevel = 1
适用于
ChartGroup 对象
描述
指定条形和柱形的排列位置。取值范围在 -100 和 100 之间。仅应用于二维条形图和二维柱形图，Long 类型，可读写。
说明
如果将此属性设为 -100，条形之间有一个条形的间距。如果重叠比例为 0（零），条形之间没有间距（一个条形紧挨着另一条形）。如果重叠比例为100，所有条形将完全重叠。
另见
示例本示例将图表组一的重叠率设为 -50。本示例必须在有两个或多个系列的二维柱形图上运行。
Charts("Chart1").ChartGroups(1).Overlap = -50