版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、第六章,應(yīng)用程序與Word和Excel的交互,2,回顧,編寫ActiveX DLL服務(wù)組件; ActiveX DLL組件的調(diào)試; 兼容性設(shè)置和使用Implements實(shí)現(xiàn)接口; 組件的Instancing屬性設(shè)置; 編寫ActiveX EXE進(jìn)程外組件; 使用事件實(shí)現(xiàn)回調(diào)和客戶端異步;,3,使用Word應(yīng)用程序、文檔對(duì)象實(shí)現(xiàn)桌面文檔交互; 使用 Excel工作簿、工作表對(duì)象實(shí)現(xiàn)文檔自動(dòng)化; 掌握Word自定義宏及相關(guān)的配置; 在VBE中使用應(yīng)用程序、文檔、工作簿和工作表對(duì)象; 自定義文檔模板及操作;,目標(biāo),4,Word和Excel對(duì)象,ActiveX EXE對(duì)象; 可以在VB中進(jìn)行對(duì)象和接口方
2、式的調(diào)用;,5,層次式對(duì)象模型,6,創(chuàng)建Word對(duì)象 綁定,前期綁定 Dim wdApp As Word.Application Dim wdDoc As Word.Document Set wdApp = New Word.Application 后期綁定 Dim wdApp As Object Set wdApp = CreateObject(“Word.Application”) wdApp.Documents.Add,7,創(chuàng)建Word對(duì)象 GetObject,Dim wdDoc As Object Set wdDoc = GetObject(C:SPM-Sem1.doc) wdDoc.
3、Application.Visible = True,8,Word應(yīng)用程序?qū)ο?屬性,MyApp.Visible = True MyApp.ActiveDocument.Save MyApp.Caption = “公文20040102” MyApp.ActiveDocument.FullName = MyApp.Path & “A.DOC” MyApp.WindowState = wdWindowStateMaximize,9,Word應(yīng)用程序?qū)ο?方法,MyApp.Activate DocName = Dir(*.DOC) While DocName Empty Application.Pr
4、intOut(adoc) DocName = Dir() Wend MyApp.Quit MyApp.Repeat: MyApp.Undo Normal.Module2.Macro1: Call Normal.Module2.Macro1 Application.Run MacroName:=Normal.Module2.Macro1,10,Word文檔對(duì)象 屬性,If MyDoc.Saved = False Then MyDoc.Save Debug.Print ActiveDocument.AttachedTemplate.FullName Set myRange = ActiveDocu
5、ment.Content myRange.Font.Name = Arial ActiveDocument.PassWord = “ABC” ActiveDocument.ReadOnly = True ActiveDocument.SaveFormat = wdFormatRTF,11,Word文檔對(duì)象 方法,If MyDoc.Saved = False Then MyDoc.Save Call ActiveDocument.SaveAs(“C:ABC.DOC”, wdFormatDocument,False,”O(jiān)penPwd”,True,”WritePwd”,True) Set myRan
6、ge = ActiveDocument.Content myRange.Font.Name = Arial ActiveDocument.Close ActiveDocument.Undo(2),12,Dim wdApp As Word.Application Set wdApp = New Application If (wdApp Is Nothing) Or Err.Number = 0 Then With wdApp .Visible = True .Activate .WindowState = wdWindowStateMaximize .Documents.Open (strDo
7、cFileName) Call .ActiveDocument.SaveAs(“C:ABC.TXT”, wdFormatEncodedText) .ActiveDocument.Close .Quit (False) End With,使用Word文檔對(duì)象,演示文檔格式轉(zhuǎn)換,13,創(chuàng)建Excel對(duì)象,前期綁定 Dim exApp As Excel.Application Dim exDoc As Excel.WorkBook Set exApp = New Excel.Application 后期綁定 Dim exApp As Object Set exApp = CreateObject(“
8、Excel.Application”) exApp.SheetsInNewWorkbook = 1 exApp.Workbooks.Add,14,Excel工作簿對(duì)象 屬性,MyBook.ActiveSheet.Name = “年度計(jì)劃工作表” MyBook.ActiveChart.BarShap = xlBox MyBook.KeepChangeHistory = True MyApp.Sheets.Item(1).Cell(1,1).Value = 12,15,Excel工作簿對(duì)象 方法,MyBook.Activate MyBook.Close MyBook.Protect Passwor
9、d := “ASPS MyApp.SaveCopyAs(“C:A.XLS”),16,Excel工作表對(duì)象 屬性,MySheet.Application.DisplayFullScreen = True MySheet.Cells(1,1).Locked = False MySheet.Columns(1).Font.Bold = True MySheet.Visible = False MySheet.PageSetup.LeftMargin = Application.InchesToPoints(0.5),17,Excel工作表對(duì)象 方法,MySheet.UsedRange.Columns
10、(A:C).Calculate MySheet.CheckSpelling MySheet.Range(A1:D10).Delete Shift:=xlShiftToLeft MySheet.PrintPreview = True MySheet.Range(A1:B3).Select,18,使用Excel工作表對(duì)象,exlApp.SheetsInNewWorkbook = 1 exlApp.DefaultFilePath = App.Path exlApp.Workbooks.Add exlApp.Visible = True Set wsBook = .ActiveWorkbook Set
11、 wsSheet = .ActiveSheet wsBook.Application.DisplayAlerts = False Call wsBook.SaveAs(C:ABCD.XLS, , ASD) wsBook.Application.DisplayAlerts = True wsBook.Author = .FullName wsSheet.Cells.Font.Name = System wsSheet.Cells.Font.Size = 12 wsSheet.Name = “隨機(jī)數(shù)據(jù)檢測(cè)” 填充隨機(jī)數(shù)的代碼 wsBook.Save exlApp.DisplayAlerts = T
12、rue exlApp.Quit,演示填充隨機(jī)數(shù)到工作表,19,宏和宏錄制,為了自動(dòng)執(zhí)行某些任務(wù)而作為單個(gè)命令組合在一起的一系列或一組命令; 宏病毒; 可以通過宏錄制來轉(zhuǎn)化操作為執(zhí)行代碼;,演示宏錄制、查看,20,自定義和宏命令按鈕,21,VBA程序設(shè)計(jì) 3 - 1,22,VBA程序設(shè)計(jì) 3 - 2,23,VBA程序設(shè)計(jì) 3 - 3,24,文檔模板 2 - 1,文檔的格式、內(nèi)容和相關(guān)操作進(jìn)行定制; 需要和Word中的宏結(jié)合起來使用; 可以檢測(cè)文檔、應(yīng)用程序?qū)ο蟮氖录?,?duì)文檔編輯、審核、安全等方面進(jìn)行控制; 以.Dot的形式保存文檔模板文件;,25,文檔模板 2 - 2,26,在文檔模板中自定義工
13、具欄按鈕,27,文檔模板工程加密,28,VBE對(duì)象事件 4 - 1,29,VBE對(duì)象事件 4 - 2,30,VBE對(duì)象事件 4 - 3,類模塊clsApplicationEvents代碼 Public WithEvents MyApp As Application Private Sub MyApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean) MyApp.ActiveDocument.Saved = True MyApp.DisplayAlerts = wdAlertsNone End Sub,31,VBE對(duì)象事件
14、 4 - 4,模塊modMain中的代碼 Dim X As New clsApplicationEvents Sub Regester_Events() Set X.MyApp = Word.Application End Sub,32,總結(jié) 2 - 1,Microsoft Office中的Word、Excel、PowerPoint、Access等,都是ActiveX EXE組件,可以在Visual Basic應(yīng)用程序中調(diào)用其組件接口,進(jìn)行可編程方式的訪問和控制; Word和Excel提供了一個(gè)層次式的對(duì)象結(jié)構(gòu)提供外部訪問,在外部應(yīng)用程序中,可以通過前期綁定或者后期綁定的方式來訪問其應(yīng)用程序?qū)ο螅?像使用其他ActiveX EXE組件對(duì)象一樣,可以調(diào)用Application、Document、WorkBook、WorkSheet對(duì)象的屬性、方法進(jìn)行相關(guān)的操作; Word 宏是為了自動(dòng)執(zhí)行某些任務(wù)而作為一個(gè)命令組合在一起的一系列或一組命令;,33,總結(jié) 2 - 2,Visual Ba
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 承德應(yīng)用技術(shù)職業(yè)學(xué)院《海洋監(jiān)察管理》2023-2024學(xué)年第一學(xué)期期末試卷
- 2025版綜合防災(zāi)減災(zāi)工程大清包建設(shè)合同范本3篇
- 成都銀杏酒店管理學(xué)院《工程管理類軟件應(yīng)用含技術(shù)》2023-2024學(xué)年第一學(xué)期期末試卷
- 池州學(xué)院《電氣材料基礎(chǔ)》2023-2024學(xué)年第一學(xué)期期末試卷
- 2025版酒店客房部服務(wù)員聘用合同書2篇
- 2025版美容美發(fā)店員工福利與補(bǔ)償合同3篇
- 2024年證券投資私募股權(quán)基金合作協(xié)議3篇
- 2025版C型鋼倉儲(chǔ)物流服務(wù)與供應(yīng)鏈優(yōu)化合同3篇
- 熱力管道施工方案步驟
- 二零二五年度信息技術(shù)開發(fā)與維護(hù)服務(wù)合同2篇
- 【高分復(fù)習(xí)筆記】孫廣仁《中醫(yī)基礎(chǔ)理論》(第9版)筆記與考研真題詳解
- 開題報(bào)告:高質(zhì)量數(shù)字教材建設(shè)機(jī)制及政策研究
- PE工程師工作總結(jié)
- 華東師范大學(xué)《法學(xué)導(dǎo)論(Ⅰ)》2023-2024學(xué)年第一學(xué)期期末試卷
- 空壓機(jī)操作安全培訓(xùn)
- 自然辯證法論述題146題帶答案(可打印版)
- 工程施工日志60篇
- 特殊作業(yè)安全管理監(jiān)護(hù)人專項(xiàng)培訓(xùn)課件
- 期末復(fù)習(xí)試題 (試卷)-2024-2025學(xué)年四年級(jí)上冊(cè)數(shù)學(xué)人教版
- 2024年中國工業(yè)級(jí)硝酸銨市場(chǎng)調(diào)查研究報(bào)告
- 成品油出入庫管理制度
評(píng)論
0/150
提交評(píng)論