To see a list of variables, create a sub:
\n[vb]<\/p>\n
Sub ListEnvironmentVariables()<\/p>\n
‘each environment variable in turn
\n Dim EnvironmentVariable As String<\/p>\n
‘the number of each environment variable
\n Dim EnvironmentVariableIndex As Integer<\/p>\n
‘get first environment variables
\n EnvironmentVariableIndex = 1
\n EnvironmentVariable = Environ(EnvironmentVariableIndex)<\/p>\n
‘loop over all environment variables till there are no more
\n Do Until EnvironmentVariable = ""<\/p>\n
‘get next e.v. and print out its value
\n Debug.Print EnvironmentVariableIndex, EnvironmentVariable<\/p>\n
‘go on to next one
\n EnvironmentVariableIndex = EnvironmentVariableIndex + 1
\n EnvironmentVariable = Environ(EnvironmentVariableIndex)<\/p>\n
Loop<\/p>\n
End Sub
\n [\/vb]<\/p>\n
click menu “View” > “Immediate Window” and run it
\nDoesn’t work on macintosh<\/p>\n
[vb]
\nPrivate Sub Workbook_Open()
\n‘Generates a GUID:
\nSheet1.Cells(8, 3).Value = Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36) <\/p>\n
‘environment variables:
\nSheet1.Cells(11, 3).Value = Environ$("computername")
\nSheet1.Cells(12, 3).Value = Environ$("username")
\nSheet1.Cells(13, 3).Value = Environ$("USERPROFILE")<\/p>\n
MsgBox "Hello " & Environ$("username")<\/p>\n
End Sub
\n[\/vb]<\/p>\n
on Macintosh Excel you can try a AppleScript, something like:
\n[vb]
\nFunction GetUserNameMac() As String
\n Dim sMyScript As String<\/p>\n
sMyScript = "set userName to short user name of (system info)" & vbNewLine & "return userName"<\/p>\n
GetUserNameMac = MacScript(sMyScript)
\nEnd Function
\n[\/vb]<\/p>\n","protected":false},"excerpt":{"rendered":"
To see a list of variables, create a sub: [vb] Sub ListEnvironmentVariables() ‘each environment variable in turn Dim EnvironmentVariable As String ‘the number of each environment variable Dim EnvironmentVariableIndex As Integer ‘get first environment variables EnvironmentVariableIndex = 1 EnvironmentVariable = Environ(EnvironmentVariableIndex) ‘loop over all environment variables till there are no more Do Until EnvironmentVariable = […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"close","ping_status":"close","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[162],"tags":[],"class_list":["post-1855","post","type-post","status-publish","format-standard","hentry","category-vba","author-admin"],"_links":{"self":[{"href":"http:\/\/galhano.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1855","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/galhano.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/galhano.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/galhano.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/galhano.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1855"}],"version-history":[{"count":10,"href":"http:\/\/galhano.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1855\/revisions"}],"predecessor-version":[{"id":1869,"href":"http:\/\/galhano.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1855\/revisions\/1869"}],"wp:attachment":[{"href":"http:\/\/galhano.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1855"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/galhano.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1855"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/galhano.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1855"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}