Wie Sie sagen, wenn Sie ein Excel 2007-Arbeitsblatt geöffnet ist, und WER hat ihn mithilfe von VBScript zu öffnen

Wie kann ich feststellen, ob eine Excel 2007-Arbeitsblatt geöffnet ist, und WER hat ihn mithilfe von VBScript zu öffnen?

Ich versuche herauszufinden, ob oder nicht eine Excel-Arbeitsmappe wird momentan von einem anderen Benutzer geöffnet und der Rückkehr, wer dieser Benutzer ist in meinem Skript.

Habe ich schon herausgefunden, wer, um zu bestimmen, wenn die Arbeitsmappe geöffnet ist. Es ist ein workaround, aber im wesentlichen habe ich die Arbeitsmappe öffnen und prüfen, ob es schreibgeschützt ist. Das funktioniert perfekt; ich habe es getestet.

Ich weiß, dies ist möglich, da Excel ermöglicht Sie dem Benutzer, der die Datei öffnen, wenn Sie es öffnen über den browser.

Hier ist mein code (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

Auch, ich Lauf von der Kommandozeile aus:

cscript isWorkbookOpen.vbs

Es ist nicht doppelt. , Die post ist zu Fragen, wie um festzustellen, ob eine excel-Tabelle ist bereits geöffnet, die mit meinem code habe ich bereits gezeigt. Ich bin auf der Suche zu bekommen, DIE Sie geöffnet. Ich weiß schon, wie man, WENN es geöffnet ist. Ich könnte es falsch für das was ich Suche obwohl.

InformationsquelleAutor Steven | 2013-03-21

12

Meine Genialen Kollegen daran erinnert, mir über Excel - "lock" - Datei. Beim öffnen von excel, erstellen Sie eine versteckte system-Datei, hält die Personen, die Namen, wer die Datei geöffnet hat. Eine lock-Datei beginnt mit "~$" vor die Arbeitsblatt-Namen. Beispiel:

Wenn Sie eine Tabellenkalkulation namens testWorkbook.xlsx es die lock-Datei wäre ~$testWorkbook.xlsx sich im gleichen Verzeichnis befindet.

Dies ist auch eine schnellere und einfachere Methode, um zu überprüfen, ob die Datei geöffnet ist, da Ihr nicht wirklich die Datei öffnen wie ich es vorher Tat. Jetzt bin ich mal überprüfen, ob die lock-Datei existiert, und wenn es funktioniert, ich überprüfen, wer ist der "Eigentümer", der die lock-Datei und werden die person, die momentan das Arbeitsblatt geöffnet. Hoffentlich hilft jemand in der Zukunft!

Dies ist mein code, der funktioniert einwandfrei:
```
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
```
Will ich darauf hinweisen, dass ich nicht schreiben das GetFileOwner Funktion Eingeweide. Ich habe auf der website verlinkt, wo ich den code in die Funktion.

Auch, wenn Sie nicht den Standort zugeordnet, um die Tabellenkalkulation, und es ist über das Netzwerk, von einem UNC-Pfad wird nicht funktionieren, müssen Sie ein Laufwerk zuordnen. Dies kann getan werden mit den folgenden 2 Zeilen code:
```
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "Z:", "\\Server1\Share1"
```
Hoffentlich wird jemand davon profitieren. Ich weiß, es gibt nicht viel Informationen dazu im web, da habe ich die Suche für immer für Sie!
- Diese Methode ist so genius! Es löste mich großes problem. Vielen Dank für den Austausch!
- BTW, diese Methode funktioniert nur für Excel 2007 und höher version-Dateien; es funktioniert nicht .xls
- Ich habe versucht, mit dieser in VBA und es funktioniert gut auf meinem lokalen Laufwerk C:\ aber wenn Sie diesen code ausführen auf unserem server alle nach der Rückgabe aus der Funktion NULL ist. Und ja, ich habe ein Laufwerk zuordnen, um die Datei, die ich Abfragen auf dem server. Irgendwelche Ideen?
InformationsquelleAutor Steven

Haben Sie versucht, die Arbeitsmappe.UserStatus-Eigenschaft? Hier ist ein code-snippet, das Zitat aus der Excel-VBA-Hilfe:

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

Das gibt mir, was ich Suche, WENN das Tabellenblatt ist derzeit nicht geöffnet. Mein Aktuelles script öffnet die Datei im Read-only und kann nicht abgerufen werden, nichts aus der Arbeitsmappe.UserStatus-Eigenschaft ohne Fehlermeldung erhalten, die besagt Sie nicht auf einen nur-lese-Datei... Nicht sicher, wohin Sie gehen von hier aus.
Never mind ich hatte Hilfe von co-Arbeitskräfte und es herausgefunden.

InformationsquelleAutor Eric

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.