Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7453 / 13644 ツリー ←次へ | 前へ→

【38906】アドインで設定値を保存したい マイクロフト 06/6/14(水) 8:35 質問[未読]
【38908】Re:アドインで設定値を保存したい Jaka 06/6/14(水) 10:05 発言[未読]
【39052】Re:アドインで設定値を保存したい マイクロフト 06/6/16(金) 16:38 質問[未読]
【39055】Re:アドインで設定値を保存したい Jaka 06/6/16(金) 17:01 発言[未読]
【39064】Re:アドインで設定値を保存したい bykin 06/6/16(金) 21:32 回答[未読]
【39072】Re:アドインで設定値を保存したい マイクロフト 06/6/17(土) 9:56 お礼[未読]

【38906】アドインで設定値を保存したい
質問  マイクロフト  - 06/6/14(水) 8:35 -

引用なし
パスワード
   アドインについての質問です。

設定条件をアドイン組み込み時に入力してアドインのBookのワークシートのセルに設定値を書き込むようにして、保存しようとしたのですが、途中で固まってしまって動かなくなります。

どうも、アドインのファイルを読み込み専用にしているために、書き込めないために、固まっているのではないかと思います。読み込み専用にしなければ、正常に動作します。

しかし、読込専用にしないと、Excel起動時、アドインを開くときに「XXXXX.xls'を保存する必要が無ければ、読み取り専用で開きますか?」のダイアログが出てきます。ダイアログが出ないように読み取り専用にしているのですが、そうすると、設定値のアドインBookへの書き込みが出来ません。

ダイアログでないようにして、アドインのBOOKのセルに設定値を書き込む方法はあるのでしょうか。
又は、ほかに設定値を保存する方法はあるのでしょうか。御教授お願いします。

【38908】Re:アドインで設定値を保存したい
発言  Jaka  - 06/6/14(水) 10:05 -

引用なし
パスワード
   ▼マイクロフト さん:
単純に書き込んだら上書き保存、消したら上書き保存する。
でもいいんじゃないかと思いますが、
ThisWorkbook.Saved = True
と、してもいいと思います。

【39052】Re:アドインで設定値を保存したい
質問  マイクロフト  - 06/6/16(金) 16:38 -

引用なし
パスワード
   ▼Jaka さん 回答ありがとうございます。出張で返信遅くなり申し訳ございません。

回答のとおり、やってみると動作するのですが、アドインを読み込み専用にすると止まってしまいます。

どうしても、Excel起動時にダイアログを出ないようにしたいので、ほかに何かいい方法は無いでしょうか。

アドインで保存できるものは、あるので何らかの方法はあると思うのですが、お願いします。

【39055】Re:アドインで設定値を保存したい
発言  Jaka  - 06/6/16(金) 17:01 -

引用なし
パスワード
   ▼マイクロフト さん:
>回答のとおり、やってみると動作するのですが、アドインを読み込み専用にすると止まってしまいます。
読み込み専用にしなきゃいいと思いますが....。
自分で作ってアドインは普通のまんまで使ってます。

他読み取り解除するとかしたり...。

【39064】Re:アドインで設定値を保存したい
回答  bykin  - 06/6/16(金) 21:32 -

引用なし
パスワード
   こんばんわ。

>ほかに設定値を保存する方法はあるのでしょうか。

アドイン特有の設定情報をレジストリに保存するっていう方法もあります。
SaveSettingとGetSettingを使います。

GetSettingのヘルプの使用例を一部引用すると・・・

(引用ここから)----------------------------------------------

' レジストリに設定を書き込みます。
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50

Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
            key := "Left", default := "25")

DeleteSetting "MyApp", "Startup"

(引用ここまで)----------------------------------------------

SaveSettingは、
HKEY_CURRENT_USER\Software\VB and VBA Program Settings
の配下に
\appname\section\key
を追加します。(他の位置には追加できまへん)

ま、こういう方法もあるってことで・・・
ほな。

【39072】Re:アドインで設定値を保存したい
お礼  マイクロフト  - 06/6/17(土) 9:56 -

引用なし
パスワード
   bykin さん 回答ありがとうございます。

レジストリに保存する方法で、書き直してみると、読み取り専用でも
動作しました。

ありがとうございました。今後ともよろしくお願いいします。

7453 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free