2011年计算机等考二级VB辅导知识技巧总结(8)

　　在上面的程序段中，我们在变量xlsApp中建立了一个对象，这样Excel就对用户可见了。当Excel象这样启动后，并不包含一个工作簿，所以必须创建或者执行打开操作。这里，我们建立了一个新的工作簿，然后，就可以操作其中的信息，或者打印，或者保存，或者你任意想做的事情。

　　Private Sub Command2_Click()

　　'close the workbook

　　xlsApp.Workbooks.Close

　　'Close Excel

　　xlsApp.Quit

　　End Sub

　　上面这段代码执行关闭程序的功能。首先，关闭工作簿，这将出现一个提示对话框，询问用户是否想保存修改;然后，退出应用程序。

　　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中设置引用Word程序的对象。同样，当Word按照这种方式启动后，不会包含一个文档，所以，必须执行建立或者打开操作。这里是建立了一个新文档，然后可以操作其中的信息了，打印、保存、发送邮件，等等...

　　但是，在Word文档中放置文本并非容易!特别是与Excel一起工作时。为了简单地在特定的地方放置文本，需要有一个bookmark标记。这意味着，需要事先建立一个模板。

　　Private Sub Command4_Click()

　　'Close the current document

　　wrdApp.ActiveDocument.Close

　　'Close Word

　　wrdApp.Quit

　　End Sub

　　上面这段代码的功能是关闭应用程序。首先，关闭当前文档，这时可能需要用户保存修改。然后，退出程序。

　　Private Sub Form_Unload(Cancel As Integer)

　　'Clear the memory

　　Set xlsApp = Nothing

　　Set wrdApp = Nothing

　　End Sub

　　最后一段代码就是关闭VB应用程序。这是优秀程序员编程的好习惯。

　　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月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总