超方便，VBA调用Excel内置对话框

　　excelperfect
　　标签：VBA
　　Excel有261个内置对话框，使用这些现有的对话框，可以使编写代码更加容易。
　　例如，下面的代码显示内置的“打印”对话框。
　　DimtmpAsBoolean
　　Application。Dialogs（xlDialogPrint）。Show
　　tmpApplication。Dialogs（xlDialogPrint）。Show
　　如下图1所示。
　　图1
　　又如，下面的3行代码都显示“另存为”对话框：
　　Application。Dialogs（xlDialogSaveAs）。Show
　　Application。Dialogs（XlBuiltInDialog。xlDialogSaveAs）。Show
　　Application。Dialogs（5）。Show
　　如下图2所示。
　　图2
　　我们可以使用对话框中的所有功能，使用内置对话框可以节省大量编程工作。
　　在VBA对象浏览器中，我们可以找到所有的内置对话框列表。打开VBE，按F2键打开对象浏览器，在顶部的下拉列表框中选择“Excel”，搜索“XlBuiltInDialog”，显示所有内置对话框成员列表，如下图3所示。
　　图3
　　使用下面的程序将这些内置常量输入到Excel工作表中，便于查阅。
　　SubxlDialogList（）DimiAsIntegerDimxlDialog（1To261，1To2）AsString
　　xlDialog（1，1）103xlDialog（2，1）476xlDialog（3，1）390xlDialog（4，1）321xlDialog（5，1）43xlDialog（6，1）133xlDialog（7，1）212xlDialog（8，1）170xlDialog（9，1）171xlDialog（10，1）12xlDialog（11，1）213xlDialog（12，1）293xlDialog（13，1）80xlDialog（14，1）323xlDialog（15，1）485xlDialog（16，1）78xlDialog（17，1）45xlDialog（18，1）32xlDialog（19，1）46xlDialog（20，1）166xlDialog（21，1）392xlDialog（22，1）527xlDialog（23，1）724xlDialog（24，1）505xlDialog（25，1）506xlDialog（26，1）540xlDialog（27，1）350xlDialog（28，1）526xlDialog（29，1）288xlDialog（30，1）435xlDialog（31，1）52xlDialog（32，1）161xlDialog（33，1）47xlDialog（34，1）73xlDialog（35，1）583xlDialog（36，1）191xlDialog（37，1）147xlDialog（38，1）108xlDialog（39，1）796xlDialog（40，1）62xlDialog（41，1）217xlDialog（42，1）1272xlDialog（43，1）276xlDialog（44，1）493xlDialog（45，1）36xlDialog（46，1）379xlDialog（47，1）723xlDialog（48，1）40xlDialog（49，1）525xlDialog（50，1）61xlDialog（51，1）229xlDialog（52，1）111xlDialog（53，1）110xlDialog（54，1）203xlDialog（55，1）27xlDialog（56，1）862xlDialog（57，1）438xlDialog（58，1）223xlDialog（59，1）54xlDialog（60，1）251xlDialog（61，1）228xlDialog（62，1）463xlDialog（63，1）464xlDialog（64，1）732xlDialog（65，1）709xlDialog（66，1）530xlDialog（67，1）35xlDialog（68，1）6xlDialog（69，1）481xlDialog（70，1）200xlDialog（71，1）301xlDialog（72，1）447xlDialog（73，1）370xlDialog（74，1）475xlDialog（75，1）26xlDialog（76，1）381xlDialog（77，1）269xlDialog（78，1）465xlDialog（79，1）423xlDialog（80，1）150xlDialog（81，1）88xlDialog（82，1）225xlDialog（83，1）128xlDialog（84，1）42xlDialog（85，1）226xlDialog（86，1）129xlDialog（87，1）89xlDialog（88，1）64xlDialog（89，1）63xlDialog（90，1）130xlDialog（91，1）450xlDialog（92，1）193xlDialog（93，1）272xlDialog（94，1）194xlDialog（95，1）195xlDialog（96，1）196xlDialog（97，1）273xlDialog（98，1）67xlDialog（99，1）68xlDialog（100，1）69xlDialog（101，1）388xlDialog（102，1）344xlDialog（103，1）70xlDialog（104，1）71xlDialog（105，1）249xlDialog（106，1）72xlDialog（107，1）198xlDialog（108，1）76xlDialog（109，1）666xlDialog（110，1）55xlDialog（111，1）596xlDialog（112，1）259xlDialog（113，1）342xlDialog（114，1）380xlDialog（115，1）438xlDialog（116，1）437xlDialog（117，1）382xlDialog（118，1）470xlDialog（119，1）339xlDialog（120，1）378xlDialog（121，1）85xlDialog（122，1）185xlDialog（123，1）1271xlDialog（124，1）322xlDialog（125，1）262xlDialog（126，1）834xlDialog（127，1）977xlDialog（128，1）119xlDialog（129，1）978xlDialog（130，1）667xlDialog（131，1）154xlDialog（132，1）207xlDialog（133，1）214xlDialog（134，1）1xlDialog（135，1）2xlDialog（136，1）188xlDialog（137，1）441xlDialog（138，1）318xlDialog（139，1）325xlDialog（140，1）319xlDialog（141，1）356xlDialog（142，1）458xlDialog（143，1）647xlDialog（144，1）355xlDialog（145，1）320xlDialog（146，1）142xlDialog（147，1）86xlDialog（148，1）186xlDialog（149，1）7xlDialog（150，1）91xlDialog（151，1）58xlDialog（152，1）53xlDialog（153，1）84xlDialog（154，1）832xlDialog（155，1）656xlDialog（156，1）570xlDialog（157，1）572xlDialog（158，1）689xlDialog（159，1）433xlDialog（160，1）313xlDialog（161，1）434xlDialog（162，1）421xlDialog（163，1）568xlDialog（164，1）567xlDialog（165，1）1183xlDialog（166，1）1153xlDialog（167，1）312xlDialog（168，1）300xlDialog（169，1）8xlDialog（170，1）9xlDialog（171，1）222xlDialog（172，1）202xlDialog（173，1）474xlDialog（174，1）754xlDialog（175，1）28xlDialog（176，1）620xlDialog（177，1）653xlDialog（178，1）445xlDialog（179，1）1258xlDialog（180，1）134xlDialog（181，1）127xlDialog（182，1）17xlDialog（183，1）5xlDialog（184，1）456xlDialog（185，1）208xlDialog（186，1）145xlDialog（187，1）285xlDialog（188，1）87xlDialog（189，1）307xlDialog（190，1）305xlDialog（191，1）308xlDialog（192，1）473xlDialog（193，1）311xlDialog（194，1）420xlDialog（195，1）731xlDialog（196，1）132xlDialog（197，1）189xlDialog（198，1）460xlDialog（199，1）557xlDialog（200，1）466xlDialog（201，1）504xlDialog（202，1）461xlDialog（203，1）462xlDialog（204，1）509xlDialog（205，1）1109xlDialog（206，1）1208xlDialog（207，1）23xlDialog（208，1）1108xlDialog（209，1）1107xlDialog（210，1）159xlDialog（211，1）204xlDialog（212，1）220xlDialog（213，1）261xlDialog（214，1）1182xlDialog（215，1）1184xlDialog（216，1）1179xlDialog（217，1）39xlDialog（218，1）192xlDialog（219，1）1134xlDialog（220，1）1133xlDialog（221，1）1135xlDialog（222，1）137xlDialog（223，1）190xlDialog（224，1）472xlDialog（225，1）44xlDialog（226，1）218xlDialog（227，1）398xlDialog（228，1）474xlDialog（229，1）41xlDialog（230，1）394xlDialog（231，1）422xlDialog（232，1）94xlDialog（233，1）201xlDialog（234，1）328xlDialog（235，1）478xlDialog（236，1）330xlDialog（237，1）197xlDialog（238，1）773xlDialog（239，1）686xlDialog（240，1）684xlDialog（241，1）687xlDialog（242，1）683xlDialog（243，1）685xlDialog（244，1）14xlDialog（245，1）13xlDialog（246，1）281xlDialog（247，1）283xlDialog（248，1）354xlDialog（249，1）282xlDialog（250，1）386xlDialog（251，1）302xlDialog（252，1）284xlDialog（253，1）417xlDialog（254，1）415xlDialog（255，1）384xlDialog（256，1）199xlDialog（257，1）95xlDialog（258，1）256xlDialog（259，1）1299xlDialog（260，1）496xlDialog（261，1）336
　　xlDialog（1，2）xlDialogActivatexlDialog（2，2）xlDialogActiveCellFontxlDialog（3，2）xlDialogAddChartAutoformatxlDialog（4，2）xlDialogAddinManagerxlDialog（5，2）xlDialogAlignmentxlDialog（6，2）xlDialogApplyNamesxlDialog（7，2）xlDialogApplyStylexlDialog（8，2）xlDialogAppMovexlDialog（9，2）xlDialogAppSizexlDialog（10，2）xlDialogArrangeAllxlDialog（11，2）xlDialogAssignToObjectxlDialog（12，2）xlDialogAssignToToolxlDialog（13，2）xlDialogAttachTextxlDialog（14，2）xlDialogAttachToolbarsxlDialog（15，2）xlDialogAutoCorrectxlDialog（16，2）xlDialogAxesxlDialog（17，2）xlDialogBorderxlDialog（18，2）xlDialogCalculationxlDialog（19，2）xlDialogCellProtectionxlDialog（20，2）xlDialogChangeLinkxlDialog（21，2）xlDialogChartAddDataxlDialog（22，2）xlDialogChartLocationxlDialog（23，2）xlDialogChartOptionsDataLabelMultiplexlDialog（24，2）xlDialogChartOptionsDataLabelsxlDialog（25，2）xlDialogChartOptionsDataTablexlDialog（26，2）xlDialogChartSourceDataxlDialog（27，2）xlDialogChartTrendxlDialog（28，2）xlDialogChartTypexlDialog（29，2）xlDialogChartWizardxlDialog（30，2）xlDialogCheckboxPropertiesxlDialog（31，2）xlDialogClearxlDialog（32，2）xlDialogColorPalettexlDialog（33，2）xlDialogColumnWidthxlDialog（34，2）xlDialogCombinationxlDialog（35，2）xlDialogConditionalFormattingxlDialog（36，2）xlDialogConsolidatexlDialog（37，2）xlDialogCopyChartxlDialog（38，2）xlDialogCopyPicturexlDialog（39，2）xlDialogCreateListxlDialog（40，2）xlDialogCreateNamesxlDialog（41，2）xlDialogCreatePublisherxlDialog（42，2）xlDialogCreateRelationshipxlDialog（43，2）xlDialogCustomizeToolbarxlDialog（44，2）xlDialogCustomViewsxlDialog（45，2）xlDialogDataDeletexlDialog（46，2）xlDialogDataLabelxlDialog（47，2）xlDialogDataLabelMultiplexlDialog（48，2）xlDialogDataSeriesxlDialog（49，2）xlDialogDataValidationxlDialog（50，2）xlDialogDefineNamexlDialog（51，2）xlDialogDefineStylexlDialog（52，2）xlDialogDeleteFormatxlDialog（53，2）xlDialogDeleteNamexlDialog（54，2）xlDialogDemotexlDialog（55，2）xlDialogDisplayxlDialog（56，2）xlDialogDocumentInspectorxlDialog（57，2）xlDialogEditboxPropertiesxlDialog（58，2）xlDialogEditColorxlDialog（59，2）xlDialogEditDeletexlDialog（60，2）xlDialogEditionOptionsxlDialog（61，2）xlDialogEditSeriesxlDialog（62，2）xlDialogErrorbarXxlDialog（63，2）xlDialogErrorbarYxlDialog（64，2）xlDialogErrorCheckingxlDialog（65，2）xlDialogEvaluateFormulaxlDialog（66，2）xlDialogExternalDataPropertiesxlDialog（67，2）xlDialogExtractxlDialog（68，2）xlDialogFileDeletexlDialog（69，2）xlDialogFileSharingxlDialog（70，2）xlDialogFillGroupxlDialog（71，2）xlDialogFillWorkgroupxlDialog（72，2）xlDialogFilterxlDialog（73，2）xlDialogFilterAdvancedxlDialog（74，2）xlDialogFindFilexlDialog（75，2）xlDialogFontxlDialog（76，2）xlDialogFontPropertiesxlDialog（77，2）xlDialogFormatAutoxlDialog（78，2）xlDialogFormatChartxlDialog（79，2）xlDialogFormatCharttypexlDialog（80，2）xlDialogFormatFontxlDialog（81，2）xlDialogFormatLegendxlDialog（82，2）xlDialogFormatMainxlDialog（83，2）xlDialogFormatMovexlDialog（84，2）xlDialogFormatNumberxlDialog（85，2）xlDialogFormatOverlayxlDialog（86，2）xlDialogFormatSizexlDialog（87，2）xlDialogFormatTextxlDialog（88，2）xlDialogFormulaFindxlDialog（89，2）xlDialogFormulaGotoxlDialog（90，2）xlDialogFormulaReplacexlDialog（91，2）xlDialogFunctionWizardxlDialog（92，2）xlDialogGallery3dAreaxlDialog（93，2）xlDialogGallery3dBarxlDialog（94，2）xlDialogGallery3dColumnxlDialog（95，2）xlDialogGallery3dLinexlDialog（96，2）xlDialogGallery3dPiexlDialog（97，2）xlDialogGallery3dSurfacexlDialog（98，2）xlDialogGalleryAreaxlDialog（99，2）xlDialogGalleryBarxlDialog（100，2）xlDialogGalleryColumnxlDialog（101，2）xlDialogGalleryCustomxlDialog（102，2）xlDialogGalleryDoughnutxlDialog（103，2）xlDialogGalleryLinexlDialog（104，2）xlDialogGalleryPiexlDialog（105，2）xlDialogGalleryRadarxlDialog（106，2）xlDialogGalleryScatterxlDialog（107，2）xlDialogGoalSeekxlDialog（108，2）xlDialogGridlinesxlDialog（109，2）xlDialogImportTextFilexlDialog（110，2）xlDialogInsertxlDialog（111，2）xlDialogInsertHyperlinkxlDialog（112，2）xlDialogInsertObjectxlDialog（113，2）xlDialogInsertPicturexlDialog（114，2）xlDialogInsertTitlexlDialog（115，2）xlDialogLabelPropertiesxlDialog（116，2）xlDialogListboxPropertiesxlDialog（117，2）xlDialogMacroOptionsxlDialog（118，2）xlDialogMailEditMailerxlDialog（119，2）xlDialogMailLogonxlDialog（120，2）xlDialogMailNextLetterxlDialog（121，2）xlDialogMainChartxlDialog（122，2）xlDialogMainChartTypexlDialog（123，2）xlDialogManageRelationshipsxlDialog（124，2）xlDialogMenuEditorxlDialog（125，2）xlDialogMovexlDialog（126，2）xlDialogMyPermissionxlDialog（127，2）xlDialogNameManagerxlDialog（128，2）xlDialogNewxlDialog（129，2）xlDialogNewNamexlDialog（130，2）xlDialogNewWebQueryxlDialog（131，2）xlDialogNotexlDialog（132，2）xlDialogObjectPropertiesxlDialog（133，2）xlDialogObjectProtectionxlDialog（134，2）xlDialogOpenxlDialog（135，2）xlDialogOpenLinksxlDialog（136，2）xlDialogOpenMailxlDialog（137，2）xlDialogOpenTextxlDialog（138，2）xlDialogOptionsCalculationxlDialog（139，2）xlDialogOptionsChartxlDialog（140，2）xlDialogOptionsEditxlDialog（141，2）xlDialogOptionsGeneralxlDialog（142，2）xlDialogOptionsListsAddxlDialog（143，2）xlDialogOptionsMExlDialog（144，2）xlDialogOptionsTransitionxlDialog（145，2）xlDialogOptionsViewxlDialog（146，2）xlDialogOutlinexlDialog（147，2）xlDialogOverlayxlDialog（148，2）xlDialogOverlayChartTypexlDialog（149，2）xlDialogPageSetupxlDialog（150，2）xlDialogParsexlDialog（151，2）xlDialogPasteNamesxlDialog（152，2）xlDialogPasteSpecialxlDialog（153，2）xlDialogPatternsxlDialog（154，2）xlDialogPermissionxlDialog（155，2）xlDialogPhoneticxlDialog（156，2）xlDialogPivotCalculatedFieldxlDialog（157，2）xlDialogPivotCalculatedItemxlDialog（158，2）xlDialogPivotClientServerSetxlDialog（159，2）xlDialogPivotFieldGroupxlDialog（160，2）xlDialogPivotFieldPropertiesxlDialog（161，2）xlDialogPivotFieldUngroupxlDialog（162，2）xlDialogPivotShowPagesxlDialog（163，2）xlDialogPivotSolveOrderxlDialog（164，2）xlDialogPivotTableOptionsxlDialog（165，2）xlDialogPivotTableSlicerConnectionsxlDialog（166，2）xlDialogPivotTableWhatIfAnalysisSettingsxlDialog（167，2）xlDialogPivotTableWizardxlDialog（168，2）xlDialogPlacementxlDialog（169，2）xlDialogPrintxlDialog（170，2）xlDialogPrinterSetupxlDialog（171，2）xlDialogPrintPreviewxlDialog（172，2）xlDialogPromotexlDialog（173，2）xlDialogPropertiesxlDialog（174，2）xlDialogPropertyFieldsxlDialog（175，2）xlDialogProtectDocumentxlDialog（176，2）xlDialogProtectSharingxlDialog（177，2）xlDialogPublishAsWebPagexlDialog（178，2）xlDialogPushbuttonPropertiesxlDialog（179，2）xlDialogRecommendedPivotTablesxlDialog（180，2）xlDialogReplaceFontxlDialog（181，2）xlDialogRowHeightxlDialog（182，2）xlDialogRunxlDialog（183，2）xlDialogSaveAsxlDialog（184，2）xlDialogSaveCopyAsxlDialog（185，2）xlDialogSaveNewObjectxlDialog（186，2）xlDialogSaveWorkbookxlDialog（187，2）xlDialogSaveWorkspacexlDialog（188，2）xlDialogScalexlDialog（189，2）xlDialogScenarioAddxlDialog（190，2）xlDialogScenarioCellsxlDialog（191，2）xlDialogScenarioEditxlDialog（192，2）xlDialogScenarioMergexlDialog（193，2）xlDialogScenarioSummaryxlDialog（194，2）xlDialogScrollbarPropertiesxlDialog（195，2）xlDialogSearchxlDialog（196，2）xlDialogSelectSpecialxlDialog（197，2）xlDialogSendMailxlDialog（198，2）xlDialogSeriesAxesxlDialog（199，2）xlDialogSeriesOptionsxlDialog（200，2）xlDialogSeriesOrderxlDialog（201，2）xlDialogSeriesShapexlDialog（202，2）xlDialogSeriesXxlDialog（203，2）xlDialogSeriesYxlDialog（204，2）xlDialogSetBackgroundPicturexlDialog（205，2）xlDialogSetManagerxlDialog（206，2）xlDialogSetMDXEditorxlDialog（207，2）xlDialogSetPrintTitlesxlDialog（208，2）xlDialogSetTupleEditorOnColumnsxlDialog（209，2）xlDialogSetTupleEditorOnRowsxlDialog（210，2）xlDialogSetUpdateStatusxlDialog（211，2）xlDialogShowDetailxlDialog（212，2）xlDialogShowToolbarxlDialog（213，2）xlDialogSizexlDialog（214，2）xlDialogSlicerCreationxlDialog（215，2）xlDialogSlicerPivotTableConnectionsxlDialog（216，2）xlDialogSlicerSettingsxlDialog（217，2）xlDialogSortxlDialog（218，2）xlDialogSortSpecialxlDialog（219，2）xlDialogSparklineInsertColumnxlDialog（220，2）xlDialogSparklineInsertLinexlDialog（221，2）xlDialogSparklineInsertWinLossxlDialog（222，2）xlDialogSplitxlDialog（223，2）xlDialogStandardFontxlDialog（224，2）xlDialogStandardWidthxlDialog（225，2）xlDialogStylexlDialog（226，2）xlDialogSubscribeToxlDialog（227，2）xlDialogSubtotalCreatexlDialog（228，2）xlDialogSummaryInfoxlDialog（229，2）xlDialogTablexlDialog（230，2）xlDialogTabOrderxlDialog（231，2）xlDialogTextToColumnsxlDialog（232，2）xlDialogUnhidexlDialog（233，2）xlDialogUpdateLinkxlDialog（234，2）xlDialogVbaInsertFilexlDialog（235，2）xlDialogVbaMakeAddinxlDialog（236，2）xlDialogVbaProcedureDefinitionxlDialog（237，2）xlDialogView3dxlDialog（238，2）xlDialogWebOptionsBrowsersxlDialog（239，2）xlDialogWebOptionsEncodingxlDialog（240，2）xlDialogWebOptionsFilesxlDialog（241，2）xlDialogWebOptionsFontsxlDialog（242，2）xlDialogWebOptionsGeneralxlDialog（243，2）xlDialogWebOptionsPicturesxlDialog（244，2）xlDialogWindowMovexlDialog（245，2）xlDialogWindowSizexlDialog（246，2）xlDialogWorkbookAddxlDialog（247，2）xlDialogWorkbookCopyxlDialog（248，2）xlDialogWorkbookInsertxlDialog（249，2）xlDialogWorkbookMovexlDialog（250，2）xlDialogWorkbookNamexlDialog（251，2）xlDialogWorkbookNewxlDialog（252，2）xlDialogWorkbookOptionsxlDialog（253，2）xlDialogWorkbookProtectxlDialog（254，2）xlDialogWorkbookTabSplitxlDialog（255，2）xlDialogWorkbookUnhidexlDialog（256，2）xlDialogWorkgroupxlDialog（257，2）xlDialogWorkspacexlDialog（258，2）xlDialogZoomxlDialog（259，1）xlDialogForecastETSxlDialog（260，1）xlDialogInsertNameLabelxlDialog（261，1）xlDialogRoutingSlip
　　WithActiveCell。Offset（0，0）Value。Offset（0，0）。HorizontalAlignmentxlRight。Offset（0，1）Name。Offset（i，1）。IndentLevel1
　　ForiLBound（xlDialog）ToUBound（xlDialog）。Offset（i，0）。ValuexlDialog（i，1）。Offset（i，1）。ValuexlDialog（i，2）。Offset（i，1）。IndentLevel1NextiEndWithEndSub
　　在Office开发中心网站上提供了内置对话框参数列表。下面演示xlDialogWorkspace（“工作区选项”）对话框的16个参数，代码如下。
　　SubxlDialogWspace（）Arg1：自动小数点；Arg2：位数；Arg3：R1C1；Arg4：滚动条；Arg5：状态栏；Arg6：编辑栏；Arg7：菜单键；Arg8：远程；Arg9：按Enter移动；Arg10：下划线；Arg11：工具；Arg12：批注；Arg13：导航键；Arg14：菜单键操作；Arg15：拖放；Arg16：显示信息
　　设置Wspace通过参数名Application。Dialogs（xlDialogWorkspace）。ShowArg3：True，Arg4：False，Arg5：False，Arg6：False
　　重设Wspace通过位置Application。Dialogs（xlDialogWorkspace）。Show，，False，True，True，TrueEndSub
　　按参数名设置该对话框的效果如下图4所示。
　　图4
　　按位置设置该对话框的效果如下图5所示，此时忽略的参数要使用逗号。
　　图5
　　有兴趣的朋友可以进一步研究。
　　欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
　　欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料，并通过社群加入专门的微信讨论群，更方便交流。