关于VB Application对象帮助文件的整理.docx

关于VB Application对象帮助文件的整理.docx

《关于VB Application对象帮助文件的整理.docx》由会员分享，可在线阅读，更多相关《关于VB Application对象帮助文件的整理.docx（176页珍藏版）》请在冰点文库上搜索。

关于VBApplication对象帮助文件的整理

Application对象

0、ActivateMicrosoftApp方法

激活一个Microsoft应用程序。

如果该应用程序已经处于运行状态，则本方法激活的是正在运行的此应用程序。

如果该应用程序不处于运行状态，本方法将启动该应用程序的新实例。

语法

expression.ActivateMicrosoftApp（index）

expression  必选。

该表达式返回一个Application对象。

index   Long类型，必选。

指定要激活的Microsoft应用程序。

可为下列XlMSApplication常量之一：

xlMicrosoftWord、xlMicrosoftPowerPoint、xlMicrosoftMail、xlMicrosoftAccess、xlMicrosoftFoxPro、xlMicrosoftProject或xlMicrosoftSchedulePlus。

示例：

启动并激活Word。

Application.ActivateMicrosoftAppxlMicrosoftWord

一、ActiveCell属性

返回一个Range对象，该对象代表活动窗口的活动单元格（最上面的窗口），或指定窗口的活动单元格。

如果该窗口显示的不是工作表，则该属性无效。

只读。

说明

如果不指定对象识别符，本属性返回的是活动窗口中的活动单元格。

注意区分活动单元格和选定区域。

活动单元格是当前选定区域内的单个单元格。

选定区域可能包含多个单元格，但只有一个是活动单元格。

下列表达式都是返回活动单元格，并都是等价的。

ActiveCell

Application.ActiveCell

ActiveWindow.ActiveCell

Application.ActiveWindow.ActiveCell

示例：

1、显示活动单元格的值

Worksheets（"Sheet1"）.Activate

MsgBoxActiveCell.Value

2、更改活动单元格的字体格式设置。

Worksheets（"Sheet1"）.Activate

WithActiveCell.Font

   .Bold=True

   .Italic=True

EndWith

二、ActiveChart属性

返回Chart对象，该对象代表活动图表（包括嵌入式图表或图表工作表）。

当选定或激活嵌入式图表时，该嵌入式图表就成为活动的。

如果当前没有活动的图表，本属性返回Nothing。

只读。

说明

如果未指定对象识别符，本属性返回活动工作簿上的活动图表。

示例：

打开活动图表的图例。

ActiveChart.HasLegend=True

三、ActivePrinter属性

返回或设置活动打印机的名称。

可读写String类型。

示例：

显示活动打印机的名称。

MsgBox"Thenameoftheactiveprinteris"&Application.ActivePrinter

四、ActiveSheet属性

返回一对象，该对象代表活动工作簿中的，或者指定的窗口或工作簿中的活动工作表（最上面的工作表）。

如果没有活动的工作表，返回Nothing。

只读。

说明

如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。

如果某一工作簿在若干个窗口中出现，那么该工作簿的ActiveSheet属性在不同窗口中可能不同。

示例：

显示活动工作表的名称。

MsgBox"Thenameoftheactivesheetis"&ActiveSheet.Name

五、ActiveWindow属性

返回一个Window对象，该对象代表活动窗口（最上面窗口）。

只读。

如果没有打开的窗口则返回Nothing。

示例：

显示活动窗口的名称（Caption属性）。

MsgBox"Thenameoftheactivewindowis"&ActiveWindow.Caption

六、ActiveWorkbook属性

返回一个Workbook对象，该对象代表活动窗口（最上面的窗口）的工作簿。

只读。

如果没有打开任何窗口或者活动窗口为信息窗口或剪贴板窗口则返回Nothing。

示例：

显示活动工作簿的名称。

MsgBox"Thenameoftheactiveworkbookis"&ActiveWorkbook.Name

七、AddChartAutoFormat方法

向图表的可用自动套用格式列表中添加自定义的自动套用格式。

语法

expression.AddChartAutoFormat（Chart,Name,Description）

expression  必选。

该表达式返回一个Application对象。

Chart  Chart类型，必选。

新的图表自动套用格式，即指该图表中包含的格式。

Name  String类型，必选。

自动套用格式的名称。

Description  String类型，可选。

自定义自动套用格式的说明。

示例：

以图表“Chart1”为样板添加新的自动套用格式。

Application.AddChartAutoFormatChart:

=Charts（"Chart1"）,Name:

="PresentationChart"

八、AddCustomList方法

为自定义自动填充和/或自定义排序添加自定义序列。

语法

expression.AddCustomList（ListArray,ByRow）

expression  必选。

该表达式返回一个Application对象。

ListArray  Variant类型，必选。

指定数据源，可为一个字符串数组或者Range对象。

ByRow  Variant类型，可选。

仅当ListArray为Range对象时使用。

如果为True，使用指定区域中的每一行创建自定义序列；如果为False，使用指定区域中的每一列创建自定义序列。

如果省略该参数，并且区域中的行数比列数要多（或者行数与列数相等），MicrosoftExcel使用指定区域中的每一列创建自定义序列。

如果省略该参数，并且区域中的列数比行数要多，MicrosoftExcel使用指定区域中的每一行创建自定义序列。

说明

如果要添加的序列已经存在，则本方法不起作用。

示例：

将一个字符串数组添加到自定义序列中。

Application.AddCustomListArray（"cogs","sprockets","widgets","gizmos"）

九、AddIns属性

返回一个AddIns集合，此集合代表在“加载宏”对话框（“工具”菜单）中列出的全部加载宏。

只读。

说明

在不使用对象识别符的情况下使用这种方法等价于Application.Addins。

示例：

显示“分析工具库”加载宏的状态。

注意，用作AddIns集合索引的字符串是加载宏的标题，而不是加载宏的文件名。

IfAddIns（"AnalysisToolPak"）.Installed=TrueThen

   MsgBox"AnalysisToolPakadd-inisinstalled"

Else

   MsgBox"AnalysisToolPakadd-inisnotinstalled"

EndIf

十、AlertBeforeOverwriting属性

进行拖放编辑操作过程中，如果MicrosoftExcel在覆盖非空单元格之前先显示一条信息则为True。

Boolean类型，可读写。

示例：

设置MicrosoftExcel进行拖放编辑操作过程中，在改写非空单元格之前先显示警告。

Application.AlertBeforeOverwriting=True

十一、AltStartupPath属性

返回或者设置替换启动文件夹的名称。

String类型，可读写。

示例：

设置替换启动文件夹。

Application.AltStartupPath="C:

\EXCEL\MACROS"

十二、AnswerWizard属性

返回MicrosoftExcel的AnswerWizard对象。

只读。

AnswerWizard对象

代表MicrosoftOffice应用程序的“操作向导”。

每个应用程序只有一个“操作向导”，并且对AnswerWizard或AnswerWizardFiles集合所做的所有更改都将立刻影响活动的Office应用程序。

使用AnswerWizard对象

用ClearFileList方法可删除当前“操作向导”可用的文件列表中所有的项目。

可用此方法确保用户无法再通过“操作向导”访问Office宿主应用程序中使用的默认文件，例如当您用自定义的.AW文件替换“操作向导”文件时，即需要用此功能。

以下示例清除默认的“操作向导”文件列表，然后将两个自定义的文件添至自定义“操作向导”。

customAnswerWizard.ClearFileList

customAnswerWizard.Files.Add（"c:

\awfiles\custom_1.aw"）

customAnswerWizard.Files.Add（"c:

\awfiles\custom_2.aw"）

用ResetFileList方法可将当前“操作向导”中的文件列表恢复为Office宿主应用程序的默认文件列表。

也可通过向相应的注册关键字中加入自定义文件名的方式，在Windows注册表中建立自定义默认文件列表；注册关键字中指定的文件将在调用ResetFileList时恢复。

本示例重置当前“操作向导”的文件列表。

customAnswerWizard.ResetFileList

用Files属性可获得“操作向导”文件引用的集合。

Files属性将返回引用.AW文件的字符串的集合。

以下示例返回AnswerWizardFiles集合并在消息框中显示文件数。

DimcustomAnswerWizardFilesAsAnswerWizardFiles

SetcustomAnswerWizardFiles=Application.AnswerWizard.Files

MsgBoxcustomAnswerWizardFiles.Count

示例：

重置AnswerWizard文件列表。

Application.AnswerWizard.ResetFileList

十三、Application属性

如果不使用对象区分符，该属性返回一个Application对象，该对象代表指定的MicrosoftExcel应用程序。

如果使用对象区分符，该属性返回一个Application对象，该对象代表指定对象的创建者（可对一个OLE自动化对象使用本属性，可返回该对象所在的应用程序）。

只读。

示例：

显示一个有关创建myObject的应用程序的信息。

SetmyObject=ActiveWorkbook

IfmyObject.Application.Value="MicrosoftExcel"Then

MsgBox"ThisisaMicrosoftExcelobject"

Else

MsgBox"ThisisnotaMicrosoftExcelobject"

EndIf

十三+、ArbitraryXMLSupportAvailable属性（2003）

注释  除了将文件保存为XML电子表格格式，其他的XML功能只能在MicrosoftOfficeProfessionalEdition 2003和MicrosoftOfficeExcel 2003中使用。

返回一个Boolean值，表示MicrosoftExcel中的XML功能是否可用。

只读。

expression.ArbitraryXMLSupportAvailable

expression   必需。

该表达式返回一个Application对象。

十四、AskToUpdateLinks属性

如果MicrosoftExcel打开带有链接的文件时询问用户是否更新链接则为True。

如果MicrosoftExcel自动更新链接并且不显示对话框则为False。

Boolean类型，可读写。

示例：

设置MicrosoftExcel每当打开包含链接的文件时就询问用户是否更新链接。

Application.AskToUpdateLinks=True

十五、Assistant属性

返回MicrosoftExcel的Assistant对象。

说明

使用本属性时，如不给出对象识别符，等同于如下用法：

Application.Assistant。

示例：

使Office助手可见。

Assistant.Visible=True

十六、AutoCorrect属性

返回一个AutoCorrect对象，该对象代表MicrosoftExcelAutoCorrect属性。

只读。

示例：

在AutoCorrect替换文本数组中设置单词“Temp.”的替换文本为“Temperature”。

WithApplication.AutoCorrect

   .AddReplacement"Temperature","Temp."

EndWith

十七、AutoFormatAsYouTypeReplaceHyperlinks属性（2003）

如果MicrosoftExcel按照键入的内容自动设置超链接的格式，则该值为True（默认）。

如果Excel不按照键入的内容自动设置超链接的格式，则该值为False。

Boolean类型，可读写。

expression.AutoFormatAsYouTypeReplaceHyperlinks

expression     必需。

该表达式返回“应用于”列表中的对象之一。

示例

在本示例中，MicrosoftExcel判断是否可按照键入的内容自动设置超链接的格式，并通知用户。

SubCheckHyperlinks（）

'Determineifautomaticformattingisenabledandnotifyuser.

IfApplication.AutoFormatAsYouTypeReplaceHyperlinks=TrueThen

MsgBox"Automaticformattingfortypinginhyperlinksisenabled."

Else

MsgBox"Automaticformattingfortypinginhyperlinksisnotenabled."

EndIf

EndSub

十八、AutomationSecurity属性（2003）

返回或设置MsoAutomationSecurity常数，该常数代表在用编程方法打开文件时，MicrosoftExcel所使用的安全模式。

在启动应用程序时，该属性被自动设置为msoAutomationSecurityLow。

因此，若要避免破坏利用默认设置的解决方案，应该在用编程方法打开某个文件之后，将该属性重新设置为msoAutomationSecurityLow。

而且，在用编程方法打开该属性之前或之后，应该立即设置该属性，以避免恶意颠覆。

读/写。

MsoAutomationSecurity可为以下MsoAutomationSecurity常量之一。

msoAutomationSecurityByUI使用Security对话框中指定的安全设置。

msoAutomationSecurityForceDisable在没有显示任何安全警告的情况下，禁用所有从程序打开的文件中的宏。

msoAutomationSecurityLow启用所有的宏。

这是启动应用程序时的默认值。

expression.AutomationSecurity

expression     必需。

该表达式返回“应用于”列表中的对象之一。

说明

将ScreenUpdating设置为False不会影响警报，也不会影响安全警告。

DisplayAlerts的设置不应用于安全警告。

例如，当用户处于中等安全级别时，如果用户将DisplayAlerts设置为False并且将AutomationSecurity设置为msoAutomationSecurityByUI，那么运行宏时就会出现安全警告。

当成功地打开文件后仍然显示安全警告时，就可以用宏捕获文件打开错误。

示例

本示例捕获当前的自动安全设置，更改设置以禁用宏，显示“打开”对话框，在打开选取的文档后，将自动安全模式设置回初始设置。

SubSecurity（）

DimsecAutomationAsMsoAutomationSecurity

secAutomation=Application.AutomationSecurity

Application.AutomationSecurity=msoAutomationSecurityForceDisable

Application.FileDialog（msoFileDialogOpen）.Show

Application.AutomationSecurity=secAutomation

EndSub

十九、AutoPercentEntry属性

如果在向格式设置为百分比的单元格中输入数值时，并不自动乘以100，则其值为True。

可读写。

Boolean类型。

示例：

使得以后向格式为百分比的单元格中输入的数据都将自动乘以100。

Application.AutoPercentEntry=False

十九+、AutoRecover属性（2003）

返回一个AutoRecover对象，该对象在规定的时间间隔内对所有的文件格式进行备份。

expression.AutoRecover

expression     必需。

该表达式返回“应用于”列表中的对象之一。

说明

有效的时间间隔为从1到120的所有数值。

示例

在本示例中，Time属性与AutoRecover属性结合使用，可将MicrosoftExcel在保存另一个副本之前的等待时间间隔设置为5分钟。

SubUseAutoRecover（）

Application.AutoRecover.Time=5

MsgBox"Thetimethatwillelapsebetweeneachautomatic"&"savehasbeensetto"&_

Application.AutoRecover.Time&"minutes."

EndSub

二十、Build属性

返回MicrosoftExcel连编号。

Long类型，只读。

说明通常检测Version属性较为安全，除非必须要获知连编号。

示例：

检测Build属性。

IfApplication.Build>2500Then

   'build-dependentcodehere

EndIf

二一、Calculate方法

计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示：

要计算

依照本示例

所有打开的工作簿

Application.Calculate（orjustCalculate）

指定工作表

指定工作表

指定区域

Worksheets

（1）.Rows

（2）.Calculate

语法

expression.Calculate

expression  对于Application对象可选，对于Worksheet对象和Range对象必选。

该表达式返回“应用于”列表中的某个对象。

示例：

计算“Sheet1”已用区域中A列、B列和C列的公式。

Worksheets（"Sheet1"）.UsedRange.Columns（"A:

C"）.Calculate

二二、CalculateBeforeSave属性

如果将工作簿保存到磁盘之前先进行计算则为True（如果将Calculation属性设为xlManual）。

该属性不随Calculation属性的改变而改变。

Boolean类型，可读写。

示例：

设置MicrosoftExcel保存工作簿到磁盘之前对工作簿进行计算。

Application.Calculation=xlManual

Application.CalculateBeforeSave=True

二三、CalculateFull方法

促使对所有打开工作簿中的数据进行完整计算。

示例：

将当前MicrosoftExcel的版本与上次计算该工作簿的Excel版本进行比较。

如果两个版本号不同，则对所有打开工作簿中的数据进行一次完整计算。

IfApplication.CalculationVersion<>Workbooks

（1）.CalculationVersionThen

Application.CalculateFull

EndIf

二三+、CalculateFullRebuild方法（2003）

对于所有打开的工作簿，强制数据的完整计算并重建从属关系。

expression.CalculateFullRebuild

expression     必需。

该表达式返回“应用于”列表中的对象之一。

说明

从属关系是取决于其他单元格的公式。

例如，公式“=A1”取决于单元格A1。

CalculateFullRebuild方法类似于重新输入所有公式。

示例

本示例将当前MicrosoftExcel的版本与上次计算该工作簿的Excel版本进行比较。

如果两个版本不同，则对所有打开工作簿中的数据进行一次完整计算并重建从属关系。

SubUseCalculateFullRebuild（）

IfApplication.CalculationVersion<>Workbooks

（1）.CalculationVersionThen

Application.CalculateFullRebuild

EndIf

EndSub

二四、Calculation属性

Application对象：

返回或者设置计算模式。

可为下列XlCalculation常数之一：

xlCalculationAutomatic、xlCalculationManual或xlCalculationSemiautomatic。

PivotField对象：

返回或设置指定字段计算结果的类型。

可为下列XlPivotFieldC