Excel VBA帮助-通过VBA更新Sharepoint文件

我正在尝试使用VBA更新sharepoint文件，本质上这是一个员工将提交给其经理的计划，经理单击按钮批准该计划，这将更新sharepoint中的跟踪程序。我在下面有我的代码，并记下了我被卡住的地方。希望有人能给我指出正确的方向！非常感谢

由项目经理再次批准项目（）
Dim EmployeeName作为字符串
EmployeeName=工作簿（“L&D Template.xlsm”）.工作表（“Sheet1”）.范围（“A3”）.值
'转到sharepoint，将L&D tracker作为桌面应用程序打开这是我遇到的问题：(
'sharepoint中的文件名称为L&D Tracker.xlsm
变暗rng As范围
Set rng=工作簿（“L&D Tracker.xlsm”）。工作表（“2021-Q1”）。范围（“B4”、“B62”）
对于rng中的每个单元
如果Cell.Value=EmployeeName，则
单元格偏移量（0，1）.Value=“Y”
单元格偏移量（0,3）.Value=“Y”
如果结束
下一个细胞
端接头

您应该能够使用

工作簿打开工作簿。打开（URLhere）

，更新，然后将其保存为正常：

由项目经理再次批准项目（）
Dim EmployeeName作为字符串，wbMain作为工作簿，m，rng作为范围
'您可以使用'ThisWorkbook'引用运行代码的工作簿
EmployeeName=此工作簿。工作表（“Sheet1”）。范围（“A3”）。值
'转到sharepoint，将L&D tracker作为桌面应用程序打开
'sharepoint中的文件名称为L&D Tracker.xlsm
设置wbMain=工作簿。打开（“https://contoso.sharepoint.com/Departments/DeptName/Trackers/Main%20Tracker.xlsx")
设置rng=wbMain.Sheets（“数据”）范围（“B4:B62”）
“Match（）比循环快
m=Application.Match（EmployeeName，rng，0）
如果不是IsError（m），则
'如果m不是一个错误值，那么我们得到了一个匹配
带rng.单元（m）
.Offset（0，1）。Value=“Y”
.Offset（0,3）。Value=“Y”
以
其他的
MsgBox“Employee'”和EmployeeName&“未找到！”
如果结束
wbMain，保存
wbMain，关闭
端接头

您可能需要对URL进行一些试验-您可以使用Excel中的文件>>打开来尝试您的编辑。
例如，我是从SharePoint中的“复制链接”功能获得的

https://contoso.sharepoint.com/:x:/r/Departments/DeptA/App%20Docs/App1/Content%20with%20Dates.xlsx?d=w76f80cf0301743068965e28fea4a1440&csf=1&web=1&e=MxhUda

这是我编辑的

---

https://contoso.sharepoint.com/Departments/DeptA/App%20Docs/App1/Content%20with%20Dates.xlsx

您好，Tim，那么就Sharepoint路径而言，我该如何按照您在上面指定的格式获取它？这是我直接从文档本身复制的内容，但它似乎不起作用“”请参见上面的URL