VB读写EXCEL表：
　　VB本身的自动化功能可以读写EXCEL表，其方法如下：
　　1、在工程中引用Microsoft Excel类型库：
　　从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9。0 Object Library（EXCEL2000），然后选择"确定"。
  表示在工程中要引用EXCEL类型库。
　　2、在通用对象的声明过程中定义EXCEL对象：
Dim xlApp As Excel。Application
Dim xlBook As Excel。WorkBook
Dim xlSheet As Excel。
  Worksheet
　　3、在程序中操作EXCEL表常用命令：
Set xlApp = CreateObject("Excel。Application") '创建EXCEL对象
Set xlBook = xlApp。Workbooks。
  Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp。Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook。Worksheets("表名") '设置活动工作表
xlSheet。
  Cells(row, col) =值 '给单元格（row,col）赋值
xlSheet。PrintOut '打印工作表
xlBook。Close (True) '关闭工作簿
xlApp。Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook。
  RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
xlBook。RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
　　4、在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。
  但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。
下面是一个例子，你琢磨一下：
在VB中，建立一个FORM，在其上放置两个命令按钮，将Ｃommand1的Caption属性改为EXCEL，Command2的Caption属性改为End。
  然后在其中输入如下程序：
Dim xlApp As Excel。Application '定义EXCEL类
Dim xlBook As Excel。Workbook '定义工件簿类
Dim xlsheet As Excel。Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
　If Dir("D:\temp\excel。
  bz") = "" Then '判断EXCEL是否打开
　　Set xlApp = CreateObject("Excel。Application") '创建EXCEL应用类
　　xlApp。Visible = True '设置EXCEL可见
　　Set xlBook = xlApp。
  Workbooks。Open("D:\temp\bb。xls") '打开EXCEL工作簿
　　Set xlsheet = xlBook。Worksheets(1) '打开EXCEL工作表
　　xlsheet。Activate '激活工作表
　　xlsheet。
  Cells(1, 1) = "abc" '给单元格1行驶列赋值
　　xlBook。RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
　Else
　　MsgBox ("EXCEL已打开")
　End If
End Sub
Private Sub Command2_Click()
　If Dir("D:\temp\excel。
  bz") <> "" Then '由VB关闭EXCEL
　　xlBook。RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
　　xlBook。Close (True) '关闭EXCEL工作簿　
　　xlApp。
  Quit '关闭EXCEL
　End If
　Set xlApp = Nothing '释放EXCEL对象
　End
End Sub
如果还有不明白的地方，可给我留言。