如果用戶沒有寫訪問權限，則替代 Dir() 檢查網絡文件是否存在

Question

我正在嘗試禁止出現以下消息框，或者如果確實發生，則將其 go 放到錯誤消息行中。 “對不起，我們找不到xxx，如果它被移動了……”

通常我會檢查 dir(Folderpath & Filename) <> 0。但是，這些文件位於 sharepoint 服務器上。 因此，無論文件是否存在，我都會收到運行時 52 錯誤：“錯誤 52：錯誤的文件名或編號。” 啟動指向網絡 SysData 目錄的 FRx 安裝時會發生此錯誤。"

如果文件存在，我感到困惑的是下面的代碼片段有效。

Set stateWb = Workbooks.Open(folderPath & fileName)

但是，如果它不存在，我會收到“抱歉，我們找不到 xxx，如果它被移動了，是否有可能......”。 目標是，如果 workbooks.open 失敗，go 會出現錯誤消息並打印以下 msgBox“State 數據不可用”。

目前，它會給出消息“抱歉，我們找不到 xxx，如果它被移動了……”並且還會產生 msgbox“State 數據不可用”。

想法？

Answer 1

您可以使用以下方法避免“抱歉，我們找不到 xxx，如果它被移動了……”錯誤：

On Error GoTo error_Check

...code...

Set stateWb = Workbooks.Open(folderPath & fileName)

...code...

error_Check:
MsgBox "State Data not available"

但是，在這種情況下，程序中的任何錯誤都會在這里 go 所以......