Откройте два последних измененных файла в Sharepoint - PullRequest
0 голосов
/ 21 января 2020

Я хочу написать скрипт, который открывает два последних измененных файла в папке sharepoint под названием «Test». Это файлы Excel CSV, поэтому они должны открываться в Excel. Это то, что я придумал, похоже, работает для локальной папки, но не для Sharepoint.

Sub test()

    Dim SummaryWB As Workbook
    Dim FileSys, objFile, myFolder, c As Object
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim strFilename, strFilename2
    FolderName = ("https://sharepoint.com/sites/Team/Shared%20Documents/Test")
          Set FileSys = CreateObject("Scripting.FileSystemObject")
           Set myFolder = FileSys.GetFolder(FolderName)

    dteFile = DateSerial(1900, 1, 1)
    For Each objFile In myFolder.Files
        If InStr(1, objFile.Name, ".csv") > 0 Then
            If objFile.DateLastModified > dteFile Then
                dteFile = objFile.DateLastModified
                strFilename2 = strFilename
                strFilename = objFile.Name
            End If
        End If
    Next objFile

    Set wb1 = Workbooks.Open(FolderName & Application.PathSeparator & strFilename)
    Set wb2 = Workbooks.Open(FolderName & Application.PathSeparator & strFilename2)

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...