Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3308|回复: 2

Application对象实用操作技巧收集

[复制链接]
发表于 2010-4-17 16:58 | 显示全部楼层 |阅读模式

Application 属性

Application.Version           返回一个 String 值,它代表 Microsoft Excel 版本号。

Application.Path             Excel 的安装路径

Application.UserName        当前用户名

Application.OrganizationName  当前的注册组织名

Application.OperatingSystem   当前操作系统的名称和版本号

Application.StartupPath       启动Excel的路径

Application.DefaultFilePath    打开Excel文件时使用的默认路径

Application.TemplatesPath     模板保存的默认路

Application.LibraryPath        库文件夹的路径

Application.PathSeparator      路径分隔符

Application.Caption           Excel主窗口标题栏的名称

Application.WindowState      窗口状态:xlMaximized最大xlMinimized最小xlNormal显示

Application.Height            窗口的高度

Application.Width            窗口的宽度

Application.Left              主窗口的左边界

Application.Top              顶端距离

Application.UsableHeight      Excel主窗口中所能占有的最大高度

Application.UsableWidth      Excel主窗口中所能占有的最大宽度

Application.ActivePrinter      当前打印机名称,myPrinter = "TinyPDF LPT1:"

Application.Visible            全部表格隐藏显示

Application.Caption = vbNullChar  标题已经被删除

Application.Caption = vbNullString 恢复默认的标题文字

Application.DisplayFullScreen     全屏显示

pplication.StatusBar            状态栏显示

Application.DisplayStatusBar     状态栏隐藏、显示

Application.DisplayFormulaBar   编辑栏隐藏、显示

Application.CommandBars      格式工具栏隐藏

Application.CommandBars("Task Pane") 任务窗格隐藏

Application.Cursor             将鼠标指针类型:xlWait沙漏型

Application.Calculation计算模式xlCalculationAutomatic自动xlCalculationManual手动xlCalculationSemiautomatic除模拟运算表外,自动计算

Application.ReferenceStyle     单元格引用和行、列标题

Application.MoveAfterReturnDirection  为单元格输入回车后移动方向

Application.RecentFiles.Maximum       最近使用的文件清单中的最多文件数

Application.SheetsInNewWorkbook     新工作簿中的工作表个数

Application.DefaultFilePath          文件的默认位置

Application.AutoRecover            自动存档性质

Application.ScreenUpdating          屏幕刷新

Application.EnableEvents            去掉保存的对话

Application.EnableCancelKey         完全禁用、启用取消键捕获功能

Application.DisplayAlerts            不显示警告信息

Application.GetOpenFilename       显示标准的打开对话框,并获取用户文件名,而不必真正打开任何文件

Application.GetOpenFilename("文本文件(*.txt), *.txt")  

Application.CentimetersToPoints   将计量单位从厘米转换为磅

Application.InchesToPoints        将计量单位从英寸转换为磅

Application.Dialogs.Count        集合中对象的数量

Application.CommandBar.Controls         获取一个代表命令栏上的所有控件的 CommandBarControls

Application.CommandBars()               获取一个代表命令栏上的控件

Application.CommandBars("FaceID").Delete   删除原来的自定义工具栏FaceID

Application.CommandBars.Add(Name:="FaceID")  创建一个名字为FaceID的自定义工具栏

Application.CommandBars(1).Controls(1).Controls(2).Execute  命令使用

Application.CommandBars("WorkBook Tabs").ShowPopup X:=50, Y:=120将指定命令栏作为快捷菜单,在指定坐标位置显示

Application.InputBox()     输入框

Application.Quit             关闭所有表格

发表于 2010-4-17 16:59 | 显示全部楼层
回复

使用道具 举报

发表于 2010-4-17 17:25 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-6-4 12:50 , Processed in 0.703029 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表