環境變數 -- Environ 函數:Excel 遊樂場:Xuite日誌
  • 文章分類
  • 搜尋文章
  • 關鍵字
  • 最新回應
  • Re:動態圖表資料範圍,by(david)於2008-09-14
    Re:利用WEB查詢換算匯率,by(瘋弟)於2008-09-07
    Re:用驗證選圖片,by(jade)於2008-07-18
    Re:用驗證選圖片,by(迷羊)於2008-07-10
    Re:多重資料驗證,by(沙拉油)於2008-07-09
    Re:多重資料驗證,by(背景音樂mavis)於2008-07-08
    Re:Excel 說明內找不到的函數,by(基哥)於2008-06-30
    Re:Excel 說明內找不到的函數,by(沙拉油)於2008-06-26
    Re:Excel 說明內找不到的函數,by(基哥)於2008-06-26
    Re:利用WEB查詢換算匯率,by(Daniel)於2008-06-13
  • 參觀人氣統計
  • 日曆
  • 我的發燒文
  • 累積 | 今日
    loading......
  • 沙拉油
  • 最愛連結
  • MP3_Player
  • 2006-11-09 18:38 環境變數 -- Environ 函數
  • ?
  • VBA
  • 好文轉寄
  • 平均分數:0 顆星    投票人數:0
    我要評分:
    標籤 : 


    環境變數內是一些作業系統內的系統變數,其中包括有作業系統資料夾使用者名稱TEMP資料夾電腦名稱我的文件程式安裝資料夾....等等。 在 Windows 內可以經由控制台>>系統>>進階>>環境變數看到並修改這些資訊(內容如下圖),而在VBA則可以經由使用 Environ 函數取得內容。

    '執行底下的程式碼之後會在工作表內A欄顯示 環境變數的名稱,B欄顯示環境變數的資料。

    Sub Env_List()
          Dim EnvString, Indx, i
          Indx = 1 ' 設定索引值的初值為 1。
          Do
                EnvString = Environ(Indx) ' 取得環境變數。
                If EnvString = "" Then Exit Do
                EnvString = Split(EnvString, "=") '剖析字串

                For i = 0 To UBound(EnvString)
                      Cells(Indx, i + 1) = EnvString(i)
                Next i
                Indx = Indx + 1
          Loop
    End Sub



    沙拉油 / Xuite日誌 / 回應(0) / 引用(0) / 好文轉寄
  • 回應