Làm cách nào để biết bảng tính Excel 2007 có mở hay không và WHO mở nó bằng cách sử dụng VBScript

Question

Làm cách nào để biết bảng tính Excel 2007 có mở và WHO mở nó bằng VBScript không?

Tôi đang cố gắng tìm hiểu xem một bảng tính Excel hiện có đang mở bởi một người dùng khác và trả lại người dùng đó là ai trong tập lệnh của tôi hay không.

Tôi đã tìm ra ai để xác định xem sổ làm việc hiện có đang mở hay không. Đó là một cách giải quyết, nhưng về cơ bản tôi mở sổ làm việc và kiểm tra xem nó có phải là chỉ đọc hay không. Điều đó hoạt động hoàn hảo; Tôi đã thử nghiệm nó.

Tôi biết điều này là có thể vì Excel cung cấp cho bạn người dùng có tệp mở nếu bạn mở tệp qua trình duyệt.

Đây là mã của tôi (isWorkbookOpen.vbs):

Set objExcelTestWorkbook = CreateObject("Excel.Application") 
objExcelTestWorkbook.DisplayAlerts = False 'doesn't display overwrite alert 
testWorkbookFile = "I:\test_workbook.xlsx" 
Set objBook = objExcelTestWorkbook.Workbooks.open(testWorkbookFile) 

If objBook.ReadOnly Then 
    Wscript.echo "The file is read only" 
    Call EndScript 
Else 
    Wscript.echo "The file is available" 
    Call EndScript 
End If 

Function EndScript 
    objExcelTestWorkbook.Workbooks.close 
    objExcelTestWorkbook.Quit 
    WScript.Echo "Closed " & testWorkbookFile 
    WScript.Quit 
End Function 

Ngoài ra, tôi chạy từ dòng lệnh:

cscript isWorkbookOpen.vbs 

Answer 1

Đồng nghiệp quan trọng của tôi nhắc tôi về tệp "khóa" của Excel. Khi mở excel, bạn tạo một tệp hệ thống ẩn chứa tên người có tệp mở. Tệp khóa bắt đầu bằng "~ $" trước tên bảng tính. Ví dụ:

Nếu bạn có bảng tính có tên testWorkbook.xlsx, tệp khóa của nó sẽ là ~$testWorkbook.xlsx nằm trong cùng một thư mục.

Đây cũng là phương pháp nhanh hơn và dễ dàng hơn để kiểm tra xem tệp có mở vì bạn không thực sự mở tệp như tôi đã làm trước đây hay không. Bây giờ tôi chỉ kiểm tra xem tệp khóa có tồn tại không và nếu có, tôi kiểm tra xem ai là "chủ sở hữu" của tệp khóa và đó sẽ là người hiện đang mở bảng tính. Hy vọng rằng điều này sẽ giúp một ai đó trong tương lai!

Đây là mã của tôi mà làm việc một cách hoàn hảo:

testWorkbookLockFile = "I:\~$test_workbook.xlsx" 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

If objFSO.FileExists(testWorkbookLockFile) Then 
    WScript.Echo "The file is locked by " & GetFileOwner(testWorkbookLockFile) 
Else 
    WScript.Echo "The file is available" 
End If 

Function GetFileOwner(strFileName) 
    'http://www.vbsedit.com/scripts/security/ownership/scr_1386.asp 
    Set objWMIService = GetObject("winmgmts:") 
    Set objFileSecuritySettings = _ 
    objWMIService.Get("Win32_LogicalFileSecuritySetting='" & strFileName & "'") 
    intRetVal = objFileSecuritySettings.GetSecurityDescriptor(objSD) 

    If intRetVal = 0 Then 
     GetFileOwner = objSD.Owner.Name 
    Else 
     GetFileOwner = "Unknown" 
    End If 
End Function 

tôi muốn chỉ ra rằng tôi đã không viết đủ can đảm Chức năng GetFileOwner. Tôi liên kết với trang web nơi tôi nhận được mã đó trong hàm.

Ngoài ra, nếu bạn không có vị trí được ánh xạ tới bảng tính và trên mạng, đường dẫn UNC sẽ không hoạt động, bạn phải ánh xạ ổ đĩa. Điều này có thể được thực hiện bằng cách sử dụng 2 dòng mã sau:

Set objNetwork = WScript.CreateObject("WScript.Network") 
objNetwork.MapNetworkDrive "Z:", "\\Server1\Share1" 

Hy vọng rằng ai đó sẽ được hưởng lợi từ việc này. Tôi biết không có nhiều thông tin về cách làm điều này trên web vì tôi đã tìm kiếm mãi mãi cho nó!

Answer 2

Bạn đã thử tài sản Workbook.UserStatus? Dưới đây là trích dẫn đoạn mã từ trợ giúp Excel VBA:

users = ActiveWorkbook.UserStatus 
With Workbooks.Add.Sheets(1) 
    For row = 1 To UBound(users, 1) 
    .users = ActiveWorkbook.UserStatus 
With Workbooks.Add.Sheets(1) 
    For row = 1 To UBound(users, 1) 
    .Cells(row, 1) = users(row, 1) 
    .Cells(row, 2) = users(row, 2) 
    Select Case users(row, 3) 
     Case 1 
      .Cells(row, 3).Value = "Exclusive" 
     Case 2 
      .Cells(row, 3).Value = "Shared" 
    End Select 
Next 
End With