如何在VBA中设置一个基于月份的文件path？

我有一个问题。 目前我有几个vb模块相互工作，执行时会增加一个下拉列表，将每个选项的版本保存在下拉列表中，并打印出一份副本。

现在我正在使用这个文件path。

Sub G5() 'Update 20141112 Dim Path As String Dim filename As String Path = "C:\Users\MY.Name\Documents\Testing\" & _ Range("G5") & "\" filename = Range("G5") If ActiveSheet.Range("G5").Value = "" Then End If ActiveSheet.Range("G5").Value = "NAMES" Then Exit Sub ActiveWorkbook.SaveAs filename:=Path & filename & "-" & Format(Date, "mmddyyyy") & ".xlsm", FileFormat:=52 End Sub 

所以单元格G5包含这个凭证的人的名字（Last，First）。 每个名称都是数据validation的，并且与其各个文件夹的名称相同。 目前该脚本将保存到他们的文件夹，但在这些文件夹中有12个子文件夹，每个月一个。 有没有办法让我的文件保存到正确的月份文件夹？

单元格I10是唯一按名称提及月份的单元格，但是以“June Transit Reimbursement”

任何帮助，将不胜感激。 上面的脚本和另外两个脚本一起运行，尽pipe我做了95％的工作，但如果能够渡过这个最后的障碍，这个过程将是100％自动化的。

我试图通读Like运算符和选项比较语句，但我很挣扎，并阅读了这么多post后，希望有人可以帮助

Answer 1

从I10中获取第一个字，然后将其放在文件path中，假定您的文件夹使用与I10中显示的相同的名称格式。

 parts = Split(Range("I10"), " ") theMonth = parts(0) & " " & parts(1) Path = "C:\Users\MY.Name\Documents\Testing\" & Range("G5") & "\" & theMonth & "\" 

更新为使用Mat's Mugs评论的单元格中的前两个单词。