第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入門」の記事
第125回.Worksheetのイベントプロシージャー
第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} ステートメント
新着記事NEW ・・・新着記事一覧を見る
VBA100本ノック 37本目：グラフの色設定｜VBA練習問題（12月1日）
VBA100本ノック 36本目：列の並べ替え｜VBA練習問題（12月1日）
VBA100本ノック 35本目：条件付き書式｜VBA練習問題（11月29日）
VBA100本ノック 34本目：配列の左右回転｜VBA練習問題（11月28日）
VBA100本ノック 33本目：マクロ記録の改修｜VBA練習問題（11月26日）
VBA100本ノック 32本目：Excel終了とテキストファイル出力｜VBA練習問題（11月25日）
VBA100本ノック 31本目：入力規則｜VBA練習問題（11月24日）
将棋とプログラミングについて～そこには型がある～｜エクセル雑感（11月22日）
VBA100本ノック 30本目：名札作成（段組み）｜VBA練習問題（11月22日）
VBA100本ノック 29本目：画像の挿入｜VBA練習問題（11月21日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.マクロって何？VBAって何？｜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コードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。