第129回.レジストリの操作（SaveSetting,GetSetting,GetAllSettings,DeleteSetting）
マクロVBAでレジストリを操作することの是非はあるかもしれませんが、
VBAには、レジストリ操作のステートメントと関数が用意されています。
ここまでの「マクロVBA入門」で漏れている項目として今回取り上げます。
（2019/5の試験改定で出題範囲から削除されました。）
レジストリからキー設定値を取得するには、GetSetting関数を使います。
レジストリから全ての設定値を取得するには、GetAllSettings関数を使います。
レジストリからキー設定を削除するには、DeleteSettingステートメントを使います。
SaveSettingステートメント
SaveSetting appname, section, key, setting
SaveSetting ステートメントの構文は、次の名前付き引数から構成されます。
| 指定項目 | 内容 |
| appname | 必ず指定します。 設定を適用するアプリケーション名またはプロジェクト名を含む文字列式を指定します。 Macintosh の場合には、システム フォルダ内の初期設定 フォルダに含まれているファイル名を指定します。 |
| section | 必ず指定します。 キー設定を保存するセクション名を含む文字列式を指定します。 |
| key | 必ず指定します。 保存するキー名を含む文字列式を指定します。 |
| setting | 必ず指定します。 名前付き引数 key に設定する値を含む式を指定します。 |
キー設定が保存できない場合、エラーが発生します。
レジストリに保存される位置は、
HKEY_CURRENT_USER
→Software
→VB and VBA Program Settings
この下に、以下のように保存されます
DeleteSettingステートメント
DeleteSetting appname, section[, key]
DeleteSetting ステートメントの構文は、次の名前付き引数から構成されます。
| 指定項目 | 内容 |
| appname | 必ず指定します。 セクションか、キー設定を適用するアプリケーション名またはプロジェクトの名前を含む文字列式を指定します。 Macintosh の場合には、システム フォルダ内の初期設定 フォルダに含まれているファイル名を指定します。 |
| section | 省略可能です。 キー設定を削除するセクション名を含む文字列式を指定します。 名前付き引数 appname および名前付き引数 section だけを指定した場合、指定されたセクションは関連付けられたすべてのキー設定と共に削除されます。 |
| key | 省略可能です。 削除するキー名を含む文字列式を指定します。 |
keyだけ省略した場合は、指定sectionの全てのキーが削除されます。
sectionとkeyを省略した場合は、指定したappnameの全てが削除されます。
ただし、
指定したセクションまたはキー設定が存在しない場合にはDeleteSettingステートメントを使用すると、実行時エラーが発生します。
GetSetting関数
GetSetting(appname, section, key[, default])
GetSetting 関数の構文は、次の名前付き引数から構成されます。
| 指定項目 | 内容 |
| appname | 必ず指定します。 設定を適用するアプリケーション名またはプロジェクト名を含む文字列式を指定します。 Macintosh の場合には、システム フォルダ内の初期設定 フォルダに含まれているファイル名を指定します。 |
| section | 必ず指定します。 キー設定を保存するセクション名を含む文字列式を指定します。 |
| key | 必ず指定します。 保存するキー名を含む文字列式を指定します。 |
| default | 省略可能です。 キー設定に値が設定されていない場合に返す値を含む式を指定します。 省略すると、長さ 0 の文字列 ("") とみなされます。 |
GetSetting 関数の名前付き引数のいずれかを指定していない場合、
GetSetting 関数では、名前付き引数 default の値が返されます。
GetAllSettings関数
GetAllSettings(appname, section)
GetAllSettings 関数の構文は、次の名前付き引数から構成されます。
| 指定項目 | 内容 |
| appname | 必ず指定します。キー設定を取得するアプリケーション名またはプロジェクト名を含む文字列式を指定します。Macintosh の場合には、システム フォルダ内の初期設定 フォルダに含まれているファイル名を指定します。 |
| section | 必ず指定します。キー設定を取得するセクション名を含む文字列式を指定します。GetAllSettings 関数では、指定したセクションのすべてのキー設定およびそのキー設定に対応する値を含む文字列の二次元配列を格納したバリアント型 (Variant) の値が返されます。 |
名前付き引数 appname または名前付き引数 section のいずれかを指定していない場合、
GetAllSettings 関数は初期化されていないバリアント型 (Variant) の値を返します。
レジストリ操作の使用例
'レジストリに保存
SaveSetting appname:="MyApp", _
section:="Test", _
Key:="Test1", _
setting:="Excelの神髄1"
SaveSetting "MyApp", _
"Test", _
"Test2", _
"Excelの神髄2"
'レジストリから取得
MsgBox GetSetting(appname:="MyApp", _
section:="Test", _
Key:="Test1", _
Default:="未登録")
MsgBox GetSetting("MyApp", _
"Test", _
"Test2", _
"未登録")
'レジストリから全てを取得します。
Dim MySettings As Variant
Dim intSettings As Integer
MySettings = GetAllSettings(appname:="MyApp", _
section:="Test")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
MsgBox MySettings(intSettings, 0) & ":" & _
MySettings(intSettings, 1)
Next
'レジストリからキー削除
DeleteSetting appname:="MyApp", section:="Test", Key:="Test2"
'レジストリからApp全て削除
DeleteSetting appname:="MyApp"
以下の順にメッセージボックスに表示されます。
Excelの神髄1
Excelの神髄2
Test1:Excelの神髄1
Test2:Excelの神髄2
最後に
アプリケーションでレジストリを使う場合は、アプリケーションのアンインストールを用意すべきだと思っています。
つまり、
ExcelのVBAでレジストリを扱うのであれば、アンインストールも用意すべきだと考えます。
VBAでこれを用意していないのであれば、レジストリは使うべきではないと思います。
必ず、レジストリへの登録と削除はセットで用意するようにしてください。
同じテーマ「マクロVBA入門」の記事
第124回.Workbookのイベントプロシージャー
第125回.Worksheetのイベントプロシージャー
第130回.テーブル操作の概要（ListObject）
第131回.テーブル操作のVBAコード（ListObject）
第127回.他のブックのマクロを実行（Runメソッド）
第128回.マクロをショートカットで起動（OnKeyメソッド）
第129回.レジストリの操作（SaveSetting,GetSetting,GetAllSettings,DeleteSetting）
第133回.引数の数を可変にできるパラメーター配列（ParamArray）
第134回.Errオブジェクトとユーザー定義エラー
第138回.外部ライブラリ（ActiveXオブジェクト）
第140回.Property {Get|Let|Set} ステートメント
新着記事NEW ・・・新着記事一覧を見る
多階層フォルダ（ディレクトリ）の作成｜VBAサンプル集（7月31日）
VBAのインデントについて｜VBA技術解説（7月16日）
「VBA Match関数の限界」についての誤解｜エクセル雑感（7月15日）
省略可能なVariant引数の参照不可をラップ関数で利用｜VBA技術解説（7月12日）
100桁の正の整数値の足し算｜エクセル雑感（7月9日）
LSetとユーザー定義型のコピー（100桁の足し算）｜VBA技術解説（7月9日）
Variant仮引数のByRefとByValの挙動違い｜エクセル雑感（7月5日）
Variant仮引数にRange.Valueを配列で渡す方法｜エクセル雑感（7月5日）
Variantの数値型と文字列型の比較｜エクセル雑感（7月1日）
VBAのVariant型について｜VBA技術解説（6月30日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.マクロはどこに書くの（VBEの起動）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。