VBA to Find CSV Files in Folder by Current Month

[CreativeUsername]

Hi,

I'm trying to get VBA to find the current month folder on a given file path then open all ".csv" items in that folder. I had code that die something similar with in a given folder. Now the folder is a variable. If I put "March" in the file path it finds it and opens it obviously. What want to do is swap "March" with a "ThisMonth" variable. but I'm missing something. Several versions haven't worked.

Sub OpenCSVs()
Dim MyFiles As String, ThisMonth As String
ThisMonth = Month(Date,"mmmm")
MyFiles = Dir("C:\Users\ME\Desktop\CSV find convert tests\ThisMonth\*.csv")
Do While MyFiles <> ""
Workbooks.Open "C:\Users\ME\Desktop\CSV find convert tests\ThisMonth\" & MyFiles
'ActiveWorkbook.Close SaveChanges:=True
MyFiles = Dir
Loop
End Sub

 

[JMeendering]

Sub OpenCSVs()
Dim MyFiles As String, ThisMonth As String
ThisMonth = Month(Date,"mmmm")
MyFiles = Dir("C:\Users\ME\Desktop\CSV find convert tests\" & ThisMonth & "\*.csv")
Do While MyFiles <> ""
Workbooks.Open "C:\Users\ME\Desktop\CSV find convert tests\" & ThisMonth & "\" & MyFiles
'ActiveWorkbook.Close SaveChanges:=True
MyFiles = Dir
Loop
End Sub

 

[CreativeUsername]

I'm not seeing the difference here from what I posted. How do I make this work?

 

[JMeendering]

To break up a string and insert a variable "this is a string " & this_is_a_variable & " and continue string. "
the & to join in the variable into the string.
the change from the original code is marked in red.

Sub OpenCSVs()
Dim MyFiles As String, ThisMonth As String
   ThisMonth = Month(Date,"mmmm")
   MyFiles = Dir("C:\Users\ME\Desktop\CSV find convert tests\[COLOR=#ff0000]" & ThisMonth & "[/COLOR]\*.csv")
   Do While MyFiles <> ""
       Workbooks.Open "C:\Users\ME\Desktop\CSV find convert tests\[COLOR=#ff0000]" & ThisMonth & "[/COLOR]" & MyFiles
        'ActiveWorkbook.Close SaveChanges:=True
       MyFiles = Dir
   Loop
End Sub

 

[CreativeUsername]

The following works:

Sub OpenCSVs()
Dim MyFiles As String, ThisMonth As String
Dim startPath As String
ThisMonth = Format(Date, "mmmm")
startPath = "C:\Users\ME\Desktop\CSV find convert tests\" & ThisMonth & "\"
MyFiles = Dir(startPath & "*.csv")

Do While MyFiles <> ""

Workbooks.Open startPath & MyFiles

       'Do stuff to it will go here
'ActiveWorkbook.Close SaveChanges:=True (Deactivated for now)

MyFiles = Dir

Loop

End Sub