vba Excel - 如何检查 SharePoint 网站文件是否打开

Question

我已经在 Internet 上搜索了此问题的答案，但一直遇到问题才能使其正常工作。

我需要检查以下位置的文件是否打开/锁定，然后让代码等待 15 秒，然后重试。现在，如果其他人打开了文件，则会打开一个对话框，询问我是否要以只读方式打开，这是我不想要的。我尝试使用 Application.DisplayAlerts = False 让消息不出现，但这似乎不起作用。所以我有两个主要问题：

1. 检查文件是否打开并等待重试。
2. 阻止对话框打开，要求以只读方式打开。

Workbooks.Open 文件名：= _ "https://somecorporatewebsite/sites/TNKYWest/Engr/ASE%20Updates/Shared%20Documents/ASENWUpdater.xlsx"

Answer 1

1. 试试这样的：

来自 MSDN 网站： https://msdn.microsoft.com/en-us/library/office/ff193284.aspx

Sub UseCanCheckOut(docCheckOut As String) 
Dim docCheckout
set docCheckout="File name to open"
' Determine if workbook can be checked out. 
If Workbooks.CanCheckOut(Filename:=docCheckOut) = True Then 
Workbooks.CheckOut (Filename:=docCheckOut) 
Else 

在 MSDN 网站上找到： https://msdn.microsoft.com/en-us/library/office/ff822851.aspx

Application.Wait(Now + TimeValue("0:00:10")) 
Workbooks.CheckOut (Filename:=docCheckOut) 'Try to check the file out again.
End If 

End Sub

1. 这部分在

   IF workbooks.cancheckout(filename:=docCheckout)=true then workbooks.checkout ' 方法在第 1 部分。