crear registro en regedit mediante macros

Hola Hector MIguel

ya lo e conseguido con esta macro
Private Sub CommandButton1_Click()
Dim Registro As Object
Dim Ruta As String
Dim CadenaNueva As String
Dim ContenidoCadena As String

ContenidoCadena = "dmgv-2"
CadenaNueva = "daniel"
Ruta = "HKEY_CURRENT_USER\daniel\" & CadenaNueva

Set Registro = CreateObject("WScript.Shell")

Registro.RegWrite Ruta, ContenidoCadena
End Sub


muchas gracias por la ayuda dada
un saludo
daniel

"Héctor Miguel" escribió en el mensaje
news:

hola, daniel !

lo siento pero no me enterado de ninguna de las dos formas de como se
hace.
me podiais esplicar como hacer lo
lo unico que quiero hacer es que me cree en regedit las carpetas ya
descritas antes
y dentro unos archivos con los valores de un textbox
y luego otra macro que me muestre con un mensaje el valor de esta.

seguro que ya 'visitaste' la ayuda en linea de vba-excel y no te sirvieron
los ejemplos ?

SaveSeting "MiControl", "dmg", "NombreArchivo", TextBox1
SaveSeting "MiControl", "dmg", "CodigoBinario", TextBox2

MsgBox GetSetting("MiControl", "dmg", "NombreArchivo")
MsgBox GetSetting("MiControl", "dmg", "CodigoBinario")

DeleteSetting "MiControl", "dmg"

el 'como' te asegures que los valores registrados sean 'correctos'... [va
a depender de ti mismo] ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola Hector Miguel
lo que no consigo es ver en un msgbox el contenido de la clave
uso esta macro seria desde otro archivo con otro boton ver en un msgbox la
clave que en este caso seria dmg
me podias poner la macro que tendria que poner en el boton.
Private Sub CommandButton1_Click()
Dim Registro As Object
Dim Ruta As String
Dim CadenaNueva As String
Dim ContenidoCadena As String

ContenidoCadena = "dmg"
CadenaNueva = "daniel"
Ruta = "HKEY_CURRENT_USER\daniel\" & CadenaNueva

Set Registro = CreateObject("WScript.Shell")

Registro.RegWrite Ruta, ContenidoCadena
MsgBox "clave creada"
MsgBox (ContenidoCadena & " " & CadenaNueva)
End Sub


un saludo y muchas gracias
Daniel
"daniel" escribió en el mensaje
news:

Hola Hector MIguel

ya lo e conseguido con esta macro
Private Sub CommandButton1_Click()
Dim Registro As Object
Dim Ruta As String
Dim CadenaNueva As String
Dim ContenidoCadena As String

ContenidoCadena = "dmgv-2"
CadenaNueva = "daniel"
Ruta = "HKEY_CURRENT_USER\daniel\" & CadenaNueva

Set Registro = CreateObject("WScript.Shell")

Registro.RegWrite Ruta, ContenidoCadena
End Sub


muchas gracias por la ayuda dada
un saludo
daniel

"Héctor Miguel" escribió en el mensaje
news:

hola, daniel !

lo siento pero no me enterado de ninguna de las dos formas de como se
hace.
me podiais esplicar como hacer lo
lo unico que quiero hacer es que me cree en regedit las carpetas ya
descritas antes
y dentro unos archivos con los valores de un textbox
y luego otra macro que me muestre con un mensaje el valor de esta.

seguro que ya 'visitaste' la ayuda en linea de vba-excel y no te
sirvieron los ejemplos ?

SaveSeting "MiControl", "dmg", "NombreArchivo", TextBox1
SaveSeting "MiControl", "dmg", "CodigoBinario", TextBox2

MsgBox GetSetting("MiControl", "dmg", "NombreArchivo")
MsgBox GetSetting("MiControl", "dmg", "CodigoBinario")

DeleteSetting "MiControl", "dmg"

el 'como' te asegures que los valores registrados sean 'correctos'... [va
a depender de ti mismo] ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, daniel !

lo que no consigo es ver en un msgbox el contenido de la clave
uso esta macro seria desde otro archivo con otro boton ver en un msgbox la clave que en este caso seria dmg
me podias poner la macro que tendria que poner en el boton.

si vas a usar los Windows Scripting Shell...
similar a la forma en que 'escribes' en el registro tus claves y contenidos...
-> Registro.RegWrite Ruta, ContenidoCadena

esta la forma de 'leer' el valor de cadenas/claves/... desde el registro [p.e.]
-> MsgBox Registro.RegRead("aqui la clave del registro")

saludos,
hector.

p.d. [creo que sigue siendo mas 'facil' usar las funciones 'nativas' de vba] -?-

__ las consultas anteriores __

Private Sub CommandButton1_Click()
Dim Registro As Object
Dim Ruta As String
Dim CadenaNueva As String
Dim ContenidoCadena As String
ContenidoCadena = "dmg"
CadenaNueva = "daniel"
Ruta = "HKEY_CURRENT_USER\daniel\" & CadenaNueva
Set Registro = CreateObject("WScript.Shell")
Registro.RegWrite Ruta, ContenidoCadena
MsgBox "clave creada"
MsgBox (ContenidoCadena & " " & CadenaNueva)
End Sub

seguro que ya 'visitaste' la ayuda en linea de vba-excel y no te sirvieron los ejemplos ?

SaveSeting "MiControl", "dmg", "NombreArchivo", TextBox1
SaveSeting "MiControl", "dmg", "CodigoBinario", TextBox2

MsgBox GetSetting("MiControl", "dmg", "NombreArchivo")
MsgBox GetSetting("MiControl", "dmg", "CodigoBinario")

DeleteSetting "MiControl", "dmg"

el 'como' te asegures que los valores registrados sean 'correctos'... [va a depender de ti mismo]

Hola Hector Miguel
muchas gracias ya me funciona :)
ahora tengo una duda se podria hacer con un archivo .vbs
e probado poniendo esto pero no va me da error en la linea 2

Dim Registro As Object
Dim Ruta As String
Dim CadenaNueva As String
Dim ContenidoCadena As String
ContenidoCadena = clave 'clave es el textbox del userform
CadenaNueva = "daniel"
Ruta = "HKEY_CURRENT_USER\daniel\" & CadenaNueva
Set Registro = CreateObject("WScript.Shell")
Registro.RegWrite Ruta, ContenidoCadena
MsgBox "clave creada"
MsgBox (ContenidoCadena & " " & CadenaNueva)



un saludo y muchas gracias daniel
daniel


"Héctor Miguel" escribió en el mensaje
news:O$

hola, daniel !

lo que no consigo es ver en un msgbox el contenido de la clave
uso esta macro seria desde otro archivo con otro boton ver en un msgbox
la clave que en este caso seria dmg
me podias poner la macro que tendria que poner en el boton.

si vas a usar los Windows Scripting Shell...
similar a la forma en que 'escribes' en el registro tus claves y
contenidos...
-> Registro.RegWrite Ruta, ContenidoCadena

esta la forma de 'leer' el valor de cadenas/claves/... desde el registro
[p.e.]
-> MsgBox Registro.RegRead("aqui la clave del registro")

saludos,
hector.

p.d. [creo que sigue siendo mas 'facil' usar las funciones 'nativas' de
vba] -?-

__ las consultas anteriores __

Private Sub CommandButton1_Click()
Dim Registro As Object
Dim Ruta As String
Dim CadenaNueva As String
Dim ContenidoCadena As String
ContenidoCadena = "dmg"
CadenaNueva = "daniel"
Ruta = "HKEY_CURRENT_USER\daniel\" & CadenaNueva
Set Registro = CreateObject("WScript.Shell")
Registro.RegWrite Ruta, ContenidoCadena
MsgBox "clave creada"
MsgBox (ContenidoCadena & " " & CadenaNueva)
End Sub

seguro que ya 'visitaste' la ayuda en linea de vba-excel y no te
sirvieron los ejemplos ?

SaveSeting "MiControl", "dmg", "NombreArchivo", TextBox1
SaveSeting "MiControl", "dmg", "CodigoBinario", TextBox2

MsgBox GetSetting("MiControl", "dmg", "NombreArchivo")
MsgBox GetSetting("MiControl", "dmg", "CodigoBinario")

DeleteSetting "MiControl", "dmg"

el 'como' te asegures que los valores registrados sean 'correctos'...
[va a depender de ti mismo]

hola, daniel !

ahora tengo una duda se podria hacer con un archivo .vbs e probado poniendo esto pero no va me da error en la linea 2
Dim Registro As Object
Dim Ruta As String
Dim CadenaNueva As String
Dim ContenidoCadena As String
ContenidoCadena = clave 'clave es el textbox del userform
CadenaNueva = "daniel"
Ruta = "HKEY_CURRENT_USER\daniel\" & CadenaNueva
Set Registro = CreateObject("WScript.Shell")
Registro.RegWrite Ruta, ContenidoCadena
MsgBox "clave creada"
MsgBox (ContenidoCadena & " " & CadenaNueva)

1) por que decidiste/pretendes/intentas/... cambiar instrucciones en formularios y vba...
por instrucciones en archvios *.vbs -???-

2) como piensas llamar/ejecutar/... el archivo *.vbs para que te lance un MsgBox ? [o sea...]
-> 'bajo' el entorno/ambiente/... de que aplicacion ?

[creo que hay 'detalles en el tintero'] -?-
saludos,
hector.