Excel: Creating a detailed list of all files in a SharePoint folder

[RAECH]

Hi everyone.

I need a code that can go into a specific folder in SharePoint and then create a list of all files in this folder, together with a direct link or Path to that file. I also need the date and time for when it last was modified.

So I need an output like this:


FileName
FilePath (or Link)
Date and Time


Example.xlsx
https://company.sharepoint.com/...etc.
12-06-2021 17:39:40


Example2.xlsx
https://company.sharepoint.com/...etc.
13-06-2021 15:09:12




Today (not in SharePoint) I use the following code to create the list:


Sub ListFiles()

Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer


List.Activate 'My sheet for the list


Range("AndreFiler").Activate 'Where I have my list where I check for postings.
A = 0
For A = 1 To 100
If ActiveCell.Value = "" Then Exit For
With Xmarked(A)
.Navn = ActiveCell.Value
.Bogfør = ActiveCell.Offset(0, -1).Value
.Bogført = ActiveCell.Offset(0, 3).Value
End With
ActiveCell.Offset(1, 0).Activate
Next A


Range("OtherArea").ClearContents 'clear the list area


Set objFSO = CreateObject("Scripting.FileSystemObject")


Set objFolder = objFSO.GetFolder(Range("FilePath"))
i = 1


For Each objFile In objFolder.Files


If objFile.Name = "Thumbs.db" Then GoTo NextIteration


Cells(i + 4, 13) = objFile.Name
Cells(i + 4, 14) = objFile.Path
Cells(i + 4, 15) = FileDateTime(objFile.Path)
i = i + 1


NextIteration:
Next objFile


Range("AndreFiler").Activate 'recreate the list (to check if the files have been updated/posted)
c = 0
For c = 1 To 100
If ActiveCell.Value = "" Then Exit For
b = 0
For b = 1 To 100
If Xmarked(b).Bogfør = "x" Or Xmarked(b).Bogført = "x" Then
If ActiveCell.Value = Xmarked(b).Navn Then
ActiveCell.Offset(0, -1).Value = Xmarked(b).Bogfør
ActiveCell.Offset(0, 3).Value = Xmarked(b).Bogført
End If
End If
Next b
ActiveCell.Offset(1, 0).Activate
Next c


End Sub

Does anyone have a code that can do the same thing with folders in SharePoint?

Best regards
Rasmus