VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB千里行-操作Word与Excel
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10609, 日期:2001-04-14
导读     

   本文将告诉你如何使用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应用程序!