VB操作EXCEL

 
     看了网上很多相关的博客，大都不太完全适用，在这里把一上午摸索出来的结果总结出来。形成一个更适于上手的例子。
     首先工程--à引用，选择Microsoft office EXCEL 14.0 library，相似即可，不同的office版本不同。
EXCEL的二次开发是结构化层次，分为应用对象application，工作薄workbook，工作表worksheet。所以需要首先进行相关定义。
在程序中做如下的定义：
   

Dim  xlapp As Excel.Application
Dim xlwork As Excel.Workbook
Dim xlsheet As Excel.Worksheet</span>

 
一、实例化对象：

Set xlapp = New Excel.Application
Set xlwork = xlapp.Workbooks.Open(path)  //打开工作薄路径
Set xlsheet = xlapp.Worksheets(1)              //激活工作表
xlsheet.Range("A1").Select                  //选择参考点

 
 

xlapp.ActiveCell.Offset(i,j).Value   //读取相对参考点第i行，第j列的单元格数据。
xlapp.Workbooks.Close            //关闭工作薄
xlsheet.Cells(i,ic) = ContB(ib)       //给相对A1第i行，第ic列单元格赋值为contb（ib）
xlapp.Quit

 
二、创建新的工作薄并写入：
  

Set xlwork = xlapp.Workbooks.Add  //创建新的工作薄（前提是没有销毁之前实例化的excel.application对象）
Set xlsheet = xlwork.Worksheets(1)
xlsheet.Name = "sheet1"           //给工作表重命名
xlsheet.Range("A1").Select
xlsheet.Cells(i, ic) = ContB(ib)
xlsheet.SaveAs(db)               //把工作薄另存为db路径中
xlapp.Workbooks.Close
xlapp.Quit

 
 
基本的操作明白了，其余的功能可以到网上去找，一抓一大把。