VBA 打开文件名未知的 csv 文件

Question

我想我有一个相当简单的问题，但我自己找不到。

我想在定义的活页夹中打开一个 csv 文件，但文件名未知。我认为它应该与简单的"path/*.csv"一起使用，但它并不:( 错误消息显示"文件名错误"。我需要在 VBA 中使用其他东西吗？

path = ActiveWorkbook.path & "input"
Open path & "*.csv" For Binary As #1

上面的代码对我不起作用:(CSV 称为 xyz.csv

path = ActiveWorkbook.path & "input"
Open path & "xyz.csv" For Binary As #1

上面的代码正在工作，但是我已经修复了添加了csv文件名，在本例中为xyz。

有人知道如何让那个东西工作吗？

为你的时间干杯和感谢

马克

Answer 1

Dim path As String
Dim csvFiles As String
path = ActiveWorkbook.path & "input"
csvFiles = Dir(path & "*.csv")
Do While Len(csvFiles) > 0
  Debug.Print csvFiles
  csvFiles = Dir
Loop

如果您不知道文件名，可以使用 Dir(( 函数检查文件夹中的文件。