Temp_config

Option Explicit

'---------------------------------------------------------------
'各種定数の宣言
Public Const strToolSheetName As String = "Sheet1"
Public Const strMasterSheetName As String = "マスタ"
Public Const strConfigSheetName As String = "設定"

Public Const strParentFolderCell As String = "C2"
Public Const strRingiFolderCell As String = "C3"

Public Const strSeikyuPdfNameCell As String = "C5"
Public Const strMeisaiPdfNameCell As String = "C6"
'Public Const strSeikyuFileNameCell As String = "C5"
Public Const strMeisaiFileNameCell As String = "C7"
'Public Const strSeikyuSheetNameCell As String = "C7"
Public Const strMeisaiSheetNameCell As String = "C8"

Public Const strRingiNoReultCell As String = "D13"
Public Const strRingiNoCauseErrCell As String = "E13"

Public Const intSubFolderColumn As Integer = 3
Public Const intOutputResultColumn As Integer = 4
Public Const intCauseErrrColumn As Integer = 5
Public Const intSubFolderStartRow As Integer = 16
Public Const intRingiNoStartRow As Integer = 6
Public Const intRingiNoColumn As Integer = 5

'--------------------------------------------------------------
'稟議NO用配列の宣言
Public arrayRingiNo() As String

'--------------------------------------------------------------
'フォルダとファイルパスとシート名の宣言
Public strParentFolderPath As String
Public strRingiFolderPath As String

Public strSubFolderPath As String
Public strSubFolderName As String
'Public strSeikyuSheetName As String
Public strMeisaiSheetName As String

'Public strSeikyuPdfNamePattern As String
'Public strMeisaiPdfNamePattern As String

Public strSeikyuNamePattern As String
Public strMeisaiNamePattern As String

Public strSeikyuPdfPath As String
Public strMeisaiPdfPath As String
'Public strSeikyuExcelPath As String
Public strMeisaiExcelPath As String
'---------------------------------------------
'各種フラグの設定
Public blCreatePdf As Boolean
Public blSeikyuExcelExists As Boolean
Public blSeikyuPdfExists As Boolean
Public blSeikyuSheetExists As Boolean
Public blMeisaiSheetExists As Boolean
Public blMeisaiPdfExists As Boolean
Public blMeisaiExcelExists As Boolean
Public blCheckBookOpened As Boolean
Public blErrFlag As Boolean

'---------------------------------------------
'その他
Public strPassWord As String
Public strErrMsg As String
Public arrayBlankCell(4) As String
Public strBlankMsg As String