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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!