WPS Office
>知识库
> 教程
【VBA教材】65.Application应用案例详解 （四）
贡献者：罗刚君
日期：2010-02-22 阅读：1823
Application应用案例详解 （四）
本节讲述两个Application对象的应用案例.
1.定制程序标题
案例要求:将Excel默认标题“Microsoft Excel”修改为“人事系统”。
知识要点:Caption
实现步骤:
1)单击菜单【插入】\【模块】；
2) 在模块代码窗口输入以下代码：
__________________________________
Sub 修改标题()
Application.Caption = "人事系统"
End Sub
___________________________________
3)返回工作表，利用快捷键【Alt+F8】打开“宏”对话框，选择并执行“修改标题”，将ET的默认标题修改为“人事系统”，如图65.1所示。
图65.1 修改默认的程序标题
语法补充：
（1）Application.Caption 属性返回或设置一个String值，它代表出现在ET主窗口标题栏中显示的名称。如果使用Msgbox语句可以获取当前的标题字符串，而修改标题则用等号直接赋值即可。
（2）如果使用以下语句，无法取消ET的标题，反而是恢复默认的标题“WPS表格”：
Application.Caption = ""
如果需要Excel不显示标题，简单的处理方式是利用空格作为标题。如果希望标题处不显示任意字符,包括工作簿名。可以使用多个空格。从而将工作簿名排除在显示范围之外。代码为：
___________________________________
Application.Caption = Space(1000)
___________________________________
Space函数用于产生多个空格，空格的个数等于其参数值。
（3）Caption必须配合前置对象Application才可以使用。
2.指定默认的文件路径
案例要求:让文件保存时默认为D盘生产表。
知识要点: DefaultFilePath
实现步骤:
1）单击菜单【插入】\【模块】；
2）在模块代码窗口输入以下代码：
___________________________________
Sub指定默认的文件路径()
Application.DefaultFilePath = "D:\生产表"
End Sub
___________________________________
|
|
图65.2 默认另存到“生产表”目录
语法补充：
（1）DefaultFilePath 属性可以返回或设置 Microsoft Excel 打开文件时使用的默认路径。String 类型，可读写。
如果需要获取当前的设置，可以使用以下代码：
MsgBox Application.DefaultFilePath
而修改设置则直接通过等号赋值即可。
（2）DefaultFilePath的使用优势在于可以将最常用的一个文件夹目录指定为默认的文件路径，在后续的文件存储过程中免于手工切换，从而提升工作效率。
(3）DefaultFilePath属性必须指定为有效性的路径。为了防止路径不存在，需要使用Dir方法检测路径是否有效。方法如下：
___________________________________
If Len(Dir("D:\生产表", vbDirectory)) > 0 Then
Application.DefaultFilePath = "D:\生产表"
End If
___________________________________
DIR方法用于获取文件或者文件夹的名称，如果文件或者文件夹不存在则返回空白。利用这个特点，以上代码首先取文件夹名，再用Len函数取长度即可判断出“D:\生产表”是否一个有效的文件夹名称。
其中vbDirectory参数表示强制返回文件夹名称。
本周十大人气Office教程
