photosdematures.com

Excel VBA ENVIRON (Kapaligiran)

Ang VBA ENVIRON pagpapaandar (pinaniniwalaan KAPALIGIRAN) na maaaring ikategorya bilang isang Impormasyon sa Pag-andar habang ang pagpapaandar na ito ay nagbabalik ng mga halaga para sa mga variable ng kapaligiran sa operating system. Ang mga variable ng Kapaligiran (Operating System) ay naglalaman ng impormasyon tungkol sa mga profile ng lahat ng mga gumagamit, pangalan ng gumagamit, profile ng gumagamit, isang folder ng bahay para sa gumagamit, atbp. Ang pagpapaandar na ito ay nagbabalik ng isang halaga ng string.

Syntax

Ang pagpapaandar na ito ay mayroon lamang isang argumento na ‘Pagpapahayag‘. Maaari naming tukuyin ang posisyon sa bilang (halaga ng integer) na kumakatawan sa posisyon ng numero ng variable ng kapaligiran sa talahanayan ng variable ng kapaligiran o variable na pangalan mismo

Kung tinukoy namin ang posisyon ng numero, pagkatapos ay ibabalik ng pagpapaandar ang variable ng kapaligiran at ang halaga nito kapwa may pantay na pag-sign in sa pagitan.

Kung tinukoy namin ang variable na pangalan pagkatapos ang nag-iisang halaga ay naibalik ng pagpapaandar.

Output:

Paano gamitin ang En environment Function sa VBA?

Maaari mong i-download ang VBA ENVIRON Excel Template dito - VBA ENVIRON Excel Template

Halimbawa # 1

Buksan ang Command Prompt gamit ang ENVIRON Function sa VBA.

Upang gawin ang pareho, ang mga hakbang ay magiging:

Ipasok ang command button gamit ang 'Ipasok' magagamit ang utos sa 'Mga Kontrol' pangkat sa 'Developer' tab o gamitin ang shortcut excel key (Alt + F11).

Kung ang 'Developer' hindi nakikita ang tab pagkatapos ay gamitin ang mga sumusunod na hakbang upang makita ang tab.

Mag-click sa 'File' at pumili 'Mga Pagpipilian' mula sa listahan.

Pumili ka 'Ipasadya ang Ribbon' mula sa kaliwang menu at lagyan ng tsek ang kahon para sa 'Developer' tab at mag-click sa 'OK'.

Ngayon ang 'Tab ng developer' ay nakikita.

Habang pinapasok ang command button, kung patuloy naming pinindot ang ALT key, pagkatapos ang mga gilid ng command button ay magkakasama sa border ng cells. Baguhin ang mga pag-aari ng ipinasok na pindutan ng utos gamit ang menu ng konteksto, na makukuha namin sa pamamagitan ng pag-right click sa 'Command button'.

Window ng Mga Katangian

Upang isulat ang VBA code para sa command button, kailangan naming piliin ang command button at pumili 'Tingnan ang Code' mula sa menu ng konteksto.

Isulat ang code tulad ng sumusunod:

Tumawag na kami 'Shell' pagpapaandar upang i-type ang utos upang magpatakbo ng isang programa (sa aming kaso iyon ay prompt ng command).

Nagamit na namin 'ComSpec', na nangangahulugang 'Command Specifier'.

Lumabas ngayon sa VBE at mag-click sa command button. Nagpakita kami ng isang prompt ng utos.

Halimbawa # 2

Ipagpalagay, nais naming kumuha ng mga pangalan ng file at mga detalye para sa napiling folder tulad ng sumusunod.

Ang mga hakbang upang gawin ang pareho ay:

Punan ang mga cell B2: H9 ng light orange na kulay.

Lumikha ng tatak gamit ang 'Ipasok' utos sa 'Mga Kontrol' pangkat sa ‘Developer’.

Mangyaring lumikha ng mga ipinakitang label sa ibaba at i-edit ang mga katangian tulad ng caption, BackColor, BackStyle, BorderStyle, Anino

Lumikha ng Combo Box tulad ng sumusunod na paggamit Combo Box utos (isa sa mga Kontrol ng ActiveX) na magagamit sa Isingit utos sa Mga Kontrol pangkat sa Developer.

Matapos likhain ang Combo Box sa excel tulad ng sumusunod, maaari naming baguhin ang mga katangian.

Magdaragdag kami ng code para sa listahan na maipakita sa combo box gamit ang Tingnan ang Code utos sa menu ng konteksto.

Ito ay isang code para sa "Piliin ang Folder" ComboBox.

Ito ay isang code para sa “Pagbukud-bukurin ” ComboBox.

Ito ay isang code para sa "Piliin ang Order" ComboBox.

Lilikha kami ng isang kahon ng listahan na naglalaman ng lahat ng mga uri ng file upang mapili ng gumagamit ang mga ito upang makuha lamang ang mga uri ng mga file sa resulta. Upang gawin ang pareho, mangyaring piliin ang "Listahan ng Kahon (Control ng ActiveX)" galing sa "Isingit"Utos sa"Mga Kontrol”Pangkat sa“Developer”Tab.

I-drag ang kahon ng listahan tulad ng ipinakita sa ibaba.

Baguhin ang mga pag-aari ng kahon ng listahan tulad ng sumusunod.

Upang idagdag ang mga uri ng file sa kahon ng listahan, mangyaring gamitin ang sumusunod na code.

Isulat ang code sa "Ang workbook na ito".

Code:

 Pribadong Sub Workbook_Open () Dim ArrFileType (25) Bilang Variant ArrFileType (0) = "Microsoft Excel 97-2003 Worksheet (.xls)" ArrFileType (1) = "Microsoft Office Excel Worksheet (.xlsx)" ArrFileType (2) = " Worksheet na Ginagana ng Microsoft Excel Macro (.xlsm) "ArrFileType (3) =" Word Document 97-2003 (.doc) "ArrFileType (4) =" Word Document 2007-2010 (.docx) "ArrFileType (5) =" Text Dokumento (.txt) "ArrFileType (6) =" Adobe Acrobat Document (.pdf) "ArrFileType (7) =" Compressed (zip) Folder (.Zip) "ArrFileType (8) =" WinRAR archive (.rar) "ArrFileType (9) = "Mga setting ng pagsasaayos (.ini)" ArrFileType (10) = "GIF File (.gif)" ArrFileType (11) = "PNG File (.png)" ArrFileType (12) = "JPG File (.jpg) "ArrFileType (13) =" MP3 Format Sound (.mp3) "ArrFileType (14) =" M3U File (.m3u) "ArrFileType (15) =" Rich Text Format (.rtf) "ArrFileType (16) =" MP4 Video (.mp4) "ArrFileType (17) =" Video Clip (.avi) "ArrFileType (18) =" Windows Media Player (.mkv) "ArrFileType (19) =" SRT File (.srt) "ArrFileType (20) = "PHP File (.php)" ArrFileType (21) = "Firefox HTML Document (.htm, .html)" ArrFileType (22) = "Cascading Style Sheet Document (.css)" ArrFileType (23) = "JScript Script File (.js)" ArrFileType (24) = "XML Document ( .xml) "ArrFileType (25) =" Windows Batch File (.bat) "Sheet2.FileTypesListBox.List = ArrFileType End Sub 

Ipasok ang mga checkbox gamit ang parehong “Isingit"Utos sa"Mga Kontrol”Pangkat sa“Developer”Tab at baguhin ang mga pag-aari para sa ipinasok 'Mga Checkbox' gamit 'Ari-arian' magagamit ang utos sa parehong pangkat pagkatapos piliin ang mga bagay.

Ipasok ang mga pindutan ng utos gamit ang 'Ipasok' magagamit ang utos sa parehong pangkat at baguhin ang mga pag-aari tulad ng a caption at iba pang mga pag-aari din.

Nabuo namin ang buong istraktura. Ngayon kailangan naming isulat ang code.

Buhayin ang 'Mode ng Disenyo' at mag-right click sa "Kunin ang lahat ng mga detalye ng mga file"Na pindutan upang piliin ang"Tingnan ang Code”Mula sa menu ng konteksto upang idagdag ang code para sa pindutan.

Idedeklara muna namin ang ilang variable sa modyul.

Nasa ibaba ang code na idinagdag sa isang "Kunin ang lahat ng mga detalye ng mga file”Pindutan.

Code:

 Pribadong Sub FetchFilesBtnCommand Button_Click () iRow = 14 fPath = En environment ("HOMEPATH") & "\" & SelectTheFolderComboBox.Value Kung fPath "" Kung gayon Itakda ang FSO = Bagong Scripting.FileSystemObject Kung FSO.FolderExists (fPath) Mali FreSO Set Source. GetFolder (fPath) Kung Sheet2. KasamaSubFoldersCheckBox.Value = True Pagkatapos IsSubFolder = True Else IsSubFolder = Mali Kung SourceFolder.Files.Count = 0 Kung gayon MsgBox "Walang mga file na umiiral sa Folder na ito" & vbNewLine & vbNewLine & "Suriin ang iyong landas sa folder at Subukan Muli !! ", vbInformation Exit Sub End Kung Nagtatapos Kung Tumawag ClearResult Kung FetchAllTypesOfFilesCheckBox.Value = True Then Call ListFilesInFolder (SourceFolder, IsSubFolder) Call ResultSorting (xlAscending," C14 "," D14 "," E14 ") ElseX ListtileFileInFource , IsSubFolder) Call ResultSorting (xlAscending, "C14", "D14", "E14") Tapusin Kung FilesCountLabel.Caption = iRow - 14 Else MsgBox "Napiling Daan Ay Hindi Umiiral !!" & vbNewLine & vbNewLine & "Piliin ang Tamang Isa at Subukang Muli !!", Pagtatapos ng Impormasyon Kung Iba Pa MsgBox "Folder Path Hindi Maaaring Walang Emote !!" & vbNewLine & vbNewLine & "", vbInformation End Kung End Sub 

Tukuyin ang 'ClearResult' pagpapaandar sa modyul. Upang ipasok ang module, piliin ang 'ThisWorkbook' tapos 'Ipasok' at pagkatapos 'Modyul "'.

Isulat ang sumusunod na code sa modyul.

Code para sa ClearResult

Mayroong higit pang mga subroutine tulad ng 'ListFilesInFolder', 'ListFilesInFolderXtn', 'ResultSorting', tutukuyin namin ang lahat ng mga sub na gawain sa modyul.

'ListFilesInFolder'

Code:

 Public Sub ListFilesInFolder (SourceFold Bilang Scripting. Folder, Isama ang Mga Subfolder Bilang Boolean) Sa Error Ipagpatuloy Susunod Para sa Bawat FileItem Sa SourceFolder. Ang mga file file na ipinapakita ng mga file ng Cells (iRow, 2) .Formula = iRow - 13 Cells (iRow, 3). Mga FileItem.Name Cells (iRow, 4) .Formula = FileItem.Path Cells (iRow, 5) .Formula = Int (FileItem.Size / 1024) Cells (iRow, 6) .Formula = FileItem. Type Cells (iRow, 7) .Formula = FileItem.DateLastModified Cells (iRow, 8) .Select Selection.Hyperlinks.Add Anchor: = Selection, Address: = _ FileItem.Path, TextToDisplay: = "Click Here to Open" 'Cells (iRow, 8) .Formula = "= HYPERLINK (" "" & FileItem.Path & "" "," "" & "Mag-click Dito upang Buksan ang" & "" ")" iRow = iRow + 1 'susunod na row number Susunod na FileItem Kung Isama ang Mga Subfolder Pagkatapos Para sa bawat SubFolder Sa SourceFolder.SubFolders ListFilesInFolder SubFolder, Tunay na Susunod na SubFolder Nagtatapos Kung Itakda ang FileItem = Walang Itakda na SourceFolder = Walang Itakda FSO = Walang Katapusan Sub 

'ListFilesInFolderXtn'

 Public Sub ListFilesInFolderXtn (SourceFold Bilang Scripting. Folder, Isama ang Mga Subfolder Bilang Boolean) Sa Error Ipagpatuloy Susunod na Dim FileArray Bilang Variant FileArray = Get_File_Type_Array Para sa Bawat FileItem Sa SourceFold.Files Tumawag ReturnFileType (FileItem.Type, FileArrayEx) 2) .Formula = iRow - 13 Cells (iRow, 3) .Formula = FileItem.Name Cells (iRow, 4) .Formula = FileItem.Path Cells (iRow, 5) .Formula = Int (FileItem.Size / 1024) Mga Cell (iRow, 6) .Formula = FileItem.Type Cells (iRow, 7) .Formula = FileItem.DateLastModified Cells (iRow, 8). Piliin ang Selection.Hyperlinks.Add Anchor: = Selection, Address: = _ FileItem.Path, TextToDisplay : = "Click Here to Open" 'Cells (iRow, 8) .Formula = "= HYPERLINK (" "" & FileItem.Path & "" "," "" & "Click Here to Open" & "" ")" iRow = iRow + 1 'susunod na numero ng hilera Nagtatapos Kung Susunod na FileItem Kung May Kasamang Mga Subfolder Pagkatapos Para sa Bawat SubFolder Sa SourceFolder. Listahan ng Mga SubFoldersFileInFolderXtn SubFolder, Tunay na Susunod na SubFolder Nagtatapos Kung Itakda ang FileItem = Walang Itakda na SourceFolder = Walang Itakda FSO = Walang Katapusan Sub 

'ResultSorting'

 Sub ResultSorting (xlSortOrder Bilang String, sKey1 Bilang String, sKey2 Bilang String, sKey3 Bilang String) Saklaw ("C13"). Piliin ang Saklaw (Selection, Selection.End (xlDown)). Piliin ang Saklaw (Selection, Selection.End (xlToRight) ). Piliin ang Pinili. Pagsunud-sunurin Key1: = Saklaw (sKey1), Order1: = xlSortOrder, Key2: = Saklaw (sKey2 _), Order2: = xlAscending, Key3: = Saklaw (sKey3), Order3: = xlSortOrder, Header _: = xlGuess, OrderCustom: = 1, MatchCase: = Mali, Orientation: = xlTopToBottom _, DataOption1: = xlSortNormal, DataOption2: = xlSortNormal, DataOption3: = _ xlSortNormal Range ("B14"). Piliin ang End Sub 

Sa 'ListFilesInFolderXtn' subroutine, tumawag kami ng isang pagpapaandar na pinangalanan 'ReturnFileType' at 'GetFileTypeArray', kailangan nating tukuyin ang mga pagpapaandar sa parehong module.

'ReturnFileType'

Code:

 Public Function ReturnFileType (fileType Bilang String, FileArray Bilang Variant) Bilang Boolean Dim i As Integer IsFileTypeExists = Mali Para sa i = 1 To UBound (FileArray) + 1 Kung FileArray (i - 1) = fileType Pagkatapos IsFileTypeExists = True Exit For Else IsFileTypeExists = True Exit For Else IsFileTypeExists = True Exit For Else IsFileTypeExists = True Exit For Else IsFileTypeExists Maling Wakas Kung Susunod na Pag-andar ng Susunod 

'GetFileTypeArray'

Code:

Public Function Get_File_Type_Array () Bilang Variant Dim i, j, TotalSelected Bilang Integer Dim arrList () Bilang String TotalSelected = 0 Para sa i = 0 To Sheet2.FileTypesListBox.ListCount - 1 Kung Sheet2.FileTypesListBox.Selected (i) = True Pagkatapos TotalSelected = TotalSelected + 1 End Kung Susunod na ReDim arrList (0 To TotalSelected - 1) Bilang String j = 0 i = 0 Para sa i = 0 To Sheet2.FileTypesListBox.ListCount - 1 Kung Sheet2.FileTypesListBox.Selected (i) = True Pagkatapos arrList (j ) = Kaliwa (Sheet2.FileTypesListBox.List (i), InStr (1, Sheet2.FileTypesListBox.List (i), "(") - 1) j = j + 1 Wakas Kung Susunod na Get_File_Type_Array = arrList End Function 

Mayroon kaming isang pindutan ng utos na naka-caption bilang 'I-export sa Excel File', kailangan naming isulat ang code para sa pindutan na ito tulad ng sumusunod:

Sa Modyul, tukuyin ang subroutine na pinangalanan 'I-export_to_excel'.

Code:

 Sub Export_to_excel () Sa Error GoTo err Dim xlApp As New Excel. Application Dim xlWB As New Workbook Set xlWB = xlApp.Workbooks.Add 'xlWB.Add xlApp.Visible = False ThisWorkbook. Aktibo ang Saklaw ("B13"). Piliin ang Saklaw ( Selection, Selection.End (xlDown)). Piliin ang Saklaw (Selection, Selection.End (xlToRight)). Piliin ang Selection.Copy xlApp.Visible = True xlWB. Gawin ang xlWB.Sheets ("Sheet1"). Piliin ang xlWB.Sheets (" Sheet1 "). Saklaw (" B2 "). I-paste ang Espesyal na I-paste: = xlPasteValues ​​xlWB. Mga Sheet (" Sheet1 "). Mga Cell. Piliin ang xlWB. Mga Sheet (" Sheet1 "). Mga Cell .EntireColumn.AutoFit xlWB.Sheets (" Sheet1 ") .Range ("B2"). Piliin ang Exit Sub err: MsgBox ("Error Nagkaroon habang nag-e-export. Subukang muli") End Sub 

Mayroon kaming isa pang utos na utos na naka-caption bilang 'I-export sa Text File'. Isusulat namin ang code para sa command button tulad ng sumusunod:

Sa code na ito, makikita natin na mayroon kaming form ng gumagamit, na kailangan naming idisenyo gamit ang mga sumusunod na hakbang:

Mag-right click sa 'Sheet2 (Halimbawa2)' sheet at pumili 'Ipasok' at pagkatapos 'UserForm' mula sa menu.

Idisenyo ang UserForm gamit ang mga tool mula sa toolbox.

Nagamit na namin 'Mga Label', 'Combo Box', 'Text Box' at 'Mga pindutan ng utos' para sa Userform at binago ang caption at pangalan para sa lahat ng mga bahagi.

Para sa una pindutan ng utos (OK), kailangan naming isulat ang code tulad ng sumusunod:

Code:

 Pribadong Sub Command Button1_Click () Madilim ang iSeperator Bilang String Kung ComboBox1.Value = "Iba Pa" Pagkatapos iSeperator = TextBox1.Value Iba Pa iSeperator = ComboBox1.Value Nagtatapos Kung Kung iSeperator = "" Kung Kung MsgBox ("Hello Wala kang napiling anumang delimeter." & vbNewLine & vbNewLine & _ "Napakahirap basahin ang file ng Text, nang walang tukoy na tagatanggal", vbYesNo) = vbYes Then Call textfile (iSeperator) Else Exit Sub End If Else Select Case ComboBox1.ListIndex Case 0: iSeperator = " , "Kaso 1: iSeperator =" | " Kaso 2: iSeperator = "vbTab" Kaso 3: iSeperator = ";" Tapusin Piliin ang textfile ng Tawag (iSeperator) I-unload ako ng End Kung End Sub 

Tumawag na kami 'text file' gumana sa subroutine para sa command button na ang dahilan kung bakit kailangan nating tukuyin 'text file' pagpapaandar sa modyul.

Code:

 Sub textfile (iSeperator As String) Dim iRow, iCol Dim iLine, f ThisWorkbook. Aktibo ang Saklaw ("B13"). Piliin ang TotalRowNumber = Saklaw (Selection, Selection.End (xlDown)). Bilangin - 12 Kung ang iSeperator "vbTab" Pagkatapos Buksan ThisWorkbook.Path & "\ File1.txt" Para sa Output Bilang # 1 Print # 1, "" Close # 1 Buksan ang ThisWorkbook.Path & "\ File1.txt" Para sa Append As # 1 Para sa iRow = 13 To TotalRowNumber iLine = "" Para sa iCol = 2 To 7 iLine = iLine & iSeperator & Cells (iRow, iCol). Halaga Susunod na Pag-print # 1, iLine Susunod Isara # 1 Ibang Buksan ang ThisWorkbook.Path & "\ File1.txt" Para sa Output Bilang # 1 Print # 1 , "" Close # 1 Buksan ang ThisWorkbook.Path & "\ File1.txt" Para sa Append Bilang # 1 Para sa iRow = 13 To TotalRowNumber iLine = "" Para sa iCol = 2 To 7 iLine = iLine & vbTab & Cells (iRow, iCol) .Value Susunod na Pag-print # 1, iLine Susunod Isara # 1 Tapusin Kung f = Shell ("C: \ WINDOWS \ notepad.exe" & ThisWorkbook.Path & "\ File1.txt", vbMaximizedFocus) MsgBox "Ang iyong File ay nai-save sa" & ThisWorkbook.Path & "\ File1.txt" End Sub 

Para kay command button 2 (Kanselahin), kailangan nating isulat ang sumusunod na code. Mag-double click sa button na kanselahin upang isulat ang code.

Para sa Combo Box para sa pagpili ng isang specifier, isulat ang sumusunod na code.

Para sa UserForm, isulat ang sumusunod na code.

Para sa 'Kunin ang lahat ng uri ng mga file' checkbox, isulat ang sumusunod na code.

Para sa 'Kahon ng listahan' para sa mga uri ng file, isulat ang sumusunod na code.

Para kay 'SelectTheOrder' combo box, isulat ang sumusunod na code.

Code:

 Pribadong Sub SelectTheOrderComboBox_Change () Piliin ang Kaso (SelectTheOrderComboBox.Value) Kaso "Ascending" Kung SortByComboBox.Value = "File Name" Pagkatapos Tumawag ResultSorting (xlAscending, "C14", "E14", "G14") Magtatapos Kung SortByComboBox.Value = "Uri ng File" Pagkatapos Tumawag ResultSorting (xlAscending, "F14", "E14", "C14") Tapusin Kung Kung SortByComboBox.Value = "Laki ng File" Kung gayon Tumawag sa ResultSorting (xlAscending, "E14", "C14", "G14" ) Tapusin Kung Kung SortByComboBox.Value = "Huling Nabago" Pagkatapos Tumawag ResultSorting (xlAscending, "G14", "C14", "E14") Tapusin Kung Kaso "Bumababa" Kung SortByComboBox.Value = "File Name" Pagkatapos Tumawag ResultSorting (xlDescending , "C14", "E14", "G14") Tapusin Kung Kung SortByComboBox.Value = "Uri ng File" Pagkatapos Tawagin ang ResultSorting (xlDescending, "F14", "E14", "C14") Magtatapos Kung Kung SortByComboBox.Value = " Laki ng File "Pagkatapos Tumawag ResultSorting (xlDescending," E14 "," C14 "," G14 ") Tapusin Kung Kung SortByComboBox.Value =" Huling Binago "Pagkatapos Tawagin ang ResultSorting (xlDescending," G14 "," C14 "," E14 ") Tapusin Kung Kaso Default Exit Sub End Piliin ang End Sub 

Para kay 'Sortby' combo box, isusulat namin ang sumusunod na code.

Code:

 Pribadong Sub SortByComboBox_Change () Piliin ang Kaso (SelectTheOrderComboBox.Value) Kaso "Ascending" Kung SortByComboBox.Value = "File Name" Pagkatapos Tumawag ResultSorting (xlAscending, "C14", "E14", "G14") Magtatapos Kung SortByComboBox.Value = "Uri ng File" Pagkatapos Tumawag ResultSorting (xlAscending, "F14", "E14", "C14") Tapusin Kung Kung SortByComboBox.Value = "Laki ng File" Kung gayon Tumawag sa ResultSorting (xlAscending, "E14", "C14", "G14" ) Tapusin Kung Kung SortByComboBox.Value = "Huling Nabago" Pagkatapos Tumawag ResultSorting (xlAscending, "G14", "C14", "E14") Tapusin Kung Kaso "Bumababa" Kung SortByComboBox.Value = "File Name" Pagkatapos Tumawag ResultSorting (xlDescending , "C14", "E14", "G14") Tapusin Kung Kung SortByComboBox.Value = "Uri ng File" Pagkatapos Tawagin ang ResultSorting (xlDescending, "F14", "E14", "C14") Magtatapos Kung Kung SortByComboBox.Value = " Laki ng File "Pagkatapos Tumawag ResultSorting (xlDescending," E14 "," C14 "," G14 ") Tapusin Kung Kung SortByComboBox.Value =" Huling Binago "Pagkatapos Tawagin ang ResultSorting (xlDescending," G14 "," C14 "," E14 ") Tapusin Kung Kaso Default Exit Sub End Piliin ang End Sub 

Sinulat na namin ang buong code. Maaari na nating piliin ang nais na folder at uri ng file at alamin ang listahan para sa mga file, na maaari naming pag-uri-uriin, sa pamamagitan ng 'File Name', 'Type ng File', 'Laki ng File' o 'Huling Nabago' at mai-export ang listahan sa excel o text file.

Bagay na dapat alalahanin

Kung ang halaga, na tinukoy namin para sa 'Nakakainggit' Ang argument ay wala sa talahanayan ng string ng kapaligiran, ibabalik ng pagpapaandar ng ENVIRON ang zero-length string.