vba - 如果正在使用工作簿，请引用打开工作簿并创建错误消息

Question

嗨，我有下面的代码，我想引用该工作簿，以便可以从已打开的工作簿中复制和粘贴数据。但是，我正在努力正确地引用工作簿。有人可以帮忙吗？ :)

文件名为“Pics＆Benefits上传file.xlsm”

    Workbooks.Open Filename:= _
    "U:\FBS\PROJECTS_TEAM\MI\Sean's Projects\PICS and Benefits\Pics & Benefits upload file.xlsm"

Dim PicsFile As String
PicsFile = "Pics & Benefits upload file.xlsm"

如果文件名“Pics＆Benefits upload file.xlsm”中当前存在其他人，我也希望出现一条错误消息，即如果文件中有另一个用户，它将退出宏。 (我不太确定该怎么做)

谢谢

Answer 1

除了Mielks答案，该答案将允许您引用正确的工作簿-在同一行中，您还可以将文件打开为只读。

这段代码将告诉您文件是否已打开-返回TRUE或FALSE(如果文件不存在，它还将返回TRUE-两种方式都将说明您可以使用该文件名和位置执行任何操作)。

Public Function FileIsOpen(FullFilePath As String) As Boolean

    Dim ff As Long

    On Error Resume Next

    ff = FreeFile()
    Open FullFilePath For Input Lock Read As #ff
    Close ff
    FileIsOpen = (Err.Number <> 0)

    On Error GoTo 0

End Function

Public Sub test()

    If FileIsOpen("S:\Bartrup-CookD\MyTestFile.xls") Then
        MsgBox "That file's open, or doesn't exist - do something else."
    End If

End Sub