CN105867888A - 一种基于vba的锂电池循环数据管理系统及其使用方法 - Google Patents

Abstract

本发明为一种基于VBA的锂电池循环数据管理系统及其使用方法，其特征在于一种基于VBA的锂电池循环数据管理系统包括：锂电池测试设备、电池数据评价系统，所述电池数据评价系统包括两个路由表，所述电池数据评价系统包括电池数据自动拷贝路由表和连续运算路由表；锂电池按注液日期进行分批，每批数据占用“电池数据评价系统”的一个EXCEL子表，在该子表中进行区域划分以便于编程；本发明为一种基于VBA的锂电池循环数据管理系统及其使用方法，是一个锂电池数据处理系统，时间简单，可以直接得出结果，不需要工作人员长时间对其进行操作，使研发人员将时间和精力用在电解液研发上面。本发明系统的操作页面简单实用，主要设置两个按钮，使用时简单方便。

Description

一种基于 VBA 的锂电池循环数据管理系统及其使用方法

技术领域

本发明涉及一种用VBA在EXCEL表里进行编程，针对武汉兰电电池测试设备开发的电池数据管理系统。

背景技术

锂电行业发展迅速，研发是每个公司生存和发展的基石。电解液的研发需要将不同品种的电解液注进电池进行实际测试，从而筛选出最优的配方。实验室的锂电池循环24小时不停机，在线电池数量基本维持在200块左右，即每天需要将200个通道的数据导出来进行衰减计算， 最后形成测试报告。数据处理工作枯燥，繁琐，导数据时反复的拷贝粘贴很容易出错。锂电池数据处理占用研发人员大量宝贵的时间，浪费人力物力。

发明内容

根据以上技术问题，本发明提出一种基于VBA的锂电池循环数据管理系统及其使用方法，其特征在于一种基于VBA的锂电池循环数据管理系统包括：锂电池测试设备、电池数据评价系统，所述电池数据评价系统包括两个路由表，所述电池数据评价系统包括电池数据自动拷贝路由表和连续运算路由表；锂电池按注液日期进行分批，每批数据占用“电池数据评价系统”的一个EXCEL子表，在该子表中进行区域划分以便于编程；

所述锂电池测试设备是针对武汉兰电测试设备，该设备的上位机软件将各通道数据导出到EXCEL文件中；

所述“电池数据评价系统”的用户界面，建立两个路由表，即“电池数据自动拷贝路由表”和“连续运算路由表”。

一种基于VBA的锂电池循环数据管理系统使用方法，其特征在于包括以下步骤：

（1）、建立“电池数据评价系统”的EXCEL文件

在该EXCEL表中建立“首页”子表，该子表主要设置两个按钮，对应两个程序，一个是将“Table_EachSheet”表里边每一页的数据自动拷贝到对应的数据表里边，一个是连续计算运行程序，即一批接着一批数据执行容量衰减计算、平台衰减计算、横向排列汇总等子程序；

“连续拷贝”程序路由表，第1列是电池序号，第2列是批号，第3列是数据拷贝的起点，第4列是“Table_EachSheet”的页面，这四列的内容分别作为外部参数送到程序当中，例如某一行的路由解释为，将“Table_EachSheet”里“_008_1”的电池数据拷贝到EXCEL文件“2013电池数据”的“第32批2013年7月26日-2”的表单中，拷贝的起始位置是“A85”单元，这是第13块电池，执行完第一行路径后，执行下一行路径，路由表需要日常维护，根据电池通道的变化，循环的接续等情况，必须作出相应的更改。连续拷贝按钮的程序运用了While Not(IsEmpty( ))语句，在其内循环语句中调用“数据拷贝”子程序，

“连续运算”程序路由表，就一列内容即各个批次子表的名称，程序读取第一列内容，定位到相应EXCEL子表，执行衰减计算程序，运完毕后套转到“首页”子表读取路由表第二行内容，跳转到相应子表执行计算程序，如此循环，直到路由表为空为止，程序需要在While Not(IsEmpty( ))循环语句中调用各个衰减计算子程序；

（2）、设计各批次测试数据的存储格式

锂电池按注液日期进行分批，每批数据占用“电池数据评价系统”的一个EXCEL子表，在该子表中进行区域划分，将详细循环数据、每10次容量衰减数据、每10次平台衰减数据等固定特定区域以便于编程，各批次子表的区域划分一致，不能改变，如详细循环数据的区域为80行以下的表格中，根据考察指标的多少，确定每块电池数据占的列数，这里占5列，即1-5列是第一块电池数据，6-10列是第二块电池数据，以此类推；各个电池的每10次数据筛选出来再进行横向排列，系统将容量数据、和平台数据分开进行比较，这里将10次容量数据存储在20行～79行之间，19列之后的区域。

所述锂电池测试设备是针对武汉兰电测试设备，该设备的上位机软件将各通道数据导出到EXCEL文件中，包括以下步骤：

（1）．锂电池测试设备在导出数据时，需要选择导出的数据条目，选择“序号”、“放电容量”、“效率”、“平台时间”等作为性能评价指标；

（2）．锂电池测试设备的“数据导出/汇总”页面内将在线通道的数据全部导出到一个EXCEL文件，不同的通道占用不同的表单，该EXCEL文件名字固定为默认值“Table_EachSheet”，各通道数据分别占用不同的子表。

所述电池数据评价系统的用户界面内建立有两个路由表，即“电池数据自动拷贝路由表”和“连续运算路由表”，其具体建立包括以下步骤：

（1）．每个路由表对应一个功能按钮，即“连续拷贝”和“连续运算”按钮，“连续拷贝”是将“Table_EachSheet”表里边每一页的数据自动拷贝到对应的数据表里边，“连续运算”是一批接着一批执行数据容量衰减计算、横向排列汇总等程序；

（2）．所述“连续拷贝”程序路由表，第1列是电池序号，第2列是批号，第3列是数据拷贝的起点，第4列是“Table_EachSheet”的页面，这四列的内容分别作为外部参数送到程序当中，例如某一行的路由解释为，将“Table_EachSheet”里“_008_1”的电池数据拷贝到EXCEL文件“2013电池数据”的“第32批2013年7月26日-2”的表单中，拷贝的起始位置是“A85”单元，这是第13块电池；执行完第一行路径后，执行下一行路径，路由表需要日常维护，根据电池通道的变化，循环的接续等情况，必须作出相应的更改，连续拷贝按钮的程序运用了While Not(IsEmpty( ))语句，在其内循环语句中调用“数据拷贝”子程序；

（3）．“连续运算”程序路由表，就一列内容即各个批次子表的名称，程序读取第一列内容，定位到相应EXCEL子表，执行衰减计算程序，运完毕后跳转到“首页”子表读取路由表第二行内容，跳转到相应子表执行计算程序，如此循环，直到路由表为空为止。程序需要在While Not(IsEmpty( ))循环语句中调用各个衰减计算子程序。

锂电池按注液日期进行分批，每批数据占用“电池数据评价系统”的一个EXCEL子表，在该子表中进行区域划分以便于编程，包括以下步骤：

（1）．各批次子表的区域划分一致，不能改变，如详细循环数据的区域为80行以下的表格中，根据考察指标的多少，确定每块电池数据占的列数，这里占5列，即1-5列是第一块电池数据，6-10列是第二块电池数据，以此类推；

（2）．各个电池的每10次数据筛选出来再进行横向排列，系统将容量数据、和平台数据分开进行比较，这里将10次容量数据存储在20行～79行之间，19列之后的区域。

本发明的有益效果为：本发明为一种基于VBA的锂电池循环数据管理系统及其使用方法，是一个锂电池数据处理系统，时间简单，可以直接得出结果，不需要工作人员长时间对其进行操作，使研发人员将时间和精力用在电解液研发上面。本发明系统的操作页面简单实用，主要设置两个按钮，使用时简单方便。

附图说明

图1是本发明提供的连续拷贝流程图；

图2是本发明提供的用户主页面；

图3是本发明提供的“Table_EachSheet”表；

图4是本发明提供的循环数据表；

图5是本发明提供的容量衰减计算流程图。

具体实施方式

实施例1

参见图1、图2，系统的操作页面简单实用，主要设置两个按钮，对应两个程序，一个是将“Table_EachSheet”表里每一页的数据自动拷贝到对应的数据表里边。一个是连续计算运行程序，即一批接着一批数据执行容量衰减计算、平台衰减计算、横向排列汇总等子程序，连续拷贝程序的路由表格式如图2所示，1-4列是“连续拷贝”程序路由表，第1列是电池序号，第2列是批号，第3列是数据拷贝的起点，第4列是“Table_EachSheet”的页面，那么第一行的路由解释为，将“Table_EachSheet”里“_008_1”的电池数据拷贝到EXCEL文件“2013电池数据”的“第32批2013年7月26日-2”的表单中，拷贝的起始位置是“A85”单元，这是第13块电池。执行完第一行路径后，执行下一行路径。路由表需要日常维护，根据电池通道的变化，循环的接续等情况，必须作出相应的更改。连续拷贝按钮的程序运用了While Not(IsEmpty( ))语句，主要程序如下：

n = 5

G=“2013年电池数据.xls”

C=“Table_EachSheet.xls”

While Not (IsEmpty(Cells(n, 2)))

a = Cells(n, 2)

b = Cells(n, 3)

d = Cells(n, 4)

Windows(C).Activate

Sheets(d).Select

Call 兰电复制

……

n = n + 1

Windows(G).Activate

Sheets("首页").Select

Wend

……

End Sub

在程序里边用While Not (IsEmpty(Cells(n, 2))) 判断数据表里边第2列，第5行起的单元格内容是否为空？不为空则一直循环执行拷贝程序。定义变量a，b，c分别为“电池数据表的名称“、“循环数据拷贝起点的位置”、“Table_EachSheet.xls页面名称”，程序先跳转到Table_EachSheet.xls的“C”表单，执行子程序“兰电复制”，即复制要拷贝的数据，然后跳转到2013年电池数据.xls的“a”表单，选择“b”单元格执行粘贴功能，将参数n的值加1，重新返回While Not (IsEmpty(Cells(n, 2)))语句进行判断继而执行相应操作。

实施例2

参见图3，兰电软件导出数据的“Table_EachSheet”，图中页面“_002_1”的数据即为2#机柜通道1的数据，页面“_002_2” 即为2#机柜通道2的数据”。

实施例3

参见图4，以32批电池数据为例，对比两种电液性能，每种电液装6块电池，共12块电池进行循环测试。循环数据存储在80行以下的表格中，根据考察指标的多少，确定每块电池数据占的列数，这里占5列，即1-5列是第一块电池数据，6-10列是第二块电池数据，以此类推。将每个通道的数据从“Table_EachSheet”里边拷贝到数据表的指定位置，然后计算“容量衰减”。但这种格式不便于横向比较各个块电池的循环情况，因而将各个电池的每10次数据筛选出来再进行排列，系统将容量数据、和平台数据分开进行比较，为了进行编程，将数据区域也进行固定，这里不再详细介绍。

实施例4

参见图5，“连续运算”程序也需要设计路由表，图中第6列第5行起是路由表，程序根据路由表的内容跳转到相应的页面内，执行容量衰减计算、横向排列汇总等子程序，执行完后跳转到下一路经，直到路径表为空。各个批次之间的跳转和“连续拷贝”程序类似，“容量衰减”与“平台衰减”子程序设计相同，因而只以 “容量衰减”子程序为例进行说明，程序主要用嵌套循环实现了某一批次各个电池每次循环的容量衰减计算，部分程序如下：

y = 0

z = 56

q = 2

While Not (IsEmpty(Cells(z, 2)))

z = z + 1

x = 2

n = 83

While Not (IsEmpty(Cells(n, q)))

x = x + 1

……

Cells(n, y + 4) = (Cells(83, y + 2) - Cells(n, y + 2)) / Cells(83, y + 2)

……

n = n + 1

Wend

y = y + 5

q = q + 5

Wend

程序首先判断Cells(z, 2)是否为空，即判断电池序号是否为空，不为空则执行内循环程序。例如这一批次有12块电池，则执行外循环程序12次。参数m初始值为85，在内循环里递增，步进值为1，参数q初始值为2，在外循环里递增，步进值为5，因为每个电池数据在电池数据表里占5列。内循环计算各个电池每次循环放电容量的衰减值，首先判断Cells(m, q)单元格是否为空，不为空值则进行衰减计算。

以上所述仅是本发明的优选实施方式，应当指出的是，对于本技术领域的普通技术人员来说，在不脱离本发明原理的前提下，还可以做出若干改进，这些改进也应视为本发明的保护范围。

Claims (5)

1.一种基于VBA的锂电池循环数据管理系统及其使用方法，其特征在于一种基于VBA的锂电池循环数据管理系统包括：锂电池测试设备、电池数据评价系统，所述电池数据评价系统包括两个路由表，所述电池数据评价系统包括电池数据自动拷贝路由表和连续运算路由表；锂电池按注液日期进行分批，每批数据占用“电池数据评价系统”的一个EXCEL子表，在该子表中进行区域划分以便于编程；

所述锂电池测试设备是针对武汉兰电测试设备，该设备的上位机软件将各通道数据导出到EXCEL文件中；

所述“电池数据评价系统”的用户界面，建立两个路由表，即“电池数据自动拷贝路由表”和“连续运算路由表”。

2.一种基于VBA的锂电池循环数据管理系统使用方法，其特征在于包括以下步骤：

（1）、建立“电池数据评价系统”的EXCEL文件

在该EXCEL表中建立“首页”子表，该子表主要设置两个按钮，对应两个程序，一个是将“Table_EachSheet”表里边每一页的数据自动拷贝到对应的数据表里边，一个是连续计算运行程序，即一批接着一批数据执行容量衰减计算、平台衰减计算、横向排列汇总等子程序；

“连续拷贝”程序路由表，第1列是电池序号，第2列是批号，第3列是数据拷贝的起点，第4列是“Table_EachSheet”的页面，这四列的内容分别作为外部参数送到程序当中，例如某一行的路由解释为，将“Table_EachSheet”里“_008_1”的电池数据拷贝到EXCEL文件“2013电池数据”的“第32批2013年7月26日-2”的表单中，拷贝的起始位置是“A85”单元，这是第13块电池，执行完第一行路径后，执行下一行路径，路由表需要日常维护，根据电池通道的变化，循环的接续等情况，必须作出相应的更改，连续拷贝按钮的程序运用了While Not(IsEmpty( ))语句，在其内循环语句中调用“数据拷贝”子程序，

“连续运算”程序路由表，就一列内容即各个批次子表的名称，程序读取第一列内容，定位到相应EXCEL子表，执行衰减计算程序，运完毕后套转到“首页”子表读取路由表第二行内容，跳转到相应子表执行计算程序，如此循环，直到路由表为空为止，程序需要在While Not(IsEmpty( ))循环语句中调用各个衰减计算子程序；

（2）、设计各批次测试数据的存储格式

锂电池按注液日期进行分批，每批数据占用“电池数据评价系统”的一个EXCEL子表，在该子表中进行区域划分，将详细循环数据、每10次容量衰减数据、每10次平台衰减数据等固定特定区域以便于编程，各批次子表的区域划分一致，不能改变，如详细循环数据的区域为80行以下的表格中，根据考察指标的多少，确定每块电池数据占的列数，这里占5列，即1-5列是第一块电池数据，6-10列是第二块电池数据，以此类推；各个电池的每10次数据筛选出来再进行横向排列，系统将容量数据、和平台数据分开进行比较，这里将10次容量数据存储在20行～79行之间，19列之后的区域。

3.根据权利要求1所述的一种基于VBA的锂电池循环数据管理系统及其使用方法，其特征在于所述锂电池测试设备是针对武汉兰电测试设备，该设备的上位机软件将各通道数据导出到EXCEL文件中，包括以下步骤：

（1）．锂电池测试设备在导出数据时，需要选择导出的数据条目，选择“序号”、“放电容量”、“效率”、“平台时间”等作为性能评价指标；

（2）．锂电池测试设备的“数据导出/汇总”页面内将在线通道的数据全部导出到一个EXCEL文件，不同的通道占用不同的表单，该EXCEL文件名字固定为默认值“Table_EachSheet”，各通道数据分别占用不同的子表。

4.根据权利要求1所述的一种基于VBA的锂电池循环数据管理系统及其使用方法，其特征在于所述电池数据评价系统的用户界面内建立有两个路由表，即“电池数据自动拷贝路由表”和“连续运算路由表”，其具体建立包括以下步骤：

（1）．每个路由表对应一个功能按钮，即“连续拷贝”和“连续运算”按钮，“连续拷贝”是将“Table_EachSheet”表里边每一页的数据自动拷贝到对应的数据表里边，“连续运算”是一批接着一批执行数据容量衰减计算、横向排列汇总等程序；

（2）．所述“连续拷贝”程序路由表，第1列是电池序号，第2列是批号，第3列是数据拷贝的起点，第4列是“Table_EachSheet”的页面，这四列的内容分别作为外部参数送到程序当中，例如某一行的路由解释为，将“Table_EachSheet”里“_008_1”的电池数据拷贝到EXCEL文件“2013电池数据”的“第32批2013年7月26日-2”的表单中，拷贝的起始位置是“A85”单元，这是第13块电池；执行完第一行路径后，执行下一行路径，路由表需要日常维护，根据电池通道的变化，循环的接续等情况，必须作出相应的更改，连续拷贝按钮的程序运用了While Not(IsEmpty( ))语句，在其内循环语句中调用“数据拷贝”子程序；

（3）．“连续运算”程序路由表，就一列内容即各个批次子表的名称，程序读取第一列内容，定位到相应EXCEL子表，执行衰减计算程序，运完毕后跳转到“首页”子表读取路由表第二行内容，跳转到相应子表执行计算程序，如此循环，直到路由表为空为止，程序需要在While Not(IsEmpty( ))循环语句中调用各个衰减计算子程序。

5.根据权利要求1所述的一种基于VBA的锂电池循环数据管理系统及其使用方法，其特征在于锂电池按注液日期进行分批，每批数据占用“电池数据评价系统”的一个EXCEL子表，在该子表中进行区域划分以便于编程，包括以下步骤：

（1）．各批次子表的区域划分一致，不能改变，如详细循环数据的区域为80行以下的表格中，根据考察指标的多少，确定每块电池数据占的列数，这里占5列，即1-5列是第一块电池数据，6-10列是第二块电池数据，以此类推；

（2）．各个电池的每10次数据筛选出来再进行横向排列，系统将容量数据、和平台数据分开进行比较，这里将10次容量数据存储在20行～79行之间，19列之后的区域。