搜索
功能语法当前操作系统的名称和版本号Application.OperatingSystem当前的注册组织名Application.OrganizationName计算机名Environ(computername)当前用户名Application.UserNameEnviron(Username)启动微软的应用程序Application.ActivateMicrosoftAppxx为：xlMicrosoftWordxlMicrosoftPowerPointxlMicrosoftMailxlMicrosoftAccessxlMicrosoftFoxProxlMicrosoftProjectxlMicrosoftSchedulePlus当前剩余内存Application.MemoryFree当前MicrosoftExcel的总内存Application.MemoryTotal被Excel使用的内存Application.MemoryUsedExcel版本Application.VersionExcel安装路径Application.Path启动Excel的路径Application.StartupPath打开Excel文件时使用的默认路径Application.DefaultFilePath模板保存的默认路径Application.TemplatesPath库文件夹的路径Application.LibraryPath路径分隔符Application.PathSeparator设置文件清单中的最多文件数Application.RecentFiles.Maximum=n设置新工作簿中的工作表个数Application.SheetsInNewWorkbook=n设置文件的默认位置Application.DefaultFilePath=路径打开Excel帮助文件Application.HelpExcel全屏显示Application.DisplayFullScreen=TrueApplication.DisplayFullScreen=FalseExcel窗口显示Application.WindowState=xx为：xlMaximizedxlMinimizedxlNormalExcel窗口位置Application.HeightApplication.WidthApplication.Left第1章Application对象Application.Top在主窗口中所能占有的最大高度和宽度Application.UsableHeightApplication.UsableWidth隐藏显示ExcelApplication.Visible=False\TrueExcel标题设置Application.Caption=***Application.Caption=vbNullStringApplication.Caption=vbNullChar设置状态栏中的文字Application.StatusBar=***Application.StatusBar=False隐藏显示状态栏Application.DisplayStatusBar=False\True隐藏显示编辑栏Application.DisplayFormulaBar=False\True隐藏显示常用工具栏Application.CommandBars(Standard).Visible=False\True隐藏显示格式工具栏Application.CommandBars(Formatting).Visible=False\True隐藏显示任务窗格Application.CommandBars(TaskPane).Visible=False\True更改鼠标指针形状Application.Cursor=xx为：xlWaitxlIBeamxlNorthwestArrowxlDefault撤消上次操作Application.Undo自动手动计算Application.Calculation=xx为：xlCalculationAutomaticxlCalculationManualxlCalculationSemiautomatic切换引用样式Application.ReferenceStyle=xlA1Application.ReferenceStyle=xlR1C1按回车切换单元格移动方向Application.MoveAfterReturn=TrueApplication.MoveAfterReturnDirection=xx为：xlToRightxlDownxlToLeftxlUp禁用Ctrl+Break中止宏运行的功能Application.Enable.CancelKey=xlDisabled禁止在单元格中直接编辑Application.EditDirectlyInCell=False\True屏幕刷新Application.ScreenUpdating=False\True指定对象禁用启用事件Application.EnableEvents=False\True禁用启用Esc键捕获功能Application.EnableCancelKey=xlDisabledApplication.EnableCancelKey=xlInterrupt关闭显示警告信息框Application.DisplayAlerts=False\True清空剪贴板Application.CutCopyMode=False\True安装指定加载宏Application.AddIns(加载宏名).Installed=True打开内置对话框Application.Dialogs(n).Show值n为：1xlDialogOpen5xlDialogSaveAs7xlDialogPageSetup8xlDialogPrint9xlDialogPrinterSetup17xlDialogRun23xlDialogSetPrintTitles26xlDialogFont27xlDialogDisplay41xlDialogTable42xlDialogFormatNumber45xlDialogBorder46xlDialogCellProtection47xlDialogColumnWidth52xlDialogClear55xlDialogInsert61xlDialogDefineName84xlDialogPatterns111xlDialogDeleteFormat119xlDialogNew127xlDialogRowHeight189xlDialogSendMail222xlDialogPrintPreview229xlDialogDefineStyle282xlDialogWorkbookMove283xlDialogWorkbookCopy302xlDialogWorkbookNew342xlDialogInsertPicture354xlDialogWorkbookInsert386xlDialogWorkbookName417xlDialogWorkbookProtect476xlDialogActiveCellFont509xlDialogSetBackgroundPicture583xlDialogConditionalFormatting596xlDialogInsertHyperlink用户输入的对话框Selection.Value=Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Type:=0)Selection.Value=Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Type:=1)Selection.Value=Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Type:=2)Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Default:=myDefault,Type:=8)Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Type:=1+2)Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Default:=myDefault,Type:=2)显示消息对话框a=MsgBox(信息,x1+x2+x3+x4,标题)x1为：0/vbOKOnly1/VbOKCancel2/VbAbortRetryIgnore3/VbYesNoCancel4/VbYesNo5/VbRetryCancelx2为：16/VbCritical32/VbQuestion48/VbExclamation64/VbInformationx3为：0/vbDefaultButton1256/vbDefaultButton2512/vbDefaultButton3768/vbDefaultButton4x4为：16384/vbMsgBoxHelpButton524288/vbMsgBoxRighta返回为：1/vbOK2/vbCancel3/vbAbort4/vbRetry5/vbIgnore6/vbYes7/vbNo运行宏Application.Run宏名一段时间后运行宏Application.OnTimeNow+TimeValue(00:00:05),宏名某时间运行宏Application.OnTimeTimeValue(0:00:00),宏名制定宏运行的时间计划Application.OnTimeEarliestTime:=NextTime,Procedure:=宏名取消运行计划Application.OnTimeEarliestTime:=TimeValue(00:00:00),Procedure:=宏名,Schedule:=False退出ExcelApplication.Quit工作簿名Workbooks(1).Name当前活动工作簿名ActiveWorkbook.NameThisWorkbook.Name当前完整路径的工作簿名ThisWorkbook.FullName本工作簿的基本名称Left(ThisWorkbook.Name,InStr(ThisWorkbook.Name,.)-1)工作簿路径Workbooks(工作簿).Path当前活动工作簿的路径ActiveWorkbook.PathThisWorkbook.Path新建工作簿Workbooks.Add打开工作簿Workbooks.OpenFilename:=路径,UpdateLinks:=xx为：0123打开工作簿(窗口选择)Workbooks.OpenFilename:=Application.GetOpenFilename(Excel工作簿(*.xls),*.xls)工作簿是否打开NotApplication.Workbooks(工作簿名)IsNothing=True工作簿打开方式Workbooks(1).ReadOnly=TrueWorkbooks(1).ReadOnly=False打开的工作簿数Workbooks.Count打开最近使用过的文件Application.RecentFiles(n).Open第2章 Wordbook（工作簿）对象保存工作簿Workbooks(工作簿).Save另存工作簿并设密码ThisWorkbook.SaveAsFilename:=路径,WriteResPassword:=密码另存工作簿(窗口选择)ThisWorkbook.SaveAsFilename:=Application.GetSaveAsFilename(,Excel工作簿(*.xls),*.xls)指