GetSetting and SaveSetting
I can write data to the registry with the following example. I am not
having any luck reading it back and storing it in a worksheet. Suggestions? __________________________________ Sub ChangeName(sName As String) SaveSetting appname:="Euchre", _ section:="PlayerData", _ key:="Name", _ setting:=sName End Sub Function GetName() GetName = GetSetting(appname:="Euchre", _ section:="PlayeData", _ key:="Name") Range("A1").Value = GetName End Function Sub TestIt() ChangeName "Sick" MsgBox GetName End Sub __________________________________ http://www.dick-blog.com/archives/20...-the-registry/ |
GetSetting and SaveSetting
You are storing
section:="PlayerData" and reading section:="PlayeData" HTH. Best wishes Harald "Fan924" wrote in message ... I can write data to the registry with the following example. I am not having any luck reading it back and storing it in a worksheet. Suggestions? __________________________________ Sub ChangeName(sName As String) SaveSetting appname:="Euchre", _ section:="PlayerData", _ key:="Name", _ setting:=sName End Sub Function GetName() GetName = GetSetting(appname:="Euchre", _ section:="PlayeData", _ key:="Name") Range("A1").Value = GetName End Function Sub TestIt() ChangeName "Sick" MsgBox GetName End Sub __________________________________ http://www.dick-blog.com/archives/20...-the-registry/ |
GetSetting and SaveSetting
Its a typo:
section:="PlayeData", _ you're missing the "r" at the end of Player. Cordially, Chip Pearson Microsoft Most Valuable Professional Excel Product Group, 1998 - 2009 Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Sat, 28 Feb 2009 12:24:41 -0800 (PST), Fan924 wrote: I can write data to the registry with the following example. I am not having any luck reading it back and storing it in a worksheet. Suggestions? __________________________________ Sub ChangeName(sName As String) SaveSetting appname:="Euchre", _ section:="PlayerData", _ key:="Name", _ setting:=sName End Sub Function GetName() GetName = GetSetting(appname:="Euchre", _ section:="PlayeData", _ key:="Name") Range("A1").Value = GetName End Function Sub TestIt() ChangeName "Sick" MsgBox GetName End Sub __________________________________ http://www.dick-blog.com/archives/20...-the-registry/ |
GetSetting and SaveSetting
On Feb 28, 1:02 pm, "Harald Staff" wrote:
You are storing section:="PlayerData" and reading section:="PlayeData" Error in web page example. That explains it not working. Thanks. |
All times are GMT +1. The time now is 07:03 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com