vba查找使用增量的文件路径？

Question

我尝试使用下面的VBA代码找到我的文件的文件路径：

可以说我有一个名为text.xlsx

这可以存储文件中

G:\Folder\1. 2017 

    Or 

    G:\Folder\2. 2017 

    Or 

    G:\Folder\3. 2017 

    etc 

所以我试图用for循环来检查数字1到10

确保找到路径。

Sub PlannerOpen() 
Dim i As Integer 
For i = 1 To 10 
Path = "G:\Folder\" & i & ". " & Year(Date) & "\" 
MsgBox Path & "*.xlsx" 
i = i + 1 
Next i 

End Sub 

这似乎只生产数字1，3，5和9

我做错什么了吗？ 请有人告诉我我要去哪里？

Answer 1

的For i = 1 to 10线是环的开始，设置i到1并且将在每次迭代通过1增加它（除非Step另有规定），直到达到10。

你的循环开始于1，创建Msgbox与1但你手动增加i到2与线i = i + 1。然后它返回到循环的开始，默认按照设计将i增加1，将其设置为3。

删除您的手册i = i + 1增量并允许循环为您完成。

Answer 2

删除下面线，因为它是没有必要的

i = i + 1