本文將告訴你如何使用VB代碼連接Office應(yīng)用程序，并簡要接觸一下在文件中輸入數(shù)據(jù)的方法。實(shí)際上，在VB中用代碼與Word和Excel進(jìn)行會話并控制它們，是可行的。但是請注意，首先需要在機(jī)器上安裝office應(yīng)用程序，才能在VB代碼中存取它們的對象。
下面就是一些例子，告訴你如何與這些程序會話，并控制它們。
Option EXPlicit
Dim xlsApp As Excel.Application
Dim wrdApp As Word.Application
只要相關(guān)的對象庫已經(jīng)被選擇，在應(yīng)用程序中進(jìn)行對象變量的賦值是可能的。Microsoft Excel 8.0對象庫是相對于Excel的，而 Microsoft Word 8.0 對象庫是為Word服務(wù)的。
在VB的IDE環(huán)境中，從“工程”菜單中選擇“引用”，可以看到系統(tǒng)可用的所有庫列表。
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就對用戶可見了。當(dāng)Excel象這樣啟動后，并不包含一個工作簿，所以必須創(chuàng)建或者執(zhí)行打開操作。這里，我們建立了一個新的工作簿，然后，就可以操作其中的信息，或者打印，或者保存，或者你任意想做的事情。
Private Sub Command2_Click()
'close the workbook
xlsApp.Workbooks.Close
'Close Excel
xlsApp.Quit
End Sub
上面這段代碼執(zhí)行關(guān)閉程序的功能。首先，關(guān)閉工作簿，這將出現(xiàn)一個提示對話框，詢問用戶是否想保存修改；然后，退出應(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程序的對象。同樣，當(dāng)Word按照這種方式啟動后，不會包含一個文檔，所以，必須執(zhí)行建立或者打開操作。這里是建立了一個新文檔，然后可以操作其中的信息了，打印、保存、發(fā)送郵件，等等...
但是，在Word文檔中放置文本并非容易！特別是與Excel一起工作時。為了簡單地在特定的地方放置文本，需要有一個bookmark標(biāo)記。這意味著，需要事先建立一個模板。
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)前文檔，這時可能需要用戶保存修改。然后，退出程序。
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.
好了，簡單的介紹到此結(jié)束。我希望能拋磚引玉，讓你更加隨意地操作Office應(yīng)用程序！
