Dim
path, link, folderName
As
String
path =
"\\Pfad zum SharePoint"
folderName = "\reports\"
Dim
fsO1
As
Object
Dim
f1
As
Object
Dim
strDat1
As
String
Dim
dt1
As
Date
Dim
strName1
As
String
Dim
strPfad1
As
String
Dim
strPfadDatei1
strPfad1 = path & folderName
Set
fsO1 = CreateObject(
"Scripting.FileSystemObject"
)
strDat1 = Dir(strPfad1)
Do
While
Len(strDat1) > 0
Set
f1 = fsO1.GetFile(strPfad1 & strDat1)
If
dt1 < f1.dateCreated
Then
dt1 = f1.dateCreated
strName1 = f1.name
End
If
strDat1 = Dir()
Loop
link =
"http:"
& strPfad1 & strName1
link = Replace(link,
"\", "
/")
Workbooks.Open link
ActiveWorkbook.SaveCopyAs ThisWorkbook.path &
"\materials"
& folderName & ActiveWorkbook.name
Debug.Print link
ActiveWorkbook.Close