Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]excel报表之-


  共有7932人关注过本帖树形打印复制链接

主题：[分享]excel报表之-
帅哥哟，离线，有人找我吗？
qtcks
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：3926 威望：0 精华：6 注册：2009/3/29 13:25:00 		[分享]excel报表之-  发帖心情 Post By：2010/10/6 0:06:00 [只看该作者]

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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：3926 威望：0 精华：6 注册：2009/3/29 13:25:00 		  发帖心情 Post By：2010/10/6 23:36:00 [只看该作者]

Dim Book As New XLS.Book

请开通支持 excel 2007
 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2010/10/8 8:42:00 [只看该作者]

学习了～ 


 回到顶部
帅哥哟，离线，有人找我吗？
qtcks
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：3926 威望：0 精华：6 注册：2009/3/29 13:25:00 		  发帖心情 Post By：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
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：3926 威望：0 精华：6 注册：2009/3/29 13:25:00 		  发帖心情 Post By：2010/10/9 14:46:00 [只看该作者]

貌似通用性很高。呵呵。
 回到顶部
帅哥哟，离线，有人找我吗？
fytea
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：787 积分：6175 威望：0 精华：0 注册：2015/7/25 19:14:00 		  发帖心情 Post By：2015/10/2 19:40:00 [只看该作者]

搞不懂，好难呀
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05713 秒, 5 次数据查询