第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入門」の記事
第130回.テーブル操作の概要（ListObject）
第131回.テーブル操作のVBAコード（ListObject,DataBodyRange）
第142回.テーブル全件処理とデータ最終行（ListObject,DataBodyRange）
第127回.他のブックのマクロを実行（Runメソッド）
第128回.マクロをショートカットで起動（OnKeyメソッド）
第129回.レジストリの操作（SaveSetting,GetSetting,GetAllSettings,DeleteSetting）
第133回.引数の数を可変にできるパラメーター配列（ParamArray）
第134回.Errオブジェクトとユーザー定義エラー
第138回.外部ライブラリ（ActiveXオブジェクト）
第140回.Property {Get|Let|Set} ステートメント
第143回.WorksheetFunctionの効率的な使い方とスピル新関数の利用
新着記事NEW ・・・新着記事一覧を見る
新旧マスタの差異比較｜Power Query（M言語）入門(2023-02-28)
有効な最新単価の取得｜Power Query（M言語）入門(2023-02-26)
有効な最新単価の取得｜Power Query（M言語）入門(2023-02-21)
グルーブ内の最小・最大｜Power Query（M言語）入門(2023-02-17)
2つのテーブルのマージ｜Power Query（M言語）入門(2023-02-15)
「売上」が数値の行のみ取り込む｜Power Query（M言語）入門(2023-02-13)
A列のヘッダー名を変更する｜Power Query（M言語）入門(2023-02-11)
CSVのA列が日付の行だけを取り込む｜Power Query（M言語）入門(2023-02-10)
列数不定のCSVの取り込み｜Power Query（M言語）入門(2023-02-09)
別ブックの最終シートの取り込み｜Power Query（M言語）入門(2023-02-08)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.マクロって何？VBAって何？｜VBA入門
7.並べ替え（Sort）｜VBA入門
8.Excelショートカットキー一覧｜Excelリファレンス
9.エクセルVBAでのシート指定方法｜VBA技術解説
10.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。