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。

Somebudy知道如何让这件事发挥作用吗？

为你的时间干杯和欢呼

马克

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（）函数检查文件夹中的文件。