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/

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/

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/

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.