Есть три варианта решения:
1. перебор всех файлов с выбором максимального:
Sub Main Dim url$, s$, fName$
url="///Путь/к/папке/*.ods"
s=left(dir(url),3)
Do
fName=left(dir(),3)
If fName="" Then Exit Do
If strComp(fName,s) Then s=fName
Loop
Print str(int(s)+1)+"_отчет.ods"
End Sub
2. в цикле формировать имена файлов и проверять на существование, если последовательность без пропусков, первое отсутствующее имя файла будет искомым.
3. формировать имя файла как номер текущего дня плюс "_отчет.ods". Этот вариант может быть лучшим:
Sub Main
Print str(DatePart("y",now))+"_отчет.ods" 'номер отчёта текущего дня
End Sub
У каждого варианта свои особенности.