Excel VBA シートを設定ファイルとして利用するのソースを表示

==[[Excel VBA シートを設定ファイルとして利用する]]==
[[Excel VBA]] | 

 Private Const COL_VAR_KEY   As Integer = 1
 Private Const COL_VAR_VAL   As Integer = 2
 Private properties          As Object
 
 Public Sub test()
     Call loadProperties
     Debug.Print properties.Item("BASE_DIR")
 End Sub
 
 '
 ' [[Excel]]の"設定"シートから、値を読込みMapに格納する
 ' 1列目:KEY、2列目:値
 '
 Private Sub loadProperties()
     Dim sheet   As Worksheet
     Dim endCel  As Range
     Dim eRow    As Long
     Dim r       As Long
     
     Set properties = CreateObject("Scripting.Dictionary")
     
     Set sheet = ActiveWorkbook.Sheets("設定")
     Set endCel = sheet.Range("A1").SpecialCells(xlLastCell)
     
     For r = 1 To endCel.Row
         Call properties.Add( _
                  sheet.Cells(r, COL_VAR_KEY).Text _
                , sheet.Cells(r, COL_VAR_VAL).Text)
     Next
 End Sub