一种循环伏安数据的自动分离方法技术

本发明专利技术涉及Excel VBA模块实现数据的自动化处理。本发明专利技术采用Excel VBA模块编写代码，实现了循环伏安数据自动分离功能。不仅大大降低了编程的复杂性，提高了程序的可读性和通用性，而且明显提高了工作效率和准确性，具有重要的应用价值。

【技术实现步骤摘要】

本专利技术涉及Excel VBA模块实现数据的自动化处理，属于计算机软件及语言在自然科学中的应用领域。
技术介绍
无论是在自然科学还是在社会科学的研究中，常常需要对各种数据进行处理，大量、重复的工作比较繁琐，比如打开文档、分析数据、导出处理结果、关闭文档等。此类重复性的工作的自动化处理可以利用编程软件或软件的某些功能来实现，比如Matlab、VC、VB、VF等。对于初学者，利用这些软件需要花费更多精力学习，而且很多编程软件缺乏强大的函数库，实现数据处理时需要大量的复杂编程工作，因此需要一种能简单、快速处理重复工作的编程工具，能够在较短的时间完成代码编写和调试。所周知，Excel不仅具有灵活方便的图像文字显示功能，而且Excel本身包含了大量的函数，对数据都具有强大的处理能力，但这些函数只适用单时窗，滚动时窗需要人工配合完成，如能实现自动化处理，将大大提高工作的效率。综合利用VBA自动化语言和Excel函数，可以很好的完成代码编写和数据处理工作，其思路是在Excel中编写一段程序，作为宏插入到Excel中，就能方便实现数据处理。
技术实现思路
本专利技术针对循环伏安数据处理效率低，需要安装大软件来完成处理的状况，采用Excel VBA模块编写了循环伏安数据自动化处理程序。在Excel函数的基础之上，通过采用VBA自动化语言，实现了材料循环伏安数据自动分离功能。与传统手工处理相比，本专利技术仅需3~15s便完成了数据处理，将处理效率提高了 2~3个数量级，明显提高了工作效率和准确性；与大型软件处理相比，在不丧失准确性和效率的前提下，无需安装高耗内存，简便快捷的实现了循环伏安数据的自动分离。本专利技术的特点在于:通过采用Excel VBA模块编写了循环伏安数据自动化处理程序，采用更为简便的方法，实现了循环伏安数据的自动化处理，并将处理的效率提高了 2~3个数量级。本专利技术具有以下四个特点: (1)特征在于采用Max函数和Countif函数判定文件的数据结构； (2)其特征在于采用Index函数实现数据的分离； (3)通过打开启用宏的Excel文件，实现数据的自动化处理，处理完成后保存处理结果并自动关闭Excel文件； (4)采用ExcelVBA模块编写了循环伏安数据的自动化处理程序，实现了数据的自动化处理，并将处理的效率提高了 2~3个数量级。【附图说明】图1循环伏安数据自动处理流程图。图2 Al95Cu5合金在0.05mol/L甲酸溶液中的循环伏安原始数据。图3 Al95Cu15合金循环伏安数据的分离结果。图4。合金在0.05mol/L甲酸溶液中的循环伏安原始数据。图5 AlgtjCu:。合金循环伏安数据的分离结果。图6 AlS5Cu15合金在0.05mol/L甲酸溶液中的循环伏安原始数据。图7 AlS5Cu15合金循环伏安数据的分离结果。图8 AlSQCu2。合金在0.05mol/L甲酸溶液中的循环伏安原始数据。图9 AlS(]Cu2。合金循环伏安数据的分离结果。图10原始数据及处理结果文件的概图。图11 VBA程序处理与手动处理的效率对比。【具体实施方式】1.循环伏安数据的处理流程。本专利技术采用VBA模块编写代码，实现循环伏安数据的自动化处理，数据处理流程如图1所示。具体的实现过程如下: (1)数据导入:利用Open命令将原始数据导入Excel文件； (2)预处理:采用Max函数和Countif函数判定文件的数据结构，删除序号和多余的文本信息； (3)数据分离:采用Index函数实现每次循环电流和电位数据的分离； (4)数据合并:将分组的电流和电位数据进行合并； (5)结果存储:将最终的结果保存为csv文件。本专利技术是通过以下措施来实现的: (1)代码编写通过ExcelVBA录制宏、修改、调试、保存代码来实现的； (2)代码的功能是通过ExcelVBA调用宏来实现。2循环伏安数据处理程序代码。①宏的调用。Sub auto_open () Call Converter ’ 调用宏 End Sub ο②代码。Dim total, group, number As Long Dim rowsyuan As StringSub Converter () J Converter 宏Applicat1n.DisplayAlerts = False ChDir 〃C: \Users\Administrator\Desktop\ 单列转换成多列 VBA 代码” Workbooks.0penText Filename:= _"C:\Users\Administrator\Desktop\单列转换成多列VBA代码\原始数据.Txt"， Origin:=936, _StartRow:=l, DataType:=xlDelimited， TextQualifier:=xlDoubleQuote,ConsecutiveDelimiter:=False， Tab:=True， Semicolon:=False，Comma:=False _ ，Space:=False, Other:=False, Fieldlnfo:=Array(1，1)，_Trai1ingMinusNumbers:=True Rows ("1:1").Select Select1n.Delete Shift:=xlUp JActiveffindow.ScrollColumn = 2 Range("HI").Select ActiveCell.FormulaRlCl = 〃=MAX(C)" number = Sheets (〃 原始数据〃)..Value ’ Range(〃G1〃).Value = number Range ("H2").Select ActiveCell.FormulaRlCl = "=C0UNTIF(C，〃〃>0〃〃)/RC" group = Sheets ("原始数据")..Value ’ Range(〃G2〃).Value = group Range ("H3").Select ActiveCell.FormulaRlCl = 〃=RC*(RC+l)〃 total = Sheets (〃 原始数据〃)..Value ’ Range("G3").Value = total Range("Dl").Select ActiveCell.FormulaRlCl = 〃=IF(RC=////////，0，1)" Range ("Dl").Select Select1n.AutoFill Destinat1n:=Range(Cells(1, 4)，Cells(total, 4)) Range (Cells (1，4)，Cells (total, 4)).Select Columns("D:D").Select Activefforkbook.Worksheets ("原始数据").Sort.SortFields.ClearActivefforkbook.Worksheets 原始数据").Sort.SortFields.AddKey:=Range("Dl")， 本文档来自技高网...

【技术保护点】
一种利用Excel VBA模块实现循环伏安数据的自动化处理，其特征在于采用VBA编码实现了循环伏安数据自动分离功能。

【技术特征摘要】

【专利技术属性】
技术研发人员：贾鹏，耿浩然，王明旭，李明洋，丁奕钧，张顺，
申请(专利权)人：济南大学，
类型：发明
国别省市：山东;37