VB操作Word与Excel

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

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