Я пытаюсь использовать приведенный ниже код, однако я не понимаю, почему он печатает пустое окно сообщения?Кроме того, есть только один на каждый день, и он говорит, что есть 2 файла?
Как эффективно их распечатать, во-вторых, как мне затем использовать это, чтобы открыть лист?
Файлы записываются как samadmin15112018_??????.csv
Где знаки вопроса - это отметка времени, котораяЯ не знаю.
Sub runFA()
Const yourfilepath = "R:\samsdrive\sam\test\"
Dim s As String
Dim x As Integer
Dim v() As String
s = Dir(yourfilepath & "samadmin" & format(Sheets("Name").Range("C3"), "yyyymmdd") & "_*.csv")
v = Split(vbNullString)
Do Until s = ""
x = x + 1
ReDim Preserve v(x + 1)
s = Dir()
Loop
If UBound(v) > 0 Then
MsgBox "There are " & UBound(v) & " workbooks", vbOKOnly
MsgBox v(x + 1)
Else
If v(0) <> "" Then Workbooks.Open (yourfilepath & v(0))
MsgBox ("There are 0 ")
End If
End Sub