For Each...Next 語句

對數組或集合中的每個元素重復執行一組語句。

For Each element In group
[statements]
[Exit For]
[statements]
Next [element]

參數

element

用來枚舉集合或數組中所有元素的變量。對于集合，element 可能是 Variant 變量、通用 Object 變量或任意指定的 Automation 對象變量。對于數組，element 只能是 Variant 變量。

group

對象集合或數組的名稱。

statements

對于 group 中的每一項執行的一條或多條語句。

說明

如果 group 中有至少一個元素，就會進入 For Each 塊執行。一旦進入循環，便首先對 group 中第一個元素執行循環中的所有語句。只要 group 中還有其他的元素，就會對每個元素執行循環中的語句。當 group 中的沒有其他元素時退出循環，然后從 Next 語句之后的語句繼續執行。

Exit For 只能用于 For Each...Next 或 For...Next 控制結構中，提供另一種退出循環的方法。可在循環的任意位置放置任意個 Exit For 語句。Exit For 經常和條件判斷語句一起使用（例如 If...Then），并立即將控制權轉移到 Next 之后的語句。

可以將一個 For Each...Next 循環放置在另一個之中，組成嵌套式 For Each...Next 循環。但是每個循環的 element 必須是唯一的。

注意 如果省略 Next 語句中的 element，則程序仍會象已包含它一樣繼續執行。如果 Next 語句在其相應的 For 語句之前出現，則會產生錯誤。

下面例子舉例說明如何使用 For Each...Next 語句:

Function ShowFolderList(folderspec)  Dim fso, f, f1, fc, s  Set fso = CreateObject("Scripting.FileSystemObject")  Set f = fso.GetFolder(folderspec)  Set fc = f.Files  For Each f1 in fc    s = s & f1.name     s = s & "<BR>"  Next  ShowFolderList = sEnd Function