Parámetros por referencia
Hola nuevamente Josaul,
Tengo el siguiente procedimiento:
Sub AddNew(ByRef WkBookName As String)
...
WkBookName = ""
.............
End Sub
El programa desde donde llamo al procedimiento
Sub principal
Dim nomarchivo as string
nomarchivo="algo.xls"
AddNew (nomarchivo)
...
End Sub
Cuando regresa a principal el valor de nomarchivo no cambia, sigue en "algo.xls", que estoy haciendo mal, me podrías ayudar, Gracias de antemano. Saludos
Orlando
Tengo el siguiente procedimiento:
Sub AddNew(ByRef WkBookName As String)
...
WkBookName = ""
.............
End Sub
El programa desde donde llamo al procedimiento
Sub principal
Dim nomarchivo as string
nomarchivo="algo.xls"
AddNew (nomarchivo)
...
End Sub
Cuando regresa a principal el valor de nomarchivo no cambia, sigue en "algo.xls", que estoy haciendo mal, me podrías ayudar, Gracias de antemano. Saludos
Orlando
1 Respuesta
Respuesta de José Saúl Méndez Alonso
1
Te sobran los paréntesis
Sub AddNew(ByRef WkBookName As String)
WkBookName = ""
End Sub
Sub principal()
Dim NomArchivo As String
NomArchivo = "algo.xls"
AddNew NomArchivo
End Sub
Los paréntesis se usan al llamar una función que normalmente te devuelve un valor
Cuando invocas a otra rutina no requieres de estos.
Sub AddNew(ByRef WkBookName As String)
WkBookName = ""
End Sub
Sub principal()
Dim NomArchivo As String
NomArchivo = "algo.xls"
AddNew NomArchivo
End Sub
Los paréntesis se usan al llamar una función que normalmente te devuelve un valor
Cuando invocas a otra rutina no requieres de estos.
