12,673
回編集
差分
ナビゲーションに移動
検索に移動
ページの作成:「==Excel VBA シートを設定ファイルとして利用する== [Excel VBA] Private Const COL_VAR_KEY As Integer = 1 Private Const COL_VAR_VAL As Integer = 2…」
==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
[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
© 2006 矢木浩人
