路由人生 软件工具 exce vba application 对象的应用

exce vba application 对象的应用

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

未完待续……

本文来自路由人生,转载请注明出处。

作者:

发表评论

联系我们

联系我们

在线咨询: QQ交谈

邮箱: yufe@yufe.me

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部