檢查哪個文件已打開VBA

Question

所有，

我有一個很大的模塊，在前面的部分中，它檢查文件是否正在使用（只讀）格式以及是否正在使用它打開下一個文件。 即，如果文件一正在使用中，則打開文件二，依此類推。

在模塊的后面，我希望使用已打開的文件。 但是，我正在努力確定在自動化的早期部分中打開的文件，並將其設置為WB。

我當前使用的代碼是；

  Dim wb As Object
  On Error Resume Next
  Workbooks("\\Csdatg04\psproject\Robot\Project Preload\Transactions\Transactions1.csv").Activate
  If Err.Number = 0 Then
  wb = GetObject("\\Csdatg04\psproject\Robot\Project Preload\Transactions\Transactions1.csv")
  GoTo skipline
  End If

On Error GoTo 0
On Error Resume Next
Workbooks("\\Csdatg04\psproject\Robot\Project Preload\Transactions\Transactions2.csv").Activate
If Err.Number = 0 Then
wb = GetObject("\\Csdatg04\psproject\Robot\Project Preload\Transactions\Transactions2.csv")
GoTo skipline
End If

 On Error GoTo 0
 On Error Resume Next
 Workbooks("\\Csdatg04\psproject\Robot\Project Preload\Transactions\Transactions3.csv").Activate
 If Err.Number = 0 Then
 wb = GetObject("\\Csdatg04\psproject\Robot\Project Preload\Transactions\Transactions3.csv")
 GoTo skipline
 End If

On Error GoTo 0
On Error Resume Next
Workbooks("\\Csdatg04\psproject\Robot\Project Preload\Transactions\Transactions4.csv").Activate
If Err.Number = 0 Then
wb = GetObject("\\Csdatg04\psproject\Robot\Project Preload\Transactions\Transactions4.csv")
GoTo skipline
End If

skipline:
On Error GoTo 0

誰能建議我如何確定打開哪個文件並將其設置為WB

任何幫助將非常感激。

謝謝

Answer 1

不要嘗試匹配路徑：映射的驅動器和別名會欺騙您的匹配項。

您的匹配項是帶有擴展名的文件名，您可以迭代Excel工作簿集合以查看是否存在匹配的名稱：

Option Explicit

Public Function WorkbookIsOpen(WorkBookName As String) As Boolean
' Returns TRUE if a workbook (or csv file open in Excel) is open

Dim wbk As Excel.Workbook

WorkbookIsOpen = False


If IsError(WorkBookName) Then
    WorkbookIsOpen = False
ElseIf WorkBookName = "" Then
    WorkbookIsOpen = False
Else

    For Each wbk In Application.Workbooks
        If wbk.Name = WorkBookName Then
            WorkbookIsOpen = True
            Exit For
        End If
    Next wbk

End If

End Function

Public Function FileName(FilePath As String) As String

' Returns the last element of a network path
' This is usually the file name, but it mat be a folder name if FilePath is a folder path:

' FileName("C:\Temp\Readme.txt")  returns "ReadMe.txt"
' ?FileName("C:\Temp")            returns "Temp"
' FileName("C:\Temp\")            returns ""


' This function does not perform any file checking - the file need not exist, the path
' can be invali or inaccessible. All we're doing is String-handling.

Dim arr() As String
Dim i     As Integer

If IsError(FilePath) Then
    FileName = "#ERROR"
ElseIf FilePath = "" Then
    FileName = ""
Else
    arr = Split(Trim(FilePath), "\")
    i = UBound(arr)
    FileName = arr(i)
    Erase arr
End If

End Function

然后，只需檢查打開的工作簿是否為只讀打開：

Dim bReadOnly As Boolean

If WorkbookIsOpen("C:Temp\Brian.csv") Then
    bReadOnly = Application.WorkBooks(FileName("C:Temp\Brian.csv")).ReadOnly
End If

如果您需要檢查文件是否在另一個Excel會話或另一個應用程序中未打開，事情將會變得更加有趣：此代碼不會為您測試該文件。

我需要回答您問題的另一點：如果尚未在此會話中打開文件，請在Excel中打開文件 。

我建議為此使用Application.Workbooks.Open(FileName) ，因為它比GetObject()更智能，並且將在Excel中將文件-csv，xml，xls，xlsx作為工作簿打開，Excel會猜測必要的格式參數。 另外，本機的“打開”功能允許您指定其他參數，例如“只讀”。