excel - VBS 脚本无法将文件上传到共享点

Question

我正在尝试自动化刷新过程并将 Excel 上传到 SharePoint。脚本刷新excel文件但上传失败。错误：工作簿类的 SaveAs 方法失败。

在此处输入图像描述

下面是代码

Dim wbfn 
Dim wb 
Dim wbRO 
Dim XL

Set XL = CreateObject("Excel.Application")
XL.Visible = True 'Set to True if you need to troubleshoot


wbfn = "C:\Users\****.xlsx"
Set wb = XL.Workbooks.Open(wbfn,,False,,,,True,,,,False)


WScript.Sleep 2000 
On Error Resume Next
wb.LockServerFile 
On Error GoTo 0
wb.RefreshAll

On Error Resume Next
wb.LockServerFile 
On Error GoTo 0
XL.Application.DisplayAlerts = False ' Turn this to false so it will overwrite the file 
XL.ActiveWorkbook.Save
wb.SaveAs ("https://****.xlsx")  


XL.ActiveWorkbook.Close
XL.Application.DisplayAlerts = false
XL.Quit

标签： excelsharepointvbscript