调用内置对话框.xls

Sheet4 Sheet3 Sheet2 Sheet1 _Ref192237523 _Ref217727344 _Toc240076412 1-1? 调用内置的对话框 如果需要使用“打开”、“打印”等Excel内置对话框已经具有的功能，可以使用代码直接调用这些内置的对话框，如下面的代码所示。 Sub DialogOpen() Application.Dialogs(xlDialogOpen).Show arg1:=ThisWorkbook.Path \*.xls End Sub 代码解析： DialogOpen过程显示内置的“打开”对话框并选定示例所在的文件夹。 显示内置对话框语法如下： Application.Dialogs(xlDialogConst).Show Dialogs集合代表所有的内置对话框，每个Dialog对象代表一个内置对话框，不能新建内置对话框或向该集合中添加内置对话框。 参数xlDialogConst是内置对话框的内置常量，每个常量都以“xlDialog”开头，其后是对话框的名称，如“打开”对话框的常量为“xlDialogOpen”。常用内置对话框的内置常量如表格 77?1所示。 常量 值 说明 xlDialogActiveCellFont 单元格格式(字体） xlDialogBorder 单元格格式(边框） xlDialogCellProtection 单元格格式(保护） xlDialogDeleteFormat 单元格格式(数字） xlDialogFormatNumber xlDialogPatterns 单元格格式(图案） xlDialogClear 清除 xlDialogColumnWidth 列宽 xlDialogRowHeight 行高 xlDialogConditionalFormatting 条件格式 xlDialogDefineName 定义名称 xlDialogDefineStyle 样式 xlDialogDisplay 显示选项 xlDialogFont 字体 xlDialogSetBackgroundPicture 工作表背景 xlDialogInsert 插入 xlDialogInsertHyperlink 插入超链接 xlDialogInsertPicture 插入图片 xlDialogNew 新建工作簿 xlDialogOpen 打开 xlDialogSaveAs 另存为 xlDialogWorkbookCopy 移动或复制工作表（建立副本） xlDialogWorkbookInsert 插入工作表 xlDialogWorkbookMove 移动或复制工作表 xlDialogWorkbookName 重命名工作表 xlDialogWorkbookNew 新建工作表 xlDialogWorkbookProtect 保护工作簿 xlDialogPageSetup 页面设置 xlDialogPrint 打印内容 xlDialogPrinterSetup 打印机设置 xlDialogPrintPreview 打印预览 xlDialogSetPrintTitles 设置打印标题 xlDialogRun 宏 xlDialogTable 模拟运算表 xlDialogSendMail 发送邮件 表格 77?1 内置对话框的内置常量 显示内置对话框使用Show方法，应用于Dialog对象的Show方法语法如下： expression.Show(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30) 参数expression是必需的，返回Dialog对象之一。 参数arg1到参数arg30是可选的，仅应用于内置对话框，是命令的初始参数。若要查找要设置的参数，请在内置对话框参数列表中查找对应的对话框常量。 运行alogOpen过程，显示内置的“打开”对话框，并且直接选定示例所在的文件夹，如图 77?1所示。 图 77?1 使用内置对话框 476.00 45.00 46.00 111.00 42.00 84.00 52.00 47.00 127.00 583.00 61.00 229.00 27.00 26.00 509.00 55.00 596.00 342.00 119.00 1.00 5.00 283.00 354.00 282.0