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 关闭所有表格 |