Application对象及其常用方法基本操作应用示例Word文档格式.docx
《Application对象及其常用方法基本操作应用示例Word文档格式.docx》由会员分享，可在线阅读，更多相关《Application对象及其常用方法基本操作应用示例Word文档格式.docx（7页珍藏版）》请在冰豆网上搜索。
开启状态栏显示
'
赋值状态栏显示的文本
Application.StatusBar="
StatusBar属性用来指定显示在状态栏上的信息。
若不想再显示状态栏文本，可使用Application.StatusBar=False语句关闭状态栏显示，也可以在程序开始将原先的状态栏设置存储，如使用语句oldStatusBar=Application.DisplayStatusBar将状态栏原来的信息存储在变量oldStatusBar，在程序运行完成或退出时，将变量重新赋值给状态栏，如使用语句Application.DisplayStatusBar=oldStatusBar，以恢复状态栏原状。
示例01-03：
处理光标（Cursor属性）
SubViewCursors（）
Application.Cursor=xlNorthwestArrow
您将使用箭头光标,切换到Excel界面查看光标形状"
Application.Cursor=xlIBeam
您将使用工形光标,切换到Excel界面查看光标形状"
Application.Cursor=xlWait
您将使用等待形光标,切换到Excel界面查看光标形状"
Application.Cursor=xlDefault
您已将光标恢复为缺省状态"
示例01-04：
获取系统信息
SubGetSystemInfo（）
Excel版本信息为:
Application.CalculationVersion
Excel当前允许使用的内存为:
Application.MemoryFree
Excel当前已使用的内存为:
Application.MemoryUsed
Excel可以使用的内存为:
Application.MemoryTotal
本机操作系统的名称和版本为:
Application.OperatingSystem
本产品所登记的组织名为:
Application.OrganizationName
当前用户名为:
Application.UserName
当前使用的Excel版本为:
Application.Version
可以使用给UserName属性赋值以设置用户名称。
示例01-05：
退出复制/剪切模式（CutCopyMode属性）
SubexitCutCopyMode（）
Application.CutCopyMode=False
退出复制/剪切模式后，在程序运行时所进行的复制或剪切操作不会在原单元格区域留下流动的虚框线。
需要提醒的是，在程序运行完后，应使用Application.CutCopyMode=False语句恢复该属性的默认设置。
示例01-06：
禁止弹出警告信息（DisplayAlerts属性）
SubtestAlertsDisplay（）
Application.DisplayAlerts=False
在程序运行过程中，有时由于Excel本身设置的原因，会弹出对话框，从而中断程序的运行，您可以在程序之前加上Application.DisplayAlerts=False语句以禁止弹出这些对话框而不影响程序正常运行。
需要注意的是，在程序运行结束前，应使DisplayAlerts属性恢复为缺省状态，即使用语句Application.DisplayAlerts=True。
该属性的默认设置为True，当将该属性设置为False时，Excel会使直接使用对话框中默认的选择，从而不会因为弹出对话框而影响程序运行。
示例01-07：
将Excel全屏幕显示
SubtestFullScreen（）
运行后将Excel的显示模式设置为全屏幕"
Application.DisplayFullScreen=True
恢复为原来的状态"
Application.DisplayFullScreen=False
EndSub示例01-08：
Excel启动的文件夹路径
SubExcelStartfolder（）
Excel启动的文件夹路径为：
Application.StartupPath
示例01-09：
打开最近使用过的文档
SubOpenRecentFiles（）
显示最近使用过的第三个文件名,并打开该文件"
最近使用的第三个文件的名称为:
Application.RecentFiles（3）.Name
Application.RecentFiles（3）.Open
示例01-10：
打开文件（FindFile方法）
SubFindFileOpen（）
OnErrorResumeNext
请打开文件"
vbOKOnly+vbInformation,"
打开文件"
IfNotApplication.FindFileThen
文件未找到"
打开失败"
EndIf
本示例将显示“打开”文件对话框，若用户未打开文件（即点击“取消”按钮），则会显示“打开失败”信息框。
示例中使用了FindFile方法，用来显示“打开”对话框并让用户打开一个文件。
如果成功打开一个新文件，则该值为True。
如果用户取消了操作并退出该对话框，则该值为False。
示例01-11：
文件对话框操作（FileDialog属性）
SubUseFileDialogOpen（）
DimlngCountAsLong
开启"
对话框
WithApplication.FileDialog（msoFileDialogOpen）
.AllowMultiSelect=True
.Show
显示所选的每个文件的路径
ForlngCount=1To.SelectedItems.Count
MsgBox.SelectedItems（lngCount）
NextlngCount
EndWith
本示例显示“打开文件”对话框，当用户在其中选择一个或多个文件后，将依次显示每个文件的路径。
其中，FileDialog属性返回打开和保存对话框中一系列对象的集合，您可以对该集合对象的属性进行进一步的设置，如上例中的AllowMultiSelect属性设置为True将允许用户选择多个文件。
示例01-12：
保存Excel的工作环境
Sub保存Excel的工作环境（）
将Excel的工作环境保存到D:
\ExcelSample\中"
Application.SaveWorkspace"
D:
\ExcelSample\Sample"
运行本程序后，将工作簿以带后缀名.xlw保存到D盘的ExcelSample文件夹中，生成的文件全名为Sample.xlw。
当改变工作簿并保存时，Excel会询问是覆盖原文件还是保存副本。
示例01-13：
改变Excel工作簿名字（Caption属性）
SubSetCaption（）
Application.Caption="
MyExcelBook"
运行本程序后，将工作簿左上角Excel图标右侧的“MicrosoftExcel”改为“MyExcelBook”。
示例01-14：
使用InputBox方法
SubSampleInputBox（）
DimvInput
vInput=InputBox（"
请输入用户名:
"
获取用户名"
Application.UserName）
您好!
vInput&
.很高兴能认识您."
vbOKOnly,"
打招呼"
EndSub示例01-15：
设置页边距（CentimetersToPoints方法）
SubSetLeftMargin（）
将工作表Sheet1的左页边距设为5厘米"
Worksheets（"
Sheet1"
）.PageSetup.LeftMargin=Application.CentimetersToPoints（5）
示例01-16：
使用Windows的计算器（ActivateMicrosoftApp方法）
SubCallCalculate（）
Application.ActivateMicrosoftAppIndex:
=0
运行本程序后，将调用Windows的计算器。
示例01-17：
在程序中运行另一个宏（Run方法）
SubrunOtherMacro（）
本程序先选择A1至C6单元格区域后执行DrawLine宏"
ActiveSheet.Range（"
A2:
C6"
）.Select
Application.Run"
DrawLine"
示例01-18：
在指定的时间执行宏（OnTime方法）
SubAfterTimetoRun（）
从现在开始,10秒后执行程序「testFullScreen」"
Application.OnTimeNow+TimeValue（"
00:
10"
）,"
testFullScreen"
运行本程序后，在10秒后将执行程序testFullScreen。
示例01-19：
暂时停止宏运行（Wait方法）
SubStop5sMacroRun（）
DimSetTimeAsDate
按下「确定」,5秒后执行程序「testFullScreen」"
SetTime=DateAdd（"
s"
5,Now（））
Application.WaitSetTime
CalltestFullScreen
运行本程序后，按下弹出的提示框中的“确定”按钮，等待5秒后执行另一程序testFullScreen。
示例01-20：
按下指定的按键后执行程序（OnKey方法）
[示例01-20-1]
SubPressKeytoRun（）
按下Ctrl+D后将执行程序「testFullScreen」"
Application.OnKey"
^{d}"
[示例01-20-2]
SubResetKey（）
恢复原来的按键状态"
Onkey方法的作用主要是指定特定的键，当按下指定的键时运行相应的宏程序，或者按下指定的键时，使Excel屏蔽特定的功能。
示例01-21：
重新计算工作簿
[示例01-21-1]
SubCalculateAllWorkbook（）
Application.Calculate
当工作簿的计算模式被设置为手动模式后，运用Calculate方法可以重新计算所有打开的工作簿、工作簿中特定的工作表或者工作表中指定的单元格区域。
[示例01-21-2]
SubCalculateFullSample（）
IfApplication.CalculationVersion<
>
Workbooks
（1）.CalculationVersionThen
Application.CalculateFull
本示例先将当前MicrosoftExcel的版本与上次计算该工作簿的Excel版本进行比较，如果两个版本不同，则对所有打开工作簿中的数据进行一次完整计算。
其中，CalculationVersion属性返回工作簿的版本信息。
示例01-22：
控制函数重新计算（Volatile方法）
FunctionNonStaticRand（）
当工作表中任意单元格重新计算时本函数更新
Application.VolatileTrue
NonStaticRand=Rnd（）
EndFunction
本示例摸仿Excel中的Rand（）函数，当工作表单元格发生变化时，都会重新计算该函数。
在例子中，使用了Volatile方法，强制函数进行重新计算，即无论何时重新计算工作表，该函数都会重新计算。
示例01-23：
利用工作表函数（WorksheetFunction属性）
SubWorksheetFunctionSample（）
DimmyRangeAsRange,answer
SetmyRange=Worksheets（"
）.Range（"
A1:
C10"
）
answer=Application.WorksheetFunction.Min（myRange）
MsgBoxanswer
本示例获取工作表Sheet1中单元格区域A1:
C10中的最小值，使用了工作表函数Min（）。
一般，使用WorksheetFunction属性引用工作表函数，但如果VBA自带有实现相同功能的函数，则直接使用该函数，否则会出现错误。
示例01-24：
获取重叠区域（Intersect方法）
SubIntersectRange（）
DimrSectAsRange
）.Activate
SetrSect=Application.Intersect（Range（"
rg1"
）,Range（"
rg2"
））
IfrSectIsNothingThen
没有交叉区域"
Else
rSect.Select
本示例在工作表Sheet1中选定两个命名区域rg1和rg2的重叠区域，如果所选区域不重叠，则显示一条相应的信息。
其中，Intersect方法返回一个Range对象，代表两个或多个范围重叠的矩形区域。
示例01-25：
获取路径分隔符（PathSeparator属性）
SubGetPathSeparator（）
MsgBox"
路径分隔符为"
Application.PathSeparator
本示例使用PathSeparator属性返回路径分隔符（“\”）。
示例01-26：
快速移至指定位置（Goto方法）
SubGotoSample（）
Application.GotoReference:
=Worksheets（"
A154"
）,_
scroll:
=True
本示例运行后，将当前单元格移至工作表Sheet1中的单元格A154。
示例01-27：
显示内置对话框（Dialogs属性）
SubDialogSample（）
Application.Dialogs（xlDialogOpen）.Show
本示例显示Excel的“打开”文件对话框。
其中，Dialogs属性返回的集合代表所有的Excel内置对话框。
示例01-28：
退出Excel（SendKeys方法）
SubSendKeysSample（）
Application.SendKeys（"
%fx"
本示例使用SendKeys方法退出Excel，若未保存，则会弹出提示对话框并让用户作出相应的选择。
SendKeys方法的作用是摸拟键盘输入，如例中的“%fx”表示在Excel中同时按下Alt、F和X三个键。
示例01-29：
关闭Excel
Sub关闭Excel（）
Excel将会关闭"
Application.Quit
运行本程序后，若该工作簿未保存，则会弹出对话框询问是否保存。
升级会员 