application对象的常用属性与方法
Application.Path 获取excel 安装路径
Application.version 获取excel 版本
Application.UserName 获取excel用户名
Application.OrganizationName 获取excel组织名
Application.OperatingSystem 获取电脑的操作系统
Application.StartupPath 获取启动excel 路径
Application.DefaultFilePath 打开Excel文件时使用的默认路径
Application.TemplatesPath 模板保存的默认路径
Application.LibraryPath 库文件夹的路径
Application.PathSeparator 路径分隔符 (\)
Application.WindowState Excel窗口状态 (xlMaximized,xlMinimized,xlNormal)
Application.Height 获取excel高度
Application.Width
Application.Left
Application.Top
Application.UsableHeight
Application.UsableWidth
& vbCrLf & 换行
Application.ActivePrinter 当前打印机名称
Application.MemoryFree 当前剩余内存
Application.MemoryTotal 当前Microsoft Excel的总内存
Application.MemoryUsed 被Excel使用的内存
Application.Caption Excel主窗口标题栏的名称
Application.DisplayStatusBar Excel状态栏是否显示
application 用法实例:
With Application
myWState = .WindowState ‘获取当前的窗口状态
.WindowState = xlNormal ‘将窗口设置为一般显示
myWidth = .Width ‘获取当前窗口的宽度
myHeight = .Height ‘获取当前窗口的高度
.Width = 500 ‘设定窗口的宽度
.Height = 300 ‘设定窗口的高度
If MsgBox(“Excel窗口已经改变!” & vbCrLf & “要恢复为原来的状态吗?”, _
vbQuestion + vbYesNo) = vbNo Then Exit Sub
.Width = myWidth ‘恢复窗口的宽度
.Height = myHeight ‘恢复窗口的高度
.WindowState = myWState ‘恢复窗口的显示状态
End With
未完待续……