VBA处理文件框架代码 【第五部分（5.1）：具体业务】

本程序共分７个部分

【框架代码】  １．处理流程

【框架代码】  ２．变量定义

【框架代码】  ３．具体处理

【框架代码】  ４．bat定义

【框架代码】  ５．Excel文件操作

　　　　　　　　　　└ ５．１．具体业务流程（读取，写入文件）

    　　　　　　　　　　 └ ５．１．１．具体业务处理代码

６．目录结构，框架功能介绍

７．程序页面布局

'ALL People 情報Public peopleInfo As Object'OA情報Public oaStarTimeInfo As ObjectPublic oaEndTimeInfo As Object'指紋情報Public fingerprintStartTimeInfo As ObjectPublic fingerprintEndTimeInfo As Object'* * * * * * * * * * * * * * * * * * * *　* * * * * * * * *'*                                    　　　　　　　　　  *'* Input対象ファイルの内容取込（OA）                      *'* 作成日：2016/12/19                                     *'* 作成者：sun      　　　　　　　　　                    *'* 更新日：2017/08/13   　　　　　　　　                  *'* 更新者：sun     　　　　　　　　　　                   *'*                                                        *'* * * * * * * * * * * * * * * * * * * *　* * * * * * * * *Public Sub getInputInfoFromFile1ToOutFile(wks As Worksheet, outWb As Workbook)    On Error GoTo errl        Set peopleInfo = CreateObject("Scripting.Dictionary")    Set oaStarTimeInfo = CreateObject("Scripting.Dictionary")    Set oaEndTimeInfo = CreateObject("Scripting.Dictionary")    Set fingerprintStartTimeInfo = CreateObject("Scripting.Dictionary")    Set fingerprintEndTimeInfo = CreateObject("Scripting.Dictionary")        '出力対象ファイル全シート作成    Call createOutFileAllSheets(outWb)        'OA情報取込    'Call setOAInfoIntoDictionary(wks)        'OA情報記入    'Call writeOAInfoToOutFile(outWb)         GoTo endokerrl:    '異常処理     ERROR_FLG = "1"     ERROR_INFO_LIST.Add ("関数「getInputInfoFromFile1ToOutFile」で、エラー発生しました。")     ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)endok:        End Sub'* * * * * * * * * * * * * * * * * * * *　* * * * * * * * *'*                                    　　　　　　　　　  *'* Input対象ファイルの内容取込（指紋）                    *'* 作成日：2017/08/13                                     *'* 作成者：sun      　　　　　　　　　                    *'* 更新日：2017/08/13  　　　　　　　　                   *'* 更新者：sun     　　　　　　　　　　                   *'*                                                        *'* * * * * * * * * * * * * * * * * * * *　* * * * * * * * *Public Sub getInputInfoFromFile2ToOutFile(wks As Worksheet, outWb As Workbook)    On Error GoTo errl        '指紋情報取込    Call setFingerprintInfoIntoDictionary(wks)        '指紋情報記入    Call writeFingerprintInfoToOutFile(outWb)     GoTo endokerrl:    '異常処理     ERROR_FLG = "1"     ERROR_INFO_LIST.Add ("関数「getInputInfoFromFile2ToOutFile」で、エラー発生しました。")     ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)endok:        End Sub