与Word和Excel交互.ppt

第六章 应用程序与Word和Excel的交互 2 回顾 编写ActiveXDLL服务组件 ActiveXDLL组件的调试 兼容性设置和使用Implements实现接口 组件的Instancing属性设置 编写ActiveXEXE进程外组件 使用事件实现回调和客户端异步 3 使用Word应用程序 文档对象实现桌面文档交互 使用Excel工作簿 工作表对象实现文档自动化 掌握Word自定义宏及相关的配置 在VBE中使用应用程序 文档 工作簿和工作表对象 自定义文档模板及操作 目标 4 Word和Excel对象 ActiveXEXE对象 可以在VB中进行对象和接口方式的调用 5 层次式对象模型 6 创建Word对象 绑定 前期绑定DimwdAppAsWord ApplicationDimwdDocAsWord DocumentSetwdApp NewWord Application后期绑定DimwdAppAsObjectSetwdApp CreateObject Word Application wdApp Documents Add 7 创建Word对象 GetObject DimwdDocAsObjectSetwdDoc GetObject C SPM Sem1 doc wdDoc Application Visible True 8 Word应用程序对象 属性 MyApp Visible TrueMyApp ActiveDocument SaveMyApp Caption 公文 20040102 MyApp ActiveDocument FullName MyApp Path A DOC MyApp WindowState wdWindowStateMaximize 9 Word应用程序对象 方法 MyApp ActivateDocName Dir DOC WhileDocNameEmptyApplication PrintOut adoc DocName Dir WendMyApp QuitMyApp Repeat MyApp UndoNormal Module2 Macro1 CallNormal Module2 Macro1Application RunMacroName Normal Module2 Macro1 10 Word文档对象 属性 IfMyDoc Saved FalseThenMyDoc SaveDebug PrintActiveDocument AttachedTemplate FullNameSetmyRange ActiveDocument ContentmyRange Font Name Arial ActiveDocument PassWord ABC ActiveDocument ReadOnly TrueActiveDocument SaveFormat wdFormatRTF 11 Word文档对象 方法 IfMyDoc Saved FalseThenMyDoc SaveCallActiveDocument SaveAs C ABC DOC wdFormatDocument False OpenPwd True WritePwd True SetmyRange ActiveDocument ContentmyRange Font Name Arial ActiveDocument CloseActiveDocument Undo 2 12 DimwdAppAsWord ApplicationSetwdApp NewApplicationIf wdAppIsNothing OrErr Number 0ThenWithwdApp Visible True Activate WindowState wdWindowStateMaximize Documents Open strDocFileName Call ActiveDocument SaveAs C ABC TXT wdFormatEncodedText ActiveDocument Close Quit False EndWith 使用Word文档对象 演示文档格式转换 13 创建Excel对象 前期绑定DimexAppAsExcel ApplicationDimexDocAsExcel WorkBookSetexApp NewExcel Application后期绑定DimexAppAsObjectSetexApp CreateObject Excel Application exApp SheetsInNewWorkbook 1exApp Workbooks Add 14 Excel工作簿对象 属性 MyBook ActiveSheet Name 年度计划工作表 MyBook ActiveChart BarShap xlBoxMyBook KeepChangeHistory TrueMyApp Sheets Item 1 Cell 1 1 Value 12 15 Excel工作簿对象 方法 MyBook ActivateMyBook CloseMyBook ProtectPassword ASPS MyApp SaveCopyAs C A XLS 16 Excel工作表对象 属性 MySheet Application DisplayFullScreen TrueMySheet Cells 1 1 Locked FalseMySheet Columns 1 Font Bold TrueMySheet Visible FalseMySheet PageSetup LeftMargin Application InchesToPoints 0 5 17 Excel工作表对象 方法 MySheet UsedRange Columns A C CalculateMySheet CheckSpellingMySheet Range A1 D10 DeleteShift xlShiftToLeftMySheet PrintPreview TrueMySheet Range A1 B3 Select 18 使用Excel工作表对象 exlApp SheetsInNewWorkbook 1exlApp DefaultFilePath App PathexlApp Workbooks AddexlApp Visible TrueSetwsBook ActiveWorkbookSetwsSheet ActiveSheetwsBook Application DisplayAlerts FalseCallwsBook SaveAs C ABCD XLS ASD wsBook Application DisplayAlerts TruewsBook Author FullNamewsSheet Cells Font Name System wsSheet Cells Font Size 12wsSheet Name 随机数据检测 填充随机数的代码wsBook SaveexlApp DisplayAlerts TrueexlApp Quit 演示填充随机数到工作表 19 宏和宏录制 为了自动执行某些任务而作为单个命令组合在一起的一系列或一组命令 宏病毒 可以通过宏录制来转化操作为执行代码 演示宏录制 查看 20 自定义和宏命令按钮 21 VBA程序设计3 1 22 VBA程序设计3 2 23 VBA程序设计3 3 24 文档模板2 1 文档的格式 内容和相关操作进行定制 需要和Word中的宏结合起来使用 可以检测文档 应用程序对象的事件 对文档编辑 审核 安全等方面进行控制 以 Dot的形式保存文档模板文件 25 文档模板2 2 26 在文档模板中自定义工具栏按钮 27 文档模板工程加密 28 VBE对象事件4 1 29 VBE对象事件4 2 30 VBE对象事件4 3 类模块clsApplicationEvents代码PublicWithEventsMyAppAsApplicationPrivateSubMyApp DocumentBeforeClose ByValDocAsDocument CancelAsBoolean MyApp ActiveDocument Saved TrueMyApp DisplayAlerts wdAlertsNoneEndSub 31 VBE对象事件4 4 模块modMain中的代码DimXAsNewclsApplicationEventsSubRegester Events SetX MyApp Word ApplicationEndSub 32 总结2 1 MicrosoftOffice中的Word Excel PowerPoint Access等 都是ActiveXEXE组件 可以在VisualBasic应用程序中调用其组件接口 进行可编程方式的访问和控制 Word和Excel提供了一个层次式的对象结构提供外部访问 在外部应用程序中 可以通过前期绑定或者后期绑定的方式来访问其应用程序对象 像使用其他ActiveXEXE组件对象一样 可以调用Application Document WorkBook WorkSheet对象的属性 方法进行相关的操作 Word宏是为了自动执行某些任务而作为一个命令组合在一起的一系列或一组命令 33 总结2 2 VisualBasic编辑器通常