vba Excel-如何檢查SharePoint網站文件是否打開

Question

我在互聯網上搜索了此問題的答案，並一直遇到使它無法正常工作的問題。

我需要檢查以下位置的文件是否已打開/鎖定，然后讓代碼等待15秒鍾，然后重試。 現在，如果其他人打開了文件，則會打開一個對話框，詢問我是否要以只讀方式打開文件，而我不想這樣做。 我嘗試使用Application.DisplayAlerts = False來使消息不出現，但似乎不起作用。 所以我有兩個主要問題：

1. 檢查文件是否打開並等待重試。
2. 阻止對話框打開，要求以只讀方式打開。

Workbooks.Open文件名：= _“ https：// somecorporatewebsite / sites / TNKYWest / Engr / ASE％20Updates / Shared％20Documents / ASENW Updater.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

2. 這部分包含在

   IF workbooks.cancheckout（filename：= docCheckout）= true然后在第1部分中使用workbooks.checkout'方法。