专家坐堂-[分享]excel报表之-Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享]excel报表之-  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8323)

--  作者：qtcks
--  发布时间：2010/10/6 0:06:00
--  [分享]excel报表之-

Dim App As New msExcel.Application
Dim fl As String = ProjectPath & "Reports\\123.xls" \'定义报表路径
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls") \'获取模板文件
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)   \'获取模板页面
For Each a As MSExcel.Shape In ws.Shapes    \'遍历所有shape
    Dim x As String = a.TextFrame.Characters.Text    \'获取当前shape内容
    If x.Contains("Rectangle") = False Then   \'判断是否合格
        a.TextFrame.Characters.Text = Tables("出库").Current(x)   \'设置shape值
    End If
Next
app.DisplayAlerts = False \'是否覆盖
Wb.Saveas(fl)   \'覆盖储存
app.DisplayAlerts = True   \'是否翻盖
App.Quit \'()
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:report.rar

此主题相关图片如下：qq截图未命名.png

如何与系统自带的生成报表，整合起来，明天研究。如果哪位顺手做的话，请告诉我。

--  作者：qtcks
--  发布时间：2010/10/6 23:36:00
--

Dim Book As New XLS.Book

请开通支持 excel 2007

--  作者：mr725
--  发布时间：2010/10/8 8:42:00
--

学习了～

--  作者：qtcks
--  发布时间：2010/10/9 11:34:00
--

实现代码打开excel报表，并打开excel打印对话框：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("e:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
app.Dialogs(8).Show
wb.Close()
app.Quit()

Excel 2007中可以调用的内置对话框包括以下这些

名称值描述参数

xlDialogOpen 1 “打开”对话框 0

xlDialogOpenLinks 2 “打开链接”对话框 changing_ref

xlDialogSaveAs 5 “另存为”对话框 range, link, drop_size, multi_select, 3d_shading

xlDialogFileDelete 6 “文件删除”对话框 font_num, name_text, size_num, bold, italic, underline, strike, color, outline, shadow

xlDialogPageSetup 7 “页面设置”对话框 0

xlDialogPrint 8 “打印”对话框 name_text, desc_text

xlDialogPrinterSetup 9 “打印机设置”对话框 ref, rowcol, titles, categories, replace, series

xlDialogArrangeAll 12 “全部重排”对话框 x_pos, y_pos, window_text

xlDialogWindowSize 13 “窗口大小”对话框 0

xlDialogWindowMove 14 “窗口移动”对话框 0

xlDialogRun 17 “运行”对话框 accel_text, accel2_text, 3d_shading

xlDialogSetPrintTitles 23 “设置打印标题”对话框 0

xlDialogFont 26 “字体”对话框 link_text, status, type_of_link

xlDialogDisplay 27 “显示”对话框 window_text

xlDialogProtectDocument 28 “保护文档”对话框 value, min, max, inc, page, link, 3d_shading

xlDialogCalculation 32 “计算”对话框 0

xlDialogExtract 35 “提取”对话框 name_array, ignore, use_rowcol, omit_col, omit_row, order_num, append_last

xlDialogDataDelete 36 “数据删除”对话框 x_major, x_minor, y_major, y_minor, z_major, z_minor, 2D_effect

xlDialogSort 39 “排序”对话框 0

xlDialogDataSeries 40 “数据系列”对话框 apattern, afore, aback, newui

xlDialogTable 41 “表”对话框 0

xlDialogFormatNumber 42 “设置数字格式”对话框 name_text, size_num, bold, italic, underline, strike, color, outline, shadow

xlDialogAlignment 43 “对齐方式”对话框 head, foot, left, right, top, bot, hdng, grid, h_cntr, v_cntr, orient, paper_size, scale, pg_num, pg_order, bw_cells, quality, head_margin, foot_margin, notes, draft

xlDialogStyle 44 “样式”对话框 0

xlDialogBorder 45 “边框”对话框 unique

xlDialogCellProtection 46 “单元格保护”对话框 orientation, key1, order1, key2, order2, key3, order3, header, custom, case

xlDialogColumnWidth 47 “列宽”对话框 name_text, refers_to, macro_type, shortcut_text, hidden, category, local

xlDialogClear 52 “清除”对话框 shift_num

xlDialogPasteSpecial 53 “选择性粘贴”对话框 file_name, filter_number

xlDialogEditDelete 54 “编辑删除”对话框 name_text

xlDialogInsert 55 “插入”对话框 type_num, view, overlap, gap_width, vary, drop, hilo, angle, series_dist, series_num, up_down, series_line, labels, doughnut_size

xlDialogPasteNames 58 “粘贴名称”对话框 name_text, password_text, download_logical

xlDialogDefineName 61 “定义名称”对话框 type_num, stack, 100, vary, overlap, drop, hilo, overlap%, cluster, angle, series_num, auto

xlDialogCreateNames 62 “创建名称”对话框 type_num, delete_overlay

xlDialogFormulaGoto 63 “转到公式”对话框 type_num

xlDialogFormulaFind 64 “查找公式”对话框 type_num

xlDialogGalleryArea 67 “面积图库”对话框 rowcol, rowcol_num, expand, show_field

xlDialogGalleryBar 68 “条形图库”对话框 placement_type, print_object

xlDialogGalleryColumn 69 “柱形图库”对话框 0

xlDialogGalleryLine 70 “折线图库”对话框 locked, lock_text

xlDialogGalleryPie 71 “饼图库”对话框 file_text, appearance, size, formats

xlDialogGalleryScatter 72 “散点图库”对话框 rowcol, rowcol_num, expand, show_field

xlDialogCombination 73 “组合图”对话框 top, left, bottom, right

xlDialogGridlines 76 “网格线”对话框 color_num, red_value, green_value, blue_value

xlDialogAxes 78 “坐标轴”对话框 type_num, iter, max_num, max_change, update, precision, date_1904, calc_save, save_values, alt_exp, alt_form

xlDialogAttachText 80 “附加文本”对话框 name_text, size_num

xlDialogPatterns 84 “图案”对话框 type_num, delete_overlay

xlDialogMainChart 85 “主要图”对话框 category

xlDialogOverlay 86 “覆盖图”对话框 display_blanks, plot_visible, size_with_window

xlDialogScale 87 “缩放”对话框 0

xlDialogFormatLegend 88 “图例格式”对话框 type_num

xlDialogFormatText 89 “设置文本格式”对话框 type_num

xlDialogParse 91 “分列”对话框 recipients, subject, message, route_num, return_logical, status_logical

xlDialogUnhide 94 “取消隐藏”对话框 0

xlDialogWorkspace 95 “工作区”对话框 #N/A

xlDialogActivate 103 “激活”对话框 file_text, update_links, read_only, format, prot_pwd, write_res_pwd, ignore_rorec, file_origin, custom_delimit, add_logical, editable, file_access, notify_logical, converter

xlDialogCopyPicture 108 “复制图片”对话框 type_num, delete_overlay

xlDialogDeleteName 110 “删除名称”对话框 x_align, y_align, orient_num, auto_text, auto_size, show_key, show_value, add_indent

xlDialogDeleteFormat 111 “删除格式”对话框 position_num

xlDialogNew 119 “新建”对话框 name_text

xlDialogRowHeight 127 “行高”对话框 value, link, accel_text, accel2_text, 3d_shading

xlDialogFormatMove 128 “设置移动格式”对话框 recipients, subject, return_receipt

xlDialogFormatSize 129 “设置大小”对话框 sort_by, method, key1, order1, key2, order2, key3, order3, header, order, case

xlDialogFormulaReplace 130 “替换公式”对话框 type_num

xlDialogSelectSpecial 132 “特殊选定”对话框 layer_num, view, overlap, angle, gap_width, gap_depth, chart_depth, doughnut_size, axis_num, drop, hilo, up_down, series_line, labels, vary

xlDialogApplyNames 133 “应用名称”对话框 range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection, printer_text, print_to_file, collate

xlDialogReplaceFont 134 “替换字体”对话框 start, end, by, periods

xlDialogSplit 137 “拆分”对话框 0

xlDialogOutline 142 “大纲”对话框 0

xlDialogSaveWorkbook 145 “保存工作簿”对话框 default_logical, cancel_logical, dismiss_logical, help_logical, accel_text, accel_text2

xlDialogCopyChart 147 “复制图表”对话框 type_num, delete_overlay

xlDialogFormatFont 150 “设置字体格式”对话框 type_num

xlDialogNote 154 “注意”对话框 bar_id, position, macro_ref

xlDialogSetUpdateStatus 159 “设置更新状态”对话框 0

xlDialogColorPalette 161 “调色板”对话框 0

xlDialogChangeLink 166 “更改链接”对话框 rowcol, type_num, date_num, step_value, stop_value, trend

xlDialogAppMove 170 “AppMove”对话框 arrange_num, active_doc, sync_horiz, sync_vert

xlDialogAppSize 171 “AppSize”对话框 width, height, window_text

xlDialogMainChartType 185 “图表类型”对话框 name_array, dest_book, position_num

xlDialogOverlayChartType 186 “覆盖图图表类型”对话框 filename_text

xlDialogOpenMail 188 “打开邮件”对话框 scen_name, value_array, changing_ref, scen_comment, locked, hidden

xlDialogSendMail 189 “发送邮件”对话框 chart_num, old_series_num, new_series_num

xlDialogStandardFont 190 “标准字体”对话框 0

xlDialogConsolidate 191 “合并计算”对话框 text, in_num, at_num, by_num, dir_num, match_case, match_byte

xlDialogSortSpecial 192 “选择性排序”对话框 0

xlDialogGallery3dArea 193 “三维面积图库”对话框 target_cell, target_value, variable_cell

xlDialogGallery3dColumn 194 “三维柱形图库”对话框 type_num

xlDialogGallery3dLine 195 “三维折线图库”对话框 link_text, type_of_link

xlDialogGallery3dPie 196 “三维饼图库”对话框 rowcol

xlDialogView3d 197 “三维视图”对话框 def_rtl_sheet, crsr_mvmt, show_ctrl_char, gui_lang

xlDialogGoalSeek 198 “单变量求解”对话框 0

xlDialogWorkgroup 199 “工作组”对话框 #N/A

xlDialogFillGroup 200 “填充组”对话框 auto_styles, row_dir, col_dir, create_apply

xlDialogUpdateLink 201 “更新链接”对话框 0

xlDialogPromote 202 “升级”对话框 at_change_in, function_num, total, replace, pagebreaks, summary_below

xlDialogDemote 203 “降级”对话框 parse_text, destination_ref

xlDialogShowDetail 204 “显示明细数据”对话框 correct_initial_caps, capitalize_days

xlDialogObjectProperties 207 “对象属性”对话框 placement_type

xlDialogSaveNewObject 208 “保存新对象”对话框 file_name, file_origin, start_row, file_type, text_qualifier, consecutive_delim, tab, semicolon, comma, space, other, other_char, field_info

xlDialogApplyStyle 212 “应用样式”对话框 printer_text

xlDialogAssignToObject 213 “给对象指定宏”对话框 reference, step

xlDialogObjectProtection 214 “对象保护”对话框 type_num

xlDialogCreatePublisher 217 “创建发布者”对话框 type_num, delete_overlay

xlDialogSubscribeTo 218 “订阅”对话框 0

xlDialogShow** 220 “显示工具栏”对话框 0

xlDialogPrintPreview 222 “打印预览”对话框 0

xlDialogEditColor 223 “编辑颜色”对话框 appearance_num, size_num, type_num

xlDialogFormatMain 225 “设置主要格式”对话框 subject, comments

xlDialogFormatOverlay 226 “设置重叠格式”对话框 source_refs, function_num, top_row, left_col, create_links

xlDialogEditSeries 228 “编辑数据系列”对话框 type_num, xy_series, add_logical

xlDialogDefineStyle 229 “定义样式”对话框 cross, cat_labels, cat_marks, between, max, reverse

xlDialogGalleryRadar 249 “雷达图库”对话框 file_text, format_num

xlDialogEditionOptions 251 “编辑选项”对话框 format_text

xlDialogZoom 256 “缩放”对话框 #N/A

xlDialogInsertObject 259 “插入对象”对话框 type_num, delete_overlay

xlDialogSize 261 “大小”对话框 0

xlDialogMove 262 “移动”对话框 name_array, dest_book, position_num

xlDialogFormatAuto 269 “自动套用格式”对话框 old_text, new_text, type_of_link

xlDialogGallery3dBar 272 “三维条形图库”对话框 name_array

xlDialogGallery3dSu**ce 273 “三维曲面图库”对话框 row_col

xlDialogCustomize** 276 “自定义工具栏”对话框 type_num, delete_overlay

xlDialogWorkbookAdd 281 “添加工作簿”对话框 0

xlDialogWorkbookMove 282 “移动工作簿”对话框 #N/A

xlDialogWorkbookCopy 283 “复制工作簿”对话框 0

xlDialogWorkbookOptions 284 “工作簿选项”对话框 #N/A

xlDialogSaveWorkspace 285 “保存工作区”对话框 0

xlDialogChartWizard 288 “图表向导”对话框 paste_num, operation_num, skip_blanks, transpose

xlDialogAssignToTool 293 “给工具指定宏”对话框 titles_for_cols_ref, titles_for_rows_ref

xlDialogPlacement 300 “位置”对话框 name_text

xlDialogFillWorkgroup 301 “填充工作组”对话框 document_text, type_num, prot_pwd, backup, write_res_pwd, read_only_rec

xlDialogWorkbookNew 302 “新建工作簿”对话框 #N/A

xlDialogScenarioCells 305 “单元格方案”对话框 string_array

xlDialogScenarioAdd 307 “添加方案”对话框 document_text

xlDialogScenarioEdit 308 “编辑方案”对话框 axis_num

xlDialogScenarioSummary 311 “方案摘要”对话框 name_ref, y_ref

xlDialogPivotTableWizard 312 “数据透视表向导”对话框 oldname_text, newname_text

xlDialogPivotFieldProperties 313 “数据透视表字段属性”对话框 show_option, auto_text, show_key

xlDialogOptionsCalculation 318 “计算选项”对话框 result_ref, report_type

xlDialogOptionsEdit 319 “编辑选项”对话框 name, pivot_field_name, new_name, orientation, function, formats

xlDialogOptionsView 320 “视图选项”对话框 0

xlDialogAddinManager 321 “加载项管理器”对话框 file_text

xlDialogMenuEditor 322 “菜单编辑器”对话框 name_array, dest_book, position_num

xlDialogAttach**s 323 “附加工具栏”对话框 formulas, gridlines, headings, zeros, color_num, reserved, outline, page_breaks, object_num

xlDialogOptionsChart 325 “图表选项”对话框 type, source, destination, name, row_grand, col_grand, save_data, apply_auto_format, auto_page, reserved

xlDialogVbaInsertFile 328 “VBA 插入文件”对话框 0

xlDialogVbaProcedureDefinition 330 “VBA 过程定义”对话框 0

xlDialogRoutingSlip 336 “传送名单”对话框 0

xlDialogMailLogon 339 “邮件登录”对话框 type_num

xlDialogInsertPicture 342 “插入图片”对话框 edition_type, edition_name, reference, option, appearance, size, formats

xlDialogGalleryDoughnut 344 “圆环图库”对话框 macro_ref

xlDialogChartTrend 350 “图表趋势”对话框 width_num, reference, standard, type_num, standard_num

xlDialogWorkbookInsert 354 “插入工作簿”对话框 #N/A

xlDialogOptionsTransition 355 “转换选项”对话框 operation_num, addinname_text, copy_logical

xlDialogOptionsGeneral 356 “常规选项”对话框 type_num, iter, max_num, max_change, update, precision, date_1904, calc_save, save_values

xlDialogFilterAdvanced 370 “高级筛选”对话框 color, backgd, apply, name_text, size_num, bold, italic, underline, strike, outline, shadow, object_id, start_num, char_num

xlDialogMailNextLetter 378 “发送下一信函”对话框 type_num

xlDialogDataLabel 379 “数据标签”对话框 x_primary, y_primary, x_secondary, y_secondary

xlDialogInsertTitle 380 “插入标题”对话框 magnification

xlDialogFontProperties 381 “字体属性”对话框 file_text

xlDialogMacroOptions 382 “宏选项”对话框 x_pos, y_pos, window_text

xlDialogWorkbookUnhide 384 “取消隐藏工作簿”对话框 #N/A

xlDialogWorkbookName 386 “命名工作簿”对话框 #N/A

xlDialogGalleryCustom 388 “自定义库”对话框 style_text

xlDialogAddChartAutoformat 390 “添加图表自动套用格式”对话框 document_text, type_num, prot_pwd, backup, write_res_pwd, read_only_rec

xlDialogChartAddData 392 “图表添加数据”对话框 row_ref, column_ref

xlDialogTabOrder 394 “Tab 键次序”对话框 0

xlDialogSubtotalCreate 398 “创建分类汇总”对话框 0

xlDialogWorkbookTabSplit 415 “拆分工作簿标签”对话框 #N/A

xlDialogWorkbookProtect 417 “保护工作簿”对话框 #N/A

xlDialogScrollbarProperties 420 “滚动条属性”对话框 include, type, amount, minus

xlDialogPivotShowPages 421 “数据透视表显示页”对话框 font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_count

xlDialogTextToColumns 422 “分列”对话框 0

xlDialogFormatCharttype 423 “设置图表类型格式”对话框 x_num, y_num

xlDialogPivotFieldGroup 433 “组合数据透视表字段”对话框 0

xlDialogPivotFieldUngroup 434 “取消组合数据透视表字段”对话框 chart, y_primary, x_primary, y_secondary, x_secondary

xlDialogCheckboxProperties 435 “复选框属性”对话框 shift_num

xlDialogLabelProperties 436 “标签属性”对话框 object_class, file_name, link_logical, display_icon_logical, icon_file, icon_number, icon_label

xlDialogListboxProperties 437 “列表框属性”对话框 width, height, window_text

xlDialogEditboxProperties 438 “编辑框属性”对话框 window_text, pane_num

xlDialogOpenText 441 “打开文本”对话框 scen_name, new_scenname, value_array, changing_ref, scen_comment, locked, hidden

xlDialogPushbuttonProperties 445 “按钮属性”对话框 apply_to, group_num, dimension, type_num

xlDialogFilter 447 “对话框筛选”对话框 size_num

xlDialogFunctionWizard 450 “函数向导”对话框 elevation, perspective, rotation, axes, height%, autoscale

xlDialogSaveCopyAs 456 “副本另存为”对话框 validation_num, multiline_logical, vscroll_logical, password_logical

xlDialogOptionsListsAdd 458 “添加列表选项”对话框 incell_edit, drag_drop, alert, entermove, fixed, decimals, copy_objects, update_links, move_direction, autocomplete, animations

xlDialogSeriesAxes 460 “系列坐标轴”对话框 to_recipients, cc_recipients, bcc_recipients, subject, enclosures, which_address

xlDialogSeriesX 461 “系列 X”对话框 title, subject, author, keywords, comments

xlDialogSeriesY 462 “系列 Y”对话框 0

xlDialogErrorbarX 463 “误差线 X”对话框 height_num, reference, standard_height, type_num

xlDialogErrorbarY 464 “误差线 Y”对话框 x_offset, y_offset, reference

xlDialogFormatChart 465 “设置图表格式”对话框 x_num, y_num

xlDialogSeriesOrder 466 “系列次序”对话框 source_file

xlDialogMailEditMailer 470 “编辑邮件发件人”对话框 format_num, number, font, alignment, border, pattern, width

xlDialogStandardWidth 472 “标准宽度”对话框 0

xlDialogScenarioMerge 473 “合并方案”对话框 x_ref

xlDialogProperties 474 “属性”对话框 ratio_num

xlDialogSummaryInfo 474 “摘要信息”对话框 0

xlDialogFindFile 475 “查找文件”对话框 add_text, cell_ref, start_char, num_chars

xlDialogActiveCellFont 476 “活动单元格字体”对话框 document_text1, document_text2, ..., read_only, type_of_link

xlDialogVbaMakeAddin 478 “VBA 创建加载项”对话框 0

xlDialogFileSharing 481 “文件共享”对话框 col_split, row_split

xlDialogAutoCorrect 485 “自动校正”对话框 contents, windows, password, objects, scenarios

xlDialogCustomViews 493 “自定义视图”对话框 type_num

xlDialogInsertNameLabel 496 “插入名称标志”对话框 style_text, number, font, alignment, border, pattern, protection

xlDialogSeriesShape 504 “系列形状”对话框 title, subject, author, keywords, comments

xlDialogChartOptionsDataLabels 505 “图表选项数据标签”对话框 bold, italic

xlDialogChartOptionsDataTable 506 “图表选项数据表”对话框 outline, left, right, top, bottom, shade, outline_color, left_color, right_color, top_color, bottom_color

xlDialogSetBackgroundPicture 509 “设置背景图片”对话框 font, font_style, size, strikethrough, superscript, subscript, outline, shadow, underline, color, normal, background, start_char, char_count

xlDialogDataValidation 525 “数据有效性”对话框 type_num, stack, 100, vary, overlap, drop, hilo, overlap%, cluster, angle

xlDialogChartType 526 “图表类型”对话框 type_num

xlDialogChartLocation 527 “图表位置”对话框 format_text

xlDialogExternalDataProperties 530 “外部数据属性”对话框 type_num, value_type, levels

xlDialogChartSourceData 540 “图表源数据”对话框 locked, hidden

xlDialogSeriesOptions 557 “系列选项”对话框 standard_num

xlDialogPivotTableOptions 567 “数据透视表选项”对话框 sheet_text

xlDialogPivotSolveOrder 568 “数据透视表求解次序”对话框 macro_name, description, menu_on, menu_text, shortcut_on, shortcut_key, function_category, status_bar_text, help_id, help_file

xlDialogPivotCalculatedField 570 “数据透视表计算字段”对话框 menu_key, menu_key_action, nav_keys, trans_eval, trans_entry

xlDialogPivotCalculatedItem 572 “数据透视表计算项”对话框 R1C1_mode, dde_on, sum_info, tips, recent_files, old_menus, user_info, font_name, font_size, default_location, alternate_location, sheet_num, enable_under

xlDialogConditionalFormatting 583 “条件格式”对话框 reference, corner

xlDialogInsertHyperlink 596 “插入超链接”对话框 series_num, name_ref, x_ref, y_ref, z_ref, plot_order

xlDialogProtectSharing 620 “保护共享”对话框 name, page_field

xlDialogOptionsME 647 “ME 选项”对话框 formula, status, notes, show_info, object_num, page_breaks, formulas, gridlines, color_num, headers, outline, zeros, hor_scroll, vert_scroll, sheet_tabs

xlDialogPublishAsWebPage 653 “发布为网页”对话框 destination_ref, data_type, text_delim, consecutive_delim, tab, semicolon, comma, space, other, other_char, field_info

xlDialogPhonetic 656 “拼音”对话框 type_num

xlDialogImportTextFile 666 “导入文本文件”对话框 type_num, view, overlap, gap_width, vary, drop, hilo, angle, gap_depth, chart_depth, up_down, series_line, labels, doughnut_size

xlDialogNewWebQuery 667 “新建 Web 查询”对话框 long, ref, gallery_num, type_num, plot_by, categories, ser_titles, legend, title, x_title, y_title, z_title, number_cats, number_titles

xlDialogWebOptionsGeneral 683 “Web 常规选项”对话框 0

xlDialogWebOptionsFiles 684 “Web 文件选项”对话框 0

xlDialogWebOptionsPictures 685 “Web 图片选项”对话框 0

xlDialogWebOptionsEncoding 686 “Web 编码选项”对话框 0

xlDialogWebOptionsFonts 687 “Web 字体选项”对话框 0

xlDialogPivotClientServerSet 689 “设置数据透视表客户机服务器”对话框 operation, list_ref, criteria_ref, copy_ref, unique

xlDialogEvaluateFormula 709 “公式求值”对话框 find_text, replace_text, look_at, look_by, active_cell, match_case, match_byte

xlDialogDataLabelMultiple 723 “多个数据标签”对话框 attach_to_num, series_num, point_num

xlDialogChartOptionsDataLabelMultiple 724 “图表选项多个数据标签”对话框 horiz_align, wrap, vert_align, orientation, add_indent

xlDialogSearch 731 “搜索”对话框 include, type, amount, minus

xlDialogErrorChecking 732 “错误检查”对话框 width, height

xlDialogPropertyFields 754 “属性字段”对话框 structure, windows, password

xlDialogWebOptionsBrowsers 773 “Web 浏览器选项”对话框 0

xlDialogCreateList 796 “创建列表”对话框 type_num, delete_overlay

xlDialogPermission 832 “权限”对话框 type, ord_per, forecast, backcast, intercept, equation, r_squared, name

xlDialogMyPermission 834 “我的权限”对话框 sheet_name, bound_logical, new_name

xlDialogDocumentInspector 862 “文档检查器”对话框 fixed, decimals, r1c1, scroll, status, formula, menu_key, remote, entermove, underlines, tools, notes, nav_keys, menu_key_action, drag_drop, show_info

[此贴子已经被作者于2010-10-9 11:59:43编辑过]

--  作者：mr725
--  发布时间：2010/10/9 13:18:00
--
以下是引用qtcks在2010-10-9 11:34:00的发言：

实现代码打开excel报表，并打开excel打印对话框：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("e:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
app.Dialogs(8).Show
wb.Close()
app.Quit()

Excel 2007中可以调用的内置对话框包括以下这些

..............................................................

挺好的啊～   有 Excel 2003中可以调用的内置对话框吗？

--  作者：qtcks
--  发布时间：2010/10/9 14:46:00
--

貌似通用性很高。呵呵。

--  作者：fytea
--  发布时间：2015/10/2 19:40:00
--

搞不懂，好难呀