VB千里行－操作Word與Excel (轉)

VB千里行－操作Word與Excel (轉)[@more@]
　　本文將告訴你如何使用VB程式碼連線應用，並簡要接觸一下在中輸入資料的方法。實際上，在VB中用程式碼與和進行會話並控制它們，是可行的。但是請注意，首先需要在機器上office應用程式，才能在VB程式碼中存取它們的。

　　 下面就是一些例子，告訴你如何與這些程式會話，並控制它們。

Option Explicit Dim xlsApp As Excel.Application Dim wrdApp As Word.Application

　　 只要相關的物件庫已經被選擇，在應用程式中進行物件變數的賦值是可能的。 Excel 8.0物件庫是相對於Excel的，而 Microsoft Word 8.0 物件庫是為Word服務的。

　　 在VB的環境中，從“工程”選單中選擇“引用”，可以看到可用的所有庫列表。

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 ed .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應用程式！