VBA用未知文件名打开一个csv文件

Question

我有一个很简单的问题，但我自己却找不到。

我想在已定义的活页夹中打开一个csv文件，但文件名未知。 我想它应该只与“ path / *。csv”一起使用，但是它不是:(错误消息说“ Wrong Filename”。我是否需要在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（）函数检查文件夹中的文件。