excel学习库-VBA中调用内置对话框，完成人机对话的方案

大家好，我们今日继续讲解VBA代码，今日讲解第46讲：利用内置对话框来调用打开对话框。在前面的章节中，我们先后讲了msgbox对话框和inputbox对话框，今日讲解的是一种内置对话框的方法，内置对话框不同于前面的两种对话框，它利用的是Dialogs函数，语法如下：Application.Dialogs(xlDialogConst).Show 这里Dialogs集合代表所有的内置对话框，其中每个Dialog对象代表一个内置对话框，不能新建内置对话框或向该集合中添加内置对话框。参数xlDialogConst是内置对话框的内置常量，每个常量都以“xlDialog”开头，其后是对话框的名称，如“打开”对话框的常量为“xlDialogOpen”。下面为常用内置对话框的内置常量： 1)xlDialogActiveCellFont 476 单元格格式(字体） 2)xlDialogBorder 45 单元格格式(边框） 3)xlDialogCellProtection 46 单元格格式(保护） 4)xlDialogDeleteFormat 111 单元格格式(数字） 5)xlDialogFormatNumber 42 单元格格式(数字） 6)xlDialogPatterns 84 单元格格式(图案） 7)xlDialogClear 52 清除 8)xlDialogColumnWidth 47 列宽 9)xlDialogRowHeight 127 行高 10)xlDialogConditionalFormatting 583 条件格式 11)xlDialogDefineName 61 定义名称 12)xlDialogDefineStyle 229 样式 13)xlDialogDisplay 27 显示选项 14)xlDialogFont 26 字体 15)xlDialogSetBackgroundPicture 509 工作表背景 16)xlDialogInsert 55 插入 17)xlDialogInsertHyperlink 596 插入超链接 18)xlDialogInsertPicture 342 插入图片 19)xlDialogNew 119 新建工作簿 20)xlDialogOpen 1 打开 21)xlDialogSaveAs 5 另存为 22)xlDialogWorkbookCopy 283 移动或复制工作表（建立副本） 23)xlDialogWorkbookInsert 354 插入工作表 24)xlDialogWorkbookMove 282 移动或复制工作表 25)xlDialogWorkbookName 386 重命名工作表 26)xlDialogWorkbookNew 302 新建工作表 27)xlDialogWorkbookProtect 417 保护工作簿 28)xlDialogPageSetup 7 页面设置 29)xlDialogPrint 8 打印内容 30)xlDialogPrinterSetup 9 打印机设置 31)xlDialogPrintPreview 222 打印预览 32)xlDialogSetPrintTitles 23 设置打印标题 33)xlDialogRun 17 宏 34)xlDialogTable 41 模拟运算表 36)xlDialogSendMail 189 发送邮件显示内置对话框使用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是可选的，仅应用于内置对话框，是命令的初始参数。若要查找要设置的参数，请在内置对话框参数列表中查找对应的对话框常量。如果需要使用“打开”、“打印”等Excel内置对话框已经具有的功能，可以使用代码直接调用这些内置的对话框，如下面的代码所示。 Sub MyDialogOpen() Application.Dialogs(xlDialogOpen).Show End Sub 代码解析： MyDialogOpen过程显示内置的“打开”对话框并选定示例所在的文件夹。下面看看代码窗口：

运行窗口：

如果将代码修正为：

那么运行窗口则变成：

上面就是利用内置对话框的方案，当然，在实际的应用中会非常的灵活，希望大家在应用中逐渐的学习，并加以掌握。这篇文章是VBA代码方案的第46讲内容，希望有兴趣的朋友和我一道，把VBA代码利用好。今日内容回向： 1 Application.Dialogs(xlDialogConst).Show 的意义是什么？ 2 xlDialogConst 的值有哪些？有什么意义？

excel学习库

excel表格_excel函数公式大全_execl从入门到精通

VBA中调用内置对话框，完成人机对话的方案2024-04-10 17:34:27

« 2024年12月 »
一	二	三	四	五	六	日
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31