遥远的星星

VB操作EXCEL

2016-07-23

看了网上很多相关的博客，大都不太完全适用，在这里把一上午摸索出来的结果总结出来。形成一个更适于上手的例子。

 首先工程--à引用，选择Microsoft office EXCEL 14.0 library，相似即可，不同的office版本不同。

EXCEL的二次开发是结构化层次，分为应用对象application，工作薄workbook，工作表worksheet。所以需要首先进行相关定义。

在程序中做如下的定义：

1
2
3
4

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

一、实例化对象：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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

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

1
2
3
4
5
6
7
8
9
10

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

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

Tags: VB
← mysql数据库登录及用户管理 使用UART串口下调试CH376芯片 →