Environ

Environ函式 返回，返回 String，它關聯於一個作業系統環境變數。 在 Macintosh 中不可用。語法Environ({envstring | number})

基本介紹

• 中文名：Environ
• 外文名：Environ({envstring | number})
• 關聯：作業系統環境變數
• text1：顯示當前用戶名

Environ 函式的語法含有以下這些命名參數：

部分 描述

envstring 可選參數。包含一個環境變數名的字元串表達式。

number 可選參數。數值表達式，用來表示環境字元串在環境字元串表格中的數值順序。number 參數可以是任意的數值表達式，不過在計算前，它會先轉換為一個整數。

說明

如果在環境字元串表格中找不到 envstring，則會返回一個零長度字元串 ("")。如果找到，則 Environ 會返回一段文本，文本是賦值給指定的 envstring 的，也就是說，在環境字元串表格中對應那個環境變數的等號 (=) 後面的那段文本。

如果指定了 number，則在環境字元串表格中相應位置上的字元串會返回。在這種情況下，Environ 會返回整個文本，包括 envstring。如果在指定位置上沒有環境字元串，那么 Environ 會返回一個零長度字元串。

參數envstring舉例

在VB內或在excel宏內

text1.text = Environ("USERNAME") '在text1顯示當前用戶名

text2.text = VBA.Environ("computername") '在text2顯示計算機名字

Label1.Caption = VBA.Environ("computername") & Chr(13) & Environ("USERNAME")'在label1顯示計算機名和用戶名 ---可以把用戶名或計算機名給一個變數,再對該變數進行比較,做簡單的控制,如不是指定的用戶就unload form

其它envstring參數參見環境變數

參數number舉例

在from1內建一個command1複製以下代碼運行

Private Sub Command1_Click()
For i = 1 To 33
form1.Print Environ(i)
Next
End Sub