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) |
發表於 2010-7-5 16:06
| 
