Я хочу написать скрипт, который открывает два последних измененных файла в папке 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