VB操作Word與Excel

本文將告訴你如何使用VB代碼連接Office應(yīng)用程序，并簡(jiǎn)要接觸一下在文件中輸入數(shù)據(jù)的方法。實(shí)際上，在VB中用代碼與Word和Excel進(jìn)行會(huì)話并控制它們，是可行的。但是請(qǐng)注意，首先需要在機(jī)器上安裝office應(yīng)用程序，才能在VB代碼中存取它們的對(duì)象。
    下面就是一些例子，告訴你如何與這些程序會(huì)話，并控制它們。
    Option Explicit
    Dim xlsApp As Excel.Application
    Dim wrdApp As Word.Application
    只要相關(guān)的對(duì)象庫(kù)已經(jīng)被選擇，在應(yīng)用程序中進(jìn)行對(duì)象變量的賦值是可能的。Microsoft Excel 8.0對(duì)象庫(kù)是相對(duì)于Excel的，而 Microsoft Word 8.0 對(duì)象庫(kù)是為Word服務(wù)的。
    在VB的IDE環(huán)境中，從“工程”菜單中選擇“引用”，可以看到系統(tǒng)可用的所有庫(kù)列表。
    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
    在上面的程序段中，我們?cè)谧兞縳lsApp中建立了一個(gè)對(duì)象，這樣Excel就對(duì)用戶可見(jiàn)了。當(dāng)Excel象這樣啟動(dòng)后，并不包含一個(gè)工作簿，所以必須創(chuàng)建或者執(zhí)行打開(kāi)操作。這里，我們建立了一個(gè)新的工作簿，然后，就可以操作其中的信息，或者打印，或者保存，或者你任意想做的事情。
    Private Sub Command2_Click()
    'close the workbook
    xlsApp.Workbooks.Close
    'Close Excel
    xlsApp.Quit
    End Sub