Saving Excel Workbook to Sharepoint

Santude

New Member
Joined
Jul 28, 2012
Messages
18
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:

1701661480141.png


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....
 

Excel Facts

What did Pito Salas invent?
Pito Salas, working for Lotus, popularized what would become to be pivot tables. It was released as Lotus Improv in 1989.
Your question is answered but I still want to answer this:
Question, could my issue be stemming from the internet browser? It works great on Microsoft Edge, but not on Internet Explorer (IE)?
Not sure how your browser is even coming into play here. The VBA is not interacting with the browser. How could this work great on Microsoft Edge when you can't run VBA in a browser?
 
Upvote 0

Forum statistics

Threads
1,223,885
Messages
6,175,186
Members
452,615
Latest member
bogeys2birdies

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top