返回列表 上一主題 發帖

ENVIRON环境参数

wqfzqgk

帖子
75 
主題
19 
精華
0 
積分
135 
點名
0  
作業系統
win7 
軟體版本
2007 010 
閱讀權限
20 
註冊時間
2010-5-18 
最後登錄
2013-10-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-5 16:06 | 只看該作者

ENVIRON环境参数

On Error Resume Next
Dim arr(), i As Integer
i = 1
Do
ReDim Preserve arr(1 To 2, 1 To i)
arr(1, i) = Split(environ(i), "=")(0)
arr(2, i) = Split(environ(i), "=")(1)
i = i + 1
Loop Until environ(i) = ""
Range("a1").Resize(UBound(arr, 2), 2) = Application.WorksheetFunction.Transpose(arr)
收藏 分享
学习

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-7-6 20:05 | 只看該作者
回復 1# wqfzqgk
你提供的程式碼中
當 i=22 時   Split(environ(i), "=")(1) 的字元數為294 >255 在陣列中無法轉置
導致    Range("a1").Resize(UBound(arr, 2), 2) = Application.WorksheetFunction.Transpose(arr)
產生錯誤值 你用 On Error Resume Next 也無法消除
如用 Range("a1").Resize( 2, UBound(arr, 2)) = arr  不使用轉置 沒有錯誤出現
  1. Sub Ex()
  2.     Dim i As Integer
  3.     i = 1
  4.     Do
  5.         Cells(i, 1) = Split(Environ(i), "=")(0)
  6.         Cells(i, 2) = Split(Environ(i), "=")(1)
  7.         i = i + 1
  8.     Loop Until Environ(i) = ""
  9. End Sub
複製代碼

TOP

wqfzqgk

帖子
75 
主題
19 
精華
0 
積分
135 
點名
0  
作業系統
win7 
軟體版本
2007 010 
閱讀權限
20 
註冊時間
2010-5-18 
最後登錄
2013-10-26 
3#
發表於 2010-7-6 20:30 | 只看該作者
看来是这个函数的事
学习

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題