2011年計(jì)算機(jī)等考二級(jí)VB輔導(dǎo)知識(shí)技巧總結(jié)(8)

　　在上面的程序段中，我們?cè)谧兞縳lsApp中建立了一個(gè)對(duì)象，這樣Excel就對(duì)用戶可見了。當(dāng)Excel象這樣啟動(dòng)后，并不包含一個(gè)工作簿，所以必須創(chuàng)建或者執(zhí)行打開操作。這里，我們建立了一個(gè)新的工作簿，然后，就可以操作其中的信息，或者打印，或者保存，或者你任意想做的事情。

　　Private Sub Command2_Click()

　　'close the workbook

　　xlsApp.Workbooks.Close

　　'Close Excel

　　xlsApp.Quit

　　End Sub

　　上面這段代碼執(zhí)行關(guān)閉程序的功能。首先，關(guān)閉工作簿，這將出現(xiàn)一個(gè)提示對(duì)話框，詢問用戶是否想保存修改;然后，退出應(yīng)用程序。

　　Private Sub Command3_Click()

　　Set wrdApp = New Word.Application

　　With wrdApp

　　'Show Word

　　.Visible = True

　　'Create New Document

　　.Documents.Add

　　'Add text to the document

　　.ActiveDocument.Content.Text = "Hi"

　　.ActiveDocument.Content.Text = "This is a test example"

　　End With

　　End Sub

　　上面這段代碼中，在變量wrdApp中設(shè)置引用Word程序的對(duì)象。同樣，當(dāng)Word按照這種方式啟動(dòng)后，不會(huì)包含一個(gè)文檔，所以，必須執(zhí)行建立或者打開操作。這里是建立了一個(gè)新文檔，然后可以操作其中的信息了，打印、保存、發(fā)送郵件，等等...

　　但是，在Word文檔中放置文本并非容易!特別是與Excel一起工作時(shí)。為了簡(jiǎn)單地在特定的地方放置文本，需要有一個(gè)bookmark標(biāo)記。這意味著，需要事先建立一個(gè)模板。

　　Private Sub Command4_Click()

　　'Close the current document

　　wrdApp.ActiveDocument.Close

　　'Close Word

　　wrdApp.Quit

　　End Sub

　　上面這段代碼的功能是關(guān)閉應(yīng)用程序。首先，關(guān)閉當(dāng)前文檔，這時(shí)可能需要用戶保存修改。然后，退出程序。

　　Private Sub Form_Unload(Cancel As Integer)

　　'Clear the memory

　　Set xlsApp = Nothing

　　Set wrdApp = Nothing

　　End Sub

　　最后一段代碼就是關(guān)閉VB應(yīng)用程序。這是優(yōu)秀程序員編程的好習(xí)慣。

　　Well I hope this brief tutorial is helpful. It does not touch on much of what you can do to the office applications once they're open, but should give you an idea of how to get started.

　　2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等考二級(jí)VB輔導(dǎo)知識(shí)技巧匯總