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