我必须对字符串的常量列表进行迭代。据我所知,没有
for item in ("foo", "bar", "baz")
doSth(item)
next item
我在想,我怎样才能优雅地规划这样一个结构。
发布于 2016-04-06 13:32:11
优雅吗?你决定吧。
尝试:
Sub test()
Dim x As Variant
For Each x In Array("foo", "bar", "bas")
Debug.Print x
Next
End Sub
发布于 2016-04-06 08:58:51
您的问题有点笼统,但是是的,您可以使用For Each
来做到这一点。我将粘贴一些自己的代码,您将看到它是如何工作的:
Sub Example()
Dim tempFolderStr As String
Dim tempFullStr As String
Dim objFolder As Object
Dim objFile As Object
Dim fs As Object
(...)
Set objFolder = fs.GetFolder(tempFolderStr)
For Each objFile In objFolder.Files
tempFullStr = tempFolderStr & objFile.name
Call Delete_File(tempFullStr)
Next objFile
End Sub
这将遍历它在文件夹tempFolderStr中找到的每个文件。
我将保留指向a固有的MSDN文章的链接:https://msdn.microsoft.com/en-us/library/5ebk1751.aspx
https://stackoverflow.com/questions/36445836
复制相似问题