Usar valor de retorno de funcion creada en macros en otra macro
publicado
hola resulta que cree esta funcion en un modulo
Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function ReturnComputerName() As String
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetComputerName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen > 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnComputerName = UCase(Trim(tString))
MsgBox (ReturnComputerName)
MsgBox Application.UserName [/CODE]
pero resulta que eso me devuelve un mensage diciendome el nombre de usuario y equipo en uso, pero quiero que desde otra macro usar esos valores como string, como se llama a la funcion para que me retorne estos valores? saludos
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
hola resulta que cree esta funcion en un modulo
pero resulta que eso me devuelve un mensage diciendome el nombre de usuario y equipo en uso, pero quiero que desde otra macro usar esos valores como string, como se llama a la funcion para que me retorne estos valores? saludos