一种不采用宏录制基于VBA模块的数据处理方法及系统技术方案

本发明专利技术公开了一种不采用宏录制基于VBA模块的数据处理方法及系统。该方法包括步骤一：赋值数据文件个数变量，赋循环变量初值为1；步骤二：判断循环变量值是否大于数据文件个数变量值，如是，结束处理，否则继续步骤三；步骤三：使用标准“打开文件”对话框打开数据文件；步骤四：选中该打开的数据文件中所选工作表的相应位置；步骤五：数据操作；步骤六：循环变量加1；步骤七：再重复步骤二；该系统包括：循环模块、数据文件打开模块、数据文件的相应位置选中模块和数据操作模块；通过上述方法与系统，本发明专利技术能实现当待处理数据文件个数任意时，打开多个任意名称数据文件，选中不同数据文件中所选工作表的不同位置，进行数据操作。

【技术实现步骤摘要】

本专利技术涉及Excel文件的数据自动化处理方法及系统领域，特别是涉及一种不采用宏录制基于VBA模块的数据处理方法及系统。
技术介绍
在Microsoft公司Office集成软件包的Excel中，进行人工数据处理。具体为通过手动对数据文件（工作簿）中工作表内数据进行复制、剪切、粘贴，利用公式与函数进行数据运算，以及数据分析。但该技术方案的缺点在于数据处理时效率低，处理周期长，且由于人为因素的出错率较高。在Excel中，基于宏录制的数据自动化处理。具体为基于宏录制的数据文件打开，及文件数据复制、剪切、粘贴、运算、分析的数据自动化处理。但该技术方案的缺点在于：（1）宏执行时，当待处理数据文件个数相异时，需要重新录制一遍宏；（2）由于录制宏的过程中，只能对给定名称数据文件的打开进行录制，故在宏执行时，无法打开任意名称数据文件；（3）无法根据任意数据文件个数，对不同数据文件中所选工作表的不同位置进行“选中”操作；（4）无法根据单元格内容不同而做不同运算。这样，基于宏录制的数据自动化处理方法：一方面，增加了工作量，降低了处理效率，另一方面，由于其局限性，又减小了适用面。
技术实现思路
为克服上述技术中存在的缺点，本专利技术提供了一种Excel中不采用宏录制基于VBA（Visual Basic for application）模块的数据处理方法及系统，作为一种数据自动化处理方法和系统，能实现当待处理数据文件个数任意时，对多个任意名称数据文件的打开，并选中不同数据文件中所选工作表的不同位置，进行数据操作。为解决上述技术问题，本专利技术采用的技术方案是：提供一种不采用宏录制基于VBA模块的数据处理方法及系统。该方法包括：步骤一：赋值数据文件个数变量，赋循环变量初值为1；步骤二：判断循环变量值是否大于数据文件个数变量的值，如是，则结束处理，否则继续步骤三；步骤三：使用标准“打开文件”对话框打开数据文件，包括：A）打开标准“打开文件”对话框，选中所需处理的一个数据文件，具体为：使用Application对象的GetOpenFilename方法打开一个标准“打开文件”对话框，并选中所需处理的一个数据文件；B）打开所选择的数据文件，具体为：使用Workbooks对象的Open方法打开所选择的数据文件；步骤四：选中步骤三中所打开的数据文件中所选工作表的相应位置，包括：A）选择打开的数据文件中的一个工作表；B）对循环变量进行运算，获得运算结果，具体为：对循环变量进行四则混合运算，获得运算结果；C）依据运算结果，选中该数据文件中所选工作表的相应位置；步骤五：数据操作，所述数据操作对步骤四中选中的数据文件中所选工作表的相应位置的内容进行复制或剪切或粘贴或数据的分析或运算操作；步骤六：循环变量加1；步骤七：重复步骤二。优选的，所述的不采用宏录制基于VBA模块的数据处理方法，当数据操作为运算操作时，依据单元格的内容，而执行相应运算的工作流程为：先判断该单元格的值是否符合条件1，符合则进行运算1，否则判断其值是否符合条件2，符合则进行运算2，否则判断其值是否符合条件3，以此类推，直至判断某单元格的值是否符合条件N，符合则进行运算N，否则进行运算N+1。优选的，所述的不采用宏录制基于VBA模块的数据处理方法，所述使用标准“打开文件”对话框打开数据文件通过：Workbooks.Open Application.GetOpenFilename或Workbooks.Open Filename:=Application.GetOpenFilename语句实现。优选的，所述的不采用宏录制基于VBA模块的数据处理方法，所述选中数据文件中所选工作表的相应位置通过以下语句实现：Sheets(\XXX\).Select，其表示选中数据文件中某一工作表，XXX指代任一工作表名；Cells(关于循环变量的运算表达式1, 关于循环变量的运算表达式2).Select，其表示选中数据文件的所选工作表中位于第“关于循环变量的运算表达式1”行，第“关于循环变量的运算表达式2”列的单元格；或Sheets(\XXX\).Select，其表示选中数据文件中某一工作表，XXX指代任一工作表名；Rows(关于循环变量的运算表达式3).Select，其表示选中数据文件的所选工作表中的第“关于循环变量的运算表达式3”行；或Sheets(\XXX\).Select，其表示选中数据文件中某一工作表，XXX指代任一工作表名；Columns(关于循环变量的运算表达式4).Select，其表示选中数据文件的所选工作表中的第“关于循环变量的运算表达式4”列；或Sheets(\XXX\).Select，其表示选中数据文件中某一工作表，XXX指代任一工作表名；Range(\某单元格\).SelectSelection.Offset(关于循环变量的运算表达式5, 关于循环变量的运算表达式6).SelectSelection.Resize(关于循环变量的运算表达式7, 关于循环变量的运算表达式8).Select，其表示在数据文件的所选工作表中以相对于选定单元格纵向偏移“关于循环变量的运算表达式5”格，横向偏移“关于循环变量的运算表达式6”格的单元格为基准，选中纵向长度为“关于循环变量的运算表达式7”格，横向长度为“关于循环变量的运算表达式8”格的区域。优选的，所述的不采用宏录制基于VBA模块的数据处理方法，当所选择的数据文件中所选工作表的相应位置为单元格时，依据该单元格的内容，而执行相应运算，其通过以下语句： （1）条件语句： If 〈条件表达式1〉 Then 〈语句序列1〉ElseIf 〈条件表达式2〉 Then〈语句序列2〉 ElseIf 〈条件表达式3〉 Then 〈语句序列3〉 …… 〈语句序列n〉 End If或（2）情况语句： Select Case 〈变量或情况表达式〉Case 〈情况表达式1〉 〈语句序列1〉Case 〈情况表达式2〉 〈语句序列2〉……Case ElseCase 〈情况表达式n〉 〈语句序列n〉 End Select实现。优选的，所述的不采用宏录制基于VBA模块的数据处理方法的系统，包括：循环模块、数据文件打开模块、数据文件的相应位置选中模块和数据操作模块；所述循环模块赋值数据文件个数变量，赋循环变量初值为1，判断循环变量值是否大于数据文件个数变量值，如是，则结束处理；否则，依次执行数据文件打开模块、数据文件的相应位置选中模块和数据操作模块的操作，然后循环变量自加1，再判断循环变量值是否大于数据文件个数变量值，如是，则结束处理；否则，依次执行数据文件打开模块、数据文件的相应位置选中模块和数据操作模块的操作，然后循环变量自加1；如此反复，直至循环变量值大于数据文件个数变量值后，结束处理；所述数据文件打开模块先通过打开标准“打开文件”对话框，再选中所需处理的数据文件并打开；所述数据文件的相应位置选中模块选择打开的数据文件中的一个工作表后，每次对关于循环变量的运算表达式进行运算，获得运算结果，依据运算结果，选中该数据文件中所选工作表的相应位置；所本文档来自技高网...

【技术保护点】
一种不采用宏录制基于VBA模块的数据处理方法，其特征在于，包括：步骤一：赋值数据文件个数变量，赋循环变量初值为1；步骤二：判断循环变量值是否大于数据文件个数变量的值，如是，则结束处理，否则继续步骤三；步骤三：使用标准“打开文件”对话框打开数据文件，包括：A）打开标准“打开文件”对话框，选中所需处理的一个数据文件，具体为：使用Application对象的GetOpenFilename方法打开一个标准“打开文件”对话框，并选中所需处理的一个数据文件；B）打开所选择的数据文件，具体为：使用Workbooks对象的Open方法打开所选择的数据文件；步骤四：选中步骤三中所打开的数据文件中所选工作表的相应位置，包括：A）选择打开的数据文件中的一个工作表；B）对循环变量进行运算，获得运算结果，具体为：对循环变量进行四则混合运算，获得运算结果；C）依据运算结果，选中该数据文件中所选工作表的相应位置；步骤五：数据操作，所述数据操作对步骤四中选中的数据文件中所选工作表的相应位置的内容进行复制或剪切或粘贴或数据的分析或运算操作；步骤六：循环变量加1；步骤七：重复步骤二。

【技术特征摘要】
1.一种不采用宏录制基于VBA模块的数据处理方法，其特征在于，包括：步骤一：赋值数据文件个数变量，赋循环变量初值为1；步骤二：判断循环变量值是否大于数据文件个数变量的值，如是，则结束处理，否则继续步骤三；步骤三：使用标准“打开文件”对话框打开数据文件，包括：A）打开标准“打开文件”对话框，选中所需处理的一个数据文件，具体为：使用Application对象的GetOpenFilename方法打开一个标准“打开文件”对话框，并选中所需处理的一个数据文件；B）打开所选择的数据文件，具体为：使用Workbooks对象的Open方法打开所选择的数据文件；步骤四：选中步骤三中所打开的数据文件中所选工作表的相应位置，包括：A）选择打开的数据文件中的一个工作表；B）对循环变量进行运算，获得运算结果，具体为：对循环变量进行四则混合运算，获得运算结果；C）依据运算结果，选中该数据文件中所选工作表的相应位置；步骤五：数据操作，所述数据操作对步骤四中选中的数据文件中所选工作表的相应位置的内容进行复制或剪切或粘贴或数据的分析或运算操作；步骤六：循环变量加1；步骤七：重复步骤二。2. 根据权利要求1所述的不采用宏录制基于VBA模块的数据处理方法，其特征在于：当数据操作为运算操作时，依据单元格的内容，而执行相应运算的工作流程为：先判断该单元格的值是否符合条件1，符合则进行运算1，否则判断其值是否符合条件2，符合则进行运算2，否则判断其值是否符合条件3，以此类推，直至判断某单元格的值是否符合条件N，符合则进行运算N，否则进行运算N+1。3. 根据权利要求1所述的不采用宏录制基于VBA模块的数据处理方法，其特征在于：所述使用标准“打开文件”对话框打开数据文件通过：Workbooks.Open Application.GetOpenFilename或Workbooks.Open Filename:=Application.GetOpenFilename语句实现。4.根据权利要求1所述的不采用宏录制基于VBA模块的数据处理方法，其特征在于：所述选中数据文件中所选工作表的相应位置通过以下语句实现：Sheets(\XXX\).Select，其表示选中数据文件中某一工作表，XXX指代任一工作表名；Cells(关于循环变量的运算表达式1, 关于循环变量的运算表达式2).Select，其表示选中数据文件的所选工作表中位于第“关于循环变量的运算表达式1”行，第“关于循环变量的运算表达式2”列的单元格；或Sheets(\XXX\).Select，其表示选中数据文件中某一工作表，XXX指代任一工作表名；Rows(关于循环变量的运算表达式3).Select，其表示选中数据文件的所选工作表中的第“关于循环变量的运算表达式3”行；或Sheets(\XXX\).Select，其表示选中数据文件中某一工作表，XXX指代任一工作表名；Columns(关于循环变量的运算表达式4)...

【专利技术属性】
技术研发人员：朱臻，
申请(专利权)人：朱臻，
类型：发明
国别省市：江苏;32