Views

Histats

Vitrine

VBA Tips - Nome do computador - Computer Name



Talvez vc deseje ligar a execução de uma aplicação

'A função abaixo mostra qual o nome do computador atual 

Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long 

' Para usá-la use a função abaixo 
Function GetComputerName() As String 
Dim UserName As String * 255 
Call GetComputerNameA (UserName, 255) 
Let GetComputerName = Left$(UserName, InStr (UserName, Chr$(0)) - 1) 
End Function 


References:

Tags: VBA, Tips, Computer, name









✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias