VBA查找variables文件夹名称中的所有CSV文件

我有一个项目来创buildVBA来查找并打开一个名为当前月份的文件夹中的所有CSV文件。 我在网上发现了一些看起来很接近但不完全的东西。 他们最终将被转换为XLSX文件并进行parsing。 我有这个部分。 转换，parsing和保存的macros将沿着相同的path安置在不同的文件中，但不是“深”的。

所以在我的桌面上是一个文件夹名称“CSV查找testing”。 里面有两个文件夹“二月”和“三月”。 我需要它在最近一个月内打开所有的CSV文件。 我有其余的语法。 。 。 。 。

我不会想象这将需要大量的语法。 感谢任何方向。

Sub OpenFile() FileMonth = Month(Date) FileDate = Format(Date, "mmmm") FilePath = "C:\Users\Me\Desktop\CSV find convert tests\" & FileMonth & "\" & FileDate & ".xls" Workbooks.Open Filename:="FilePath" <- - - - error happens here. End Sub 

Answer 1

我不认为你真的了解variables是如何工作的，因为你一直把它放在一个string中。 如果你把东西放在双引号中，它会创build一个string。 以下是如何通过variables将月份添加到string。

 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