【VBA】設定一覧シートから設定情報を取得する
設定の取得コード
Property Get val(ByRef ParamName As String) As String Dim L As ListObject For Each L In shSetting.ListObjects If L.Name = "設定一覧" Then val = Cells(L.ListColumns("設定値").Range.Column, _ L.ListColumns("設定名").Range.Find(ParamName).Row _ ) GoTo Finally End If Next MsgBox "指定の設定が存在しないか、当ファイルの設定一覧が破損している可能性があります" Finally: End Property
設定取得の例
Sub test() Dim p As clsProperty Set p = New clsProperty Debug.Print p.val("監視フォルダ") End Sub
実行結果
C:\Users\ユーザ名\Desktop\監視対象のフォルダ