12,673
回編集
差分
ナビゲーションに移動
検索に移動
編集の要約なし
[[Excel VBA]] |
Private Const COL_VA[[R]]_KEY COL_VAR_KEY As Integer = 1 Private Const COL_VA[[R]]_VAL COL_VAR_VAL As Integer = 2
Private properties As Object
Public Sub test()
Call loadProperties
Debug.Print properties.Item("BASE_DI[[R]]BASE_DIR")
End Sub
Private Sub loadProperties()
Dim sheet As Worksheet
Dim endCel As [[R]]angeRange Dim e[[R]]ow eRow As Long
Dim r As Long
Set sheet = ActiveWorkbook.Sheets("設定")
Set endCel = sheet.[[R]]angeRange("A1").SpecialCells(xlLastCell)
For r = 1 To endCel.[[R]]owRow
Call properties.Add( _
sheet.Cells(r, COL_VA[[R]]_KEYCOL_VAR_KEY).Text _ , sheet.Cells(r, COL_VA[[R]]_VALCOL_VAR_VAL).Text)
Next
End Sub
© 2006 矢木浩人
