VBA для создания уникального файла Excel и сохранения файла после поиска существующего файла в папке sharepoint

Question

Я действительно изо всех сил пытаюсь найти код, который сохраняет файл ".xlsm" в целевой папке sharepoint после поиска существующего файла в 3 папках. Например, когда я нажимаю макрос «сохранить как», код должен сохранить файл «.xlsm» в целевой папке после поиска существующего файла в 3 папках. Путь к 3 папкам общего ресурса:

Целевая папка: https://xxxx.sharepoint.com/sites/xxxx/qwerty%20zzzz/xxxx/ "

Папка 2: https://xxxx2.sharepoint.com/sites/xxxx/qwerty%20zzzz/xxxx/"

Папка 3: https://xxxx3.sharepoint.com/sites/xxxx/qwerty%20zzzz/xxxx/ "

Проблема в том, что код должен сохранять файл в целевой папке с уникальным порядковым номером каждый раз, когда выполняется макрос, который дает уникальное имя файла.

Теперь у меня есть существующий файл в 3-й папке с уникальным именем «YYYYMMDD-UserdID-1» (порядковый номер) для определенного c дня. Следовательно, когда я запускаю код, затем он ищет файл и видит, что в 3-й папке есть файл с «YYYYMMDD-UserdID-1». Поэтому он создает новое имя файла с «YYYYMMDD-UserdID-2» и сохраняет его в целевой папке. Если во всех 3 папках он не найден, файл должен быть сохранен как «YYYYMMDD-UserdID-1» в целевой папке и закрыт.

На следующий день следует повторить то же самое с начала для новой даты. Существующий код, который я имею w:

Dim path As String
Dim FileName1 As String

path = "https://xxxx.sharepoint.com/sites/xxxx/qwerty%20zzzz/xxxx/"
    FileName1 = Range("$B$2").Text
    ActiveWorkbook.SaveAs Filename:=path & FileName1 & ".xlsm", _
                          FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Application.DisplayAlerts = True
    ActiveWorkbook.Close
End If

End Sub

Было бы очень полезно, если бы кто-нибудь помог мне получить код. Я был бы очень признателен, что