VBA 在变量文件夹名称中查找所有 CSV 文件

Question

我有一个项目来创建 VBA 以查找并打开名为当前月份的文件夹中的所有 CSV 文件。我在网上找到了一些看起来很接近但不完全的东西。它们最终将被转换为 XLSX 文件并进行解析。我有的那部分。转换、解析和保存的宏将被放置在沿相同路径的不同文件中，但不是“深度”。

所以在我的桌面上是一个文件夹名称“CSV 查找测试”。里面有两个文件夹“Feburary”和“March”。我需要它来打开最近一个月的所有 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

我认为你并不真正理解变量是如何工作的，因为你一直把它放在一个字符串中。如果你把一些东西放在双引号中，它会创建一个字符串。下面是如何通过变量将月份添加到字符串中。

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