1.一種不采用宏錄制基于VBA模塊的數(shù)據(jù)處理方法,其特征在于,包括:
步驟一:賦值數(shù)據(jù)文件個數(shù)變量,賦循環(huán)變量初值為1;
步驟二:判斷循環(huán)變量值是否大于數(shù)據(jù)文件個數(shù)變量的值,如是,則結束處理,否則繼續(xù)步驟三;
步驟三:使用標準“打開文件”對話框打開數(shù)據(jù)文件,包括:A)打開標準“打開文件”對話框,選中所需處理的一個數(shù)據(jù)文件,具體為:使用Application對象的GetOpenFilename方法打開一個標準“打開文件”對話框,并選中所需處理的一個數(shù)據(jù)文件;B)打開所選擇的數(shù)據(jù)文件,具體為:使用Workbooks對象的Open方法打開所選擇的數(shù)據(jù)文件;
步驟四:選中步驟三中所打開的數(shù)據(jù)文件中所選工作表的相應位置,包括:A)選擇打開的數(shù)據(jù)文件中的一個工作表;B)對循環(huán)變量進行運算,獲得運算結果,具體為:對循環(huán)變量進行四則混合運算,獲得運算結果;C)依據(jù)運算結果,選中該數(shù)據(jù)文件中所選工作表的相應位置;
步驟五:數(shù)據(jù)操作,所述數(shù)據(jù)操作對步驟四中選中的數(shù)據(jù)文件中所選工作表的相應位置的內(nèi)容進行復制或剪切或粘貼或數(shù)據(jù)的分析或運算操作;
步驟六:循環(huán)變量加1;
步驟七:重復步驟二。
2. 根據(jù)權利要求1所述的不采用宏錄制基于VBA模塊的數(shù)據(jù)處理方法,其特征在于:當數(shù)據(jù)操作為運算操作時,依據(jù)單元格的內(nèi)容,而執(zhí)行相應運算的工作流程為:先判斷該單元格的值是否符合條件1,符合則進行運算1,否則判斷其值是否符合條件2,符合則進行運算2,否則判斷其值是否符合條件3,以此類推,直至判斷某單元格的值是否符合條件N,符合則進行運算N,否則進行運算N+1。
3. 根據(jù)權利要求1所述的不采用宏錄制基于VBA模塊的數(shù)據(jù)處理方法,其特征在于:所述使用標準“打開文件”對話框打開數(shù)據(jù)文件通過:Workbooks.Open Application.GetOpenFilename
或Workbooks.Open Filename:=Application.GetOpenFilename語句實現(xiàn)。
4.根據(jù)權利要求1所述的不采用宏錄制基于VBA模塊的數(shù)據(jù)處理方法,其特征在于:所述選中數(shù)據(jù)文件中所選工作表的相應位置通過以下語句實現(xiàn):
Sheets("XXX").Select,其表示選中數(shù)據(jù)文件中某一工作表,XXX指代任一工作表名;
Cells(關于循環(huán)變量的運算表達式1, 關于循環(huán)變量的運算表達式2).Select,其表示選中數(shù)據(jù)文件的所選工作表中位于第“關于循環(huán)變量的運算表達式1”行,第“關于循環(huán)變量的運算表達式2”列的單元格;
或Sheets("XXX").Select,其表示選中數(shù)據(jù)文件中某一工作表,XXX指代任一工作表名;
Rows(關于循環(huán)變量的運算表達式3).Select,其表示選中數(shù)據(jù)文件的所選工作表中的第“關于循環(huán)變量的運算表達式3”行;
或Sheets("XXX").Select,其表示選中數(shù)據(jù)文件中某一工作表,XXX指代任一工作表名;
Columns(關于循環(huán)變量的運算表達式4).Select,其表示選中數(shù)據(jù)文件的所選工作表中的第“關于循環(huán)變量的運算表達式4”列;
或Sheets("XXX").Select,其表示選中數(shù)據(jù)文件中某一工作表,XXX指代任一工作表名;
Range("某單元格").Select
Selection.Offset(關于循環(huán)變量的運算表達式5, 關于循環(huán)變量的運算表達式6).Select
Selection.Resize(關于循環(huán)變量的運算表達式7, 關于循環(huán)變量的運算表達式8).Select,
其表示在數(shù)據(jù)文件的所選工作表中以相對于選定單元格縱向偏移“關于循環(huán)變量的運算表達式5”格,橫向偏移“關于循環(huán)變量的運算表達式6”格的單元格為基準,選中縱向長度為“關于循環(huán)變量的運算表達式7”格,橫向長度為“關于循環(huán)變量的運算表達式8”格的區(qū)域。
5.根據(jù)權利要求1所述的不采用宏錄制基于VBA模塊的數(shù)據(jù)處理方法,其特征在于:當所選擇的數(shù)據(jù)文件中所選工作表的相應位置為單元格時,依據(jù)該單元格的內(nèi)容,而執(zhí)行相應運算,其通過以下語句:
(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 Else
Case 〈情況表達式n〉
〈語句序列n〉
End Select
實現(xiàn)。
6.根據(jù)權利要求1或2或3或4或5所述的不采用宏錄制基于VBA模塊的數(shù)據(jù)處理方法的系統(tǒng),其特征在于,包括:循環(huán)模塊、數(shù)據(jù)文件打開模塊、數(shù)據(jù)文件的相應位置選中模塊和數(shù)據(jù)操作模塊;所述循環(huán)模塊賦值數(shù)據(jù)文件個數(shù)變量,賦循環(huán)變量初值為1,判斷循環(huán)變量值是否大于數(shù)據(jù)文件個數(shù)變量值,如是,則結束處理;否則,依次執(zhí)行數(shù)據(jù)文件打開模塊、數(shù)據(jù)文件的相應位置選中模塊和數(shù)據(jù)操作模塊的操作,然后循環(huán)變量自加1,再判斷循環(huán)變量值是否大于數(shù)據(jù)文件個數(shù)變量值,如是,則結束處理;否則,依次執(zhí)行數(shù)據(jù)文件打開模塊、數(shù)據(jù)文件的相應位置選中模塊和數(shù)據(jù)操作模塊的操作,然后循環(huán)變量自加1;如此反復,直至循環(huán)變量值大于數(shù)據(jù)文件個數(shù)變量值后,結束處理;所述數(shù)據(jù)文件打開模塊先通過打開標準“打開文件”對話框,再選中所需處理的數(shù)據(jù)文件并打開;所述數(shù)據(jù)文件的相應位置選中模塊選擇打開的數(shù)據(jù)文件中的一個工作表后,每次對關于循環(huán)變量的運算表達式進行運算,獲得運算結果,依據(jù)運算結果,選中該數(shù)據(jù)文件中所選工作表的相應位置;所述數(shù)據(jù)操作模塊對所述數(shù)據(jù)文件的相應位置選中模塊選擇的數(shù)據(jù)文件中所選工作表的相應位置的內(nèi)容進行復制或剪切或粘貼或數(shù)據(jù)的分析或運算操作。