在VB（Visual Basic）程序中调用Excel，通常需要遵循以下步骤：
引用Excel对象库
打开VB编程环境。
在“工程”菜单中选择“引用”项目。
在“引用”对话框中选择“Microsoft Excel XX.X Object Library”。
创建Excel对象
使用`CreateObject`函数或`New`关键字创建Excel对象。例如，创建一个Excel应用程序对象：
```vb
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
```
或者
```vb
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
```
打开Excel文件
使用Excel对象的`Workbooks.Open`方法打开Excel文件。例如：
```vb
Dim xlWorkbook As Object
Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\file.xlsx")
```
获取或操作Excel对象
使用Excel对象的属性和方法来获取或操作Excel文件中的各种对象，例如工作表、单元格、图表等。例如，获取第一个工作表：
```vb
Dim xlWorksheet As Object
Set xlWorksheet = xlWorkbook.Worksheets(1)
```
读取或写入单元格的值：
```vb
Dim cellValue As Variant
cellValue = xlWorksheet.Cells(row, column).Value
```
关闭Excel文件
完成操作后，可以关闭Excel文件：
```vb
xlWorkbook.Close SaveChanges:=False
```
退出Excel应用程序
最后，可以退出Excel应用程序：
```vb
xlApp.Quit
```
```vb
Dim xlApp As Excel.Application
Dim xlWorkbook As Excel.Workbook
Dim xlWorksheet As Excel.Worksheet
Dim cellValue As Variant
' 创建Excel应用程序对象
Set xlApp = New Excel.Application
' 打开Excel文件
Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\file.xlsx")
' 获取第一个工作表
Set xlWorksheet = xlWorkbook.Worksheets(1)
' 读取单元格的值
cellValue = xlWorksheet.Cells(1, 1).Value
' 输出单元格的值
MsgBox "单元格A1的值是: " & cellValue
' 关闭工作簿，不保存更改
xlWorkbook.Close SaveChanges:=False
' 退出Excel应用程序
xlApp.Quit
' 释放对象
Set xlWorkbook = Nothing
Set xlWorksheet = Nothing
Set xlApp = Nothing
```
请注意，根据你的Excel版本，引用的对象库名称中的版本号可能会有所不同（例如，Excel 2003可能是"Microsoft Excel 11.0 Object Library"，而Excel 2007可能是"Microsoft Excel 12.0 Object Library"）。确保选择正确的版本号以匹配你的Excel安装。
