월에 따라 달라지는 VBA에서 파일 경로를 설정하는 방법은 무엇입니까?

Question

문제가 있습니다. 현재 나는 한 쌍의 VB 모듈을 가지고 있으며, 실행될 때 드롭 다운 목록을 증가시키고 각 옵션의 버전을 드롭 다운 목록에 저장하며 복사본을 인쇄합니다.

지금이 파일 경로를 사용하고 있습니다.

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에는 바우처가있는 사람의 이름 (성, 이름)이 들어 있습니다. 각 이름은 유효성이 검사 된 데이터이며 개별 폴더의 이름과 동일합니다. 현재 스크립트는 해당 폴더에 저장되지만 해당 폴더에는 매월 12 개의 하위 폴더가 있습니다. 올바른 월 폴더에 파일을 저장하는 방법이 있습니까?

셀 I10 이름으로 달 언급하는 유일한 세포이지만, "6월 교통 보상"

의 형식으로 어떤 도움을 주시면 감사하겠습니다. 위의 스크립트는 두 개의 다른 스크립트와 함께 실행되며, 내가 수행해야하는 작업의 95 %를 수행하지만이 최종 장애물을 지나면 프로세스가 100 % 자동화됩니다.

나는 연산자 등을 통해 읽기 및 옵션 제표를 비교하기 위해 노력하고있어,하지만 난 사투를 벌인거야,하고 바라고 여기에 이렇게 많은 글을 읽고 사람이 I10에서 첫 번째 단어를 취함으로써

Answer 1

이 달 얻을 수 있습니다 그런 다음 폴더가 I10에 나타나는 것과 동일한 이름 형식을 사용한다고 가정 할 때 파일 경로에 넣습니다.

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

매트의 머그컵 설명을 사용하여 셀에서 처음으로 2 단어를 사용하도록 업데이트되었습니다.