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