Saving Excel Workbook to Sharepoint

[Santude]

Good evening,

I am trying to save an Excel Workbook to a specific SharePoint Directory. I have copied the SharePoint link and placed it in my code, however I am getting the following error message:

I can paste the copied SharePoint link in a new browser and I am able to access the site. I have copied the the VBA Code I have written below:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Code Start''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub MultiSaveAsCQ()

Dim result As Variant
Dim AtiveBook As Workbook
Dim strPath As String
Dim Path As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False

strPath = "https://goodmanglobal.sharepoint.co...uswr1epBThLmabMnOT5VcwB40EYZ0x_5KY3UzTTQI4srw"

result = Application.GetSaveAsFilename(filefilter:="Excel File (*.xlsm), .xlsm", Title:="Save File As")

If result <> 0 Then

ActiveWorkbook.SaveAs FileName:=result, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End If

ActiveWorkbook.SaveCopyAs strPath + ActiveWorkbook.Name

ActiveWorkbook.Save


Application.ScreenUpdating = True
Application.DisplayAlerts = True


MsgBox ("Your file has been saved!")


End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Code End'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Thank you in advance for any help you can provide....

 

[6StringJazzer]

You could have more than one problem but the one that jumps out is that you need a slash at the end of your path before you add the file name

strPath = "https://goodmanglobal.sharepoint.com/:f:/s/DCBUProposalTool/Euswr1epBThLmabMnOT5VcwB40EYZ0x_5KY3UzTTQI4srw/"

I am not a big fan of using "+" for string concatenation but it does work so that's not causing your problem.

 

[Santude]

Thank you Jeff for your quick response. Unfortunately that did not work, I am still getting the same error.....Although I can say I feel like an idiot for not catching that.

 

[Santude]

Question, could my issue be stemming from the internet browser? It works great on Microsoft Edge, but not on Internet Explorer (IE)?

 

[RoryA]

The :f:/s/ part should not be there.

 

[Santude]

Rory,

That has almost gotten me there! I am getting an error message saying:
Run-Time Error '1004':
Method 'SaveAs' of object_Workbook failed

I changed up my save function to:

strPath = "https://goodmanglobal.sharepoint.co...LmabMnOT5VcwB40EYZ0x_5KY3UzTTQI4srw?e=eTZ1f1/"

ActiveWorkbook.SaveAs FileName:=strPath

If you can help me I would appreciate it!

 

[RoryA]

That path is still wrong. I don't believe a SP path would have all those numbers in it and it certainly couldn't have the question mark. How are you getting the path?

 

[Santude]

There is a Copy Link within SharePoint Directory I am trying to save into. I am trying to save the file without the end user knowing. File names will always be different.

 

[RoryA]

That won't work as a directory. At a minimum you also need to remove the question mark and everything after it from the link.

Click on Details on the right-hand side, then click More details at the bottom of the info window, and then you'll see a Path section with an icon to copy it.

 

[Santude]

YOU ROCK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
If I could, I would buy you a steak dinner!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!