Saving Files to SharePoint (teams)

[cowells]

Hello!

looking for a bit of help. I have a file that resides inside a folder on SharePoint site which I have access to. The file is called master file, I run a macro inside this master file to load a number of worksheets into it for analysing. Once the analysing is finished I want to save a copy the file back to SharePoint with the name appended with today’s date or a date to be agreed. So I have a record of the changes made during the analysis phase. Leaving the master intact as I have further macro that runs on a button click, to clear the master. Once, all the analysis is completed. Leaving the file ready for the next import in a weeks time.

Struggling to find a code to do thisi, with maybe asave as feature or save new file even. watch, can anybody help? Or point me in the right direction.

Thanks in advance.

 

[spencer_time]

Question, can you save to this SharePoint location the same way you save to a directory to your computer? e.g. File>save as>{browse to location}>{enter name}>save

 

[cowells]

Question, can you save to this SharePoint location the same way you save to a directory to your computer? e.g. File>save as>{browse to location}>{enter name}>save

Good question!

I don’t think so, as file explorer doesn’t see the SharePoint site. However I can get a link to the site that allows me to copy the files I mentioned into the workbook…

it uses https://site.SharePoint….etc

 

[spencer_time]

I've thought a bit and did a quick search but wasn't able to make anything of it. I have a snippit of code that I put in some of my workbooks that does what you're asking locally, I will grab it and post it here just in case when I get home, but again...it's not exactly what you're looking for.

 

[spencer_time]

Here is the date snippit, but again, I believe it only works locally.

Option Explicit

Sub fileSave()
Dim path As String, FileName As String, OldFileName As String
path = ThisWorkbook.path
OldFileName = Left(ThisWorkbook.name, InStr(ThisWorkbook.name, ".") - 1)
FileName = Format(Date, "ddmmyyyy") & OldFileName 'Format of the filename to save; Date & Original filename without extension
ThisWorkbook.SaveAs path & "\" & FileName & ".xlsm"
'uncomenting will delete original after making new file.
'Kill path & "\" & OldFileName & ".xlsm"
End Sub

 

[spencer_time]

Here you go, my snippit in combination with the "save to sharepoint with file explorer" from this site should get you sorted.
6 ways to save files to SharePoint - SharePoint Maven

 

[cowells]

Thanks, will review further as I cant seem to get it to save to Sharepoint only local.