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

我正在尝试使用以下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

我做错什么了吗？

---

有人能告诉我哪里出了问题吗？

请删除下面的行，因为这是不必要的

i = i + 1

---

i=1到10的

行是循环的开始，将
i
设置为
1
，并在每次迭代中将其递增
1
（除非
步骤
另有规定），直到达到
10

循环从
1
开始，用
1
创建
Msgbox
，然后用
i=i+1
行手动将
i
增加到
2
。然后，它返回到循环的开始，默认情况下，根据设计，通过
1
再次增加
i
，将其设置为
3

删除手动的
i=i+1
incrementation并允许循环为您执行此操作