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

本程序共分７个部分

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

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

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

【框架代码】 
４．bat定义

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

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

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

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

７．程序页面布局

'ALL People 情報
Public peopleInfo As Object

'OA情報
Public oaStarTimeInfo As Object
Public oaEndTimeInfo As Object

'指紋情報
Public fingerprintStartTimeInfo As Object
Public 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 endok
errl:
'異常処理
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 endok
errl:
'異常処理
ERROR_FLG = "1"
ERROR_INFO_LIST.Add ("関数「getInputInfoFromFile2ToOutFile」で、エラー発生しました。")
ERROR_INFO_LIST.Add ("エラー詳細：" & Err.Number & " ： " & Err.Description)
endok:

End Sub