19
10月

VB千里行-操作Word与Excel

本文将告诉你如何使用VB代码连接Office应用程序,并简要接触一下在文件中输入数据的方法。实际上,在VB中用代码与Word和Excel进行会话并控制它们,是可行的。但是请注意,首先需要在机器上安装office应用程序,才能在VB代码中存取它们的对象。

   下面就是一些例子,告诉你如何与这些程序会话,并控制它们。

Option Explicit

Dim xlsApp As Excel.Application

Dim wrdApp As Word.Application

   只要相关的对象库已经被选择,在应用程序中进行对象变量的赋值是可能的。Microsoft Excel 8.0对象库是相对于Excel的,而 Microsoft Word 8.0 对象库是为Word服务的。

   在VB的IDE环境中,从“工程”菜单中选择“引用”,可以看到系统可用的所有库列表。

Private Sub Command1_Click()

Set xlsApp = Excel.Application

With xlsApp

注释:Show Excel

.Visible = True

注释:Create a new workbook

.Workbooks.Add

注释:Put text in to the cell that is selected

.ActiveCell.Value = "Hi"

注释:Put text into A3 regardless of the selected cell

.Range("A3").Value = "This is an example of connecting to Excel"

End With

End Sub

   在上面的程序段中,我们在变量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.

   好了,简单的介绍到此结束。我希望能抛砖引玉,让你更加随意地操作Office应用程序!

引用地址:https://www.dfbys.cn/archives/11.html

  留言暂时关闭