VBA-Skript zu schließen, jede Instanz von Excel, außer sich selbst

Habe ich ein Unterprogramm in mein errorhandling-Funktion, die versucht, zu schließen jeder Arbeitsmappe öffnen Sie in jeder Instanz von Excel. Sonst könnte es bleiben im Speicher, und breche meinen nächsten vbscript. Es sollte auch in der Nähe jeder Arbeitsmappe ohne speichern der änderungen.

Sub CloseAllExcel()
On Error Resume Next
    Dim ObjXL As Excel.Application
    Set ObjXL = GetObject(, "Excel.Application")
    If Not (ObjXL Is Nothing) Then
        Debug.Print "Closing XL"
        ObjXL.Application.DisplayAlerts = False
        ObjXL.Workbooks.Close
        ObjXL.Quit
        Set ObjXL = Nothing
    Else
        Debug.Print "XL not open"
    End If
End Sub

Dieser code ist nicht optimal, jedoch. Zum Beispiel kann es in der Nähe 2 Arbeitsmappen in einer Excel-Instanz, aber wenn Sie 2 Instanzen von excel, es wird nur schließen, aus 1.

Wie kann ich diese umschreiben zu schließen alle Excel ohne speichern der änderungen?

Extra Credit:

Wie dies für den Zugang als auch ohne schließen der Access-Datei, die gehostet wird das script?

Eigentlich läuft das script aus Access. Und da hat niemand beantwortet meine Frage vollständig, ich habe zu restrukturieren, die ganze Sache so, dass es nicht schließen Sie alle Instanzen von Access.

InformationsquelleAutor PowerUser | 2010-08-19

ms-access vba

3

Habe ich gerade versucht, die folgenden mit Excel und Access :
```
Dim sKill As String

sKill = "TASKKILL /F /IM msaccess.exe"
Shell sKill, vbHide
```
Wenn Sie ändern die msaccess.exe zu excel.exe, excel getötet werden.

Wenn Sie wollen etwas mehr Kontrolle über den Prozess, check-out:

http://www.vbaexpress.com/kb/getarticle.php?kb_id=811

Es werden immer noch schließen Sie alle Instanzen von Access, einschließlich sich selbst, aber wenn ich diese ganz am Ende der error-handler, der sollte nicht das problem sein.

InformationsquelleAutor Edward Leno
4

Sollten Sie in der Lage sein zu verwenden, Fenster Griffe dies.
```
Public Sub CloseAllOtherAccess()
    Dim objAccess As Object
    Dim lngMyHandle As Long
    Dim strMsg As String

On Error GoTo ErrorHandler
    lngMyHandle = Application.hWndAccessApp

    Set objAccess = GetObject(, "Access.Application")
    Do While TypeName(objAccess) = "Application"
        If objAccess.hWndAccessApp <> lngMyHandle Then
            Debug.Print "found another Access instance: " & _
                objAccess.hWndAccessApp
            objAccess.Quit acQuitSaveNone
        Else
            Debug.Print "found myself"
            Exit Do
        End If
        Set objAccess = GetObject(, "Access.Application")
    Loop

ExitHere:
    Set objAccess = Nothing
    On Error GoTo 0
    Exit Sub

ErrorHandler:
    strMsg = "Error " & Err.Number & " (" & Err.Description _
        & ") in procedure CloseAllOtherAccess"
    MsgBox strMsg
    GoTo ExitHere
End Sub
```
Scheint es mir GetObject liefert die "ältesten" Access-Instanz. So, der sub schließt alle Zugriff auf Instanzen gestartet wurden, bevor man mit dem sub. Sobald Sie feststellt, Stoppt es. Vielleicht ist das gut für Ihre situation. Aber wenn Sie brauchen, um auch in der Nähe den Zugriff auf Instanzen gestartet, nachdem die Ausführung des Codes, schauen Sie auf die Windows API-Fenster-handle-Funktionen.

Ich habe nicht versucht, diesen Ansatz für Excel. Aber ich sah Excel-Anwendung.Hwnd und Anwendung.Hinstance ... also ich vermute, Sie können tun, etwas ähnliches gibt.

Beachten Sie auch, entledigte ich mich On Error Resume Next. GetObject wird immer wieder ein Application-Objekt in diesem sub, so dass es nicht dazu. Darüber hinaus versuche ich zu vermeiden On Error Resume Next im Allgemeinen.

Update: Seit GetObject nicht der job für Sie tun, verwenden Sie eine andere Methode, um die Fenster-handles aller den Zugriff auf Instanzen. Schließen Sie jede von Ihnen, deren Fenster-handle passt nicht zu der, die Sie verlassen wollen laufen (der Anwendung.hWndAccessApp).
```
Public Sub CloseAllAccessExceptMe()
'FindWindowLike from: '
'How To Get a Window Handle Without Specifying an Exact Title '
'http://support.microsoft.com/kb/147659 '

'ProcessTerminate from: '
'Kill a Process through VB by its PID '
'http://en.allexperts.com/q/Visual-Basic-1048/Kill-Process-VB-its-1.htm '

    Dim lngMyHandle As Long
    Dim i As Long
    Dim hWnds() As Long

    lngMyHandle = Application.hWndAccessApp

    ' get array of window handles for all Access top level windows '
    FindWindowLike hWnds(), 0, "*", "OMain", Null

    For i = 1 To UBound(hWnds())
        If hWnds(i) = lngMyHandle Then
            Debug.Print hWnds(i) & " -> leave myself running"
        Else
            Debug.Print hWnds(i) & " -> close this one"
            ProcessTerminate , hWnds(i)
        End If
    Next i
End Sub
```
Ich in der Regel vermeiden On Error Resume Next auch, aber wie du richtig erraten, ich habe es hier in dem Fall, dass es keine aktiven Instanzen der Anwendung.
Meine bevorzugte Vorgehensweise ist, wenn ich will Resume Next in Reaktion auf einen spezifischen Fehler code ... mit einem Select Case in den ErrorHandler. Das ist eine ganze Menge anders (und besser, IMO) als Resume Next als Antwort auf alle möglichen Fehler.
Da meine Access-Skript steuert mehrere andere Zugriff auf scripts & öffnet einige Excel-Dateien, in der Standardeinstellung werden die ältesten in den Haufen. Danke für die Mühe, aber ohne eine Möglichkeit zu wählen andere Access-Prozess, ohne zu töten die erste, die es findet, es nicht mehr tun würde mir viel des guten.
Ich verstehe nicht, warum dies ist nicht die Antwort auf Ihre Frage. Was ist der Unterschied zwischen dem Zugriff auf Instanzen, unterscheidet Sie derart, dass Sie möchten, dass einige geschlossen und andere nicht? So weit wie ich kann sagen, Sie haben nicht erklärt, dass explizit.
Also, Sie wollen, um zu töten alle Instanzen, außer dem einen, in dem der code ausgeführt wird? Das ist die Antwort, die Sie habe zur Verfügung gestellt wurden hier. I"m nicht zu sehen, was ist falsch mit ihm.

InformationsquelleAutor HansUp
2

Unterscheidung der Instanzen einer Anwendung ist ein sehr altes problem, und es ist nicht eindeutig zu VBA.

Ich habe versucht, dies herauszufinden, mich über die Jahre nie mit mehr Erfolg als die Zeit vor.

Ich denke, die lange und die kurze davon ist, dass Sie können nie wissen, ob die Anwendungsinstanz, die Sie verweisen, ist das in dem der code ausgeführt wird (also beenden Sie es könnten, verlassen die anderen Instanzen öffnen).

Nicht jede Instanz einer app eine Art eindeutige ID?
Es verwirrt meinen Verstand, und ein Teil von mir glaubt, dass es möglich sein muss, so dass ich hoffe, Sie bekommen hier eine Antwort, aber soweit ich das überhaupt gefunden habe, gibt es keine Möglichkeit, verwenden Sie eine Prozess-id oder etwas über den Prozess selbst zu verbinden, um eine Referenz auf eine Instanz der Anwendung im code.
Danke für die info. Ich habe heute etwas gelernt!

InformationsquelleAutor Jay

Ich weiß, dies ist eine alte post, aber für diejenigen, die zu besuchen, die hier aus sucht finden es vielleicht hilfreich.
Dieser code wurde gefunden und geändert. Es wird Ihnen jedes BLATT in jeder ARBEITSMAPPE in jedem Fall. Von dort aus können Sie bestimmen, die aktive Instanz.

Modul..............

Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function GetClassName Lib "User32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, ByRef lpiid As UUID) As Long
Declare Function AccessibleObjectFromWindow Lib "oleacc" (ByVal hWnd As Long, ByVal dwId As Long, ByRef riid As UUID, ByRef ppvObject As Object) As Long

Type UUID 'GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(7) As Byte
End Type

Code........................

Const IID_IDispatch As String = "{00020400-0000-0000-C000-000000000046}"
Const OBJID_NATIVEOM As Long = &HFFFFFFF0

Sub ListAll()
    Dim I As Integer
    Dim hWndMain As Long
    On Error GoTo MyErrorHandler
        hWndMain = FindWindowEx(0&, 0&, "XLMAIN", vbNullString)
        I = 1
        Do While hWndMain <> 0
            Debug.Print "Excel Instance " & I
            GetWbkWindows hWndMain
            hWndMain = FindWindowEx(0&, hWndMain, "XLMAIN", vbNullString)
            I = I + 1
        Loop
        Exit Sub
    MyErrorHandler:
    MsgBox "GetAllWorkbookWindowNames" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description
End Sub

Sub GetWbkWindows(ByVal hWndMain As Long)
    Dim hWndDesk As Long
    Dim hWnd As Long
    Dim strText As String
    Dim lngRet As Long
    On Error GoTo MyErrorHandler     
        hWndDesk = FindWindowEx(hWndMain, 0&, "XLDESK", vbNullString)
        If hWndDesk <> 0 Then
            hWnd = FindWindowEx(hWndDesk, 0, vbNullString, vbNullString) 
            Do While hWnd <> 0
                strText = String$(100, Chr$(0))
                lngRet = GetClassName(hWnd, strText, 100)
                If Left$(strText, lngRet) = "EXCEL7" Then
                    GetExcelObjectFromHwnd hWnd
                    Exit Sub
                End If
                hWnd = FindWindowEx(hWndDesk, hWnd, vbNullString, vbNullString)
            Loop
            On Error Resume Next
        End If
            Exit Sub
    MyErrorHandler:
        MsgBox "GetWbkWindows" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description
End Sub

Function GetExcelObjectFromHwnd(ByVal hWnd As Long) As Boolean
    Dim fOk As Boolean
    Dim I As Integer
    Dim obj As Object
    Dim iid As UUID
    Dim objApp As Excel.Application
    Dim myWorksheet As Worksheet
    On Error GoTo MyErrorHandler        
        fOk = False
        Call IIDFromString(StrPtr(IID_IDispatch), iid)
        If AccessibleObjectFromWindow(hWnd, OBJID_NATIVEOM, iid, obj) = 0 Then 'S_OK
            Set objApp = obj.Application
            For I = 1 To objApp.Workbooks.Count
                Debug.Print "     " & objApp.Workbooks(I).Name
                For Each myWorksheet In objApp.Workbooks(I).Worksheets
                    Debug.Print "          " & myWorksheet.Name
                    DoEvents
                Next
                fOk = True
            Next I
        End If
        GetExcelObjectFromHwnd = fOk
        Exit Function
    MyErrorHandler:
        MsgBox "GetExcelObjectFromHwnd" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description
End Function

Ich hoffe das hilft jemandem 🙂

InformationsquelleAutor John

Dies ist eine Antwort auf einen alten post, doch wie das poster in 2012, hoffentlich hilft es jemanden, vielleicht kommen hier basiert auf einem generischen web-Suche.

Hintergrund
Meine Firma verwendet XLSX "Modelle", um unsere Daten in "ziemlich" automatisch. Der Datenexport von SAS als XLS; wir haben nicht die Lizenzen oder add-ons zu exportieren als XLSX. Der normale Prozess ist, kopieren/fügen Sie jede der 14 SAS-outputs in das XLSX-Format. Der folgende code durchläuft die ersten beiden Exporte, wo die Daten kopiert werden aus der XLS, eingefügt in das XLSX-und XLS-geschlossen.

Bitte beachten Sie: Die XLSX-Datei auf der Festplatte gespeichert. Die XLS-Dateien werden NICHT GESPEICHERT, d.h. der Weg geht "My Documents/" aber keine Datei oder Datei dort sichtbar.

Sub Get_data_from_XLS_to_XLSX ()
    Dim xlApp1 As Excel.Application
    Dim xlApp2 As Excel.Application

'Speed up processing by turning off Automatic Calculations and Screen Updating
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False


'Copies data from Book1 (xls) and pastes into ThisWorkbook (xlsx), then closes xls file
    Set xlApp1 = GetObject("Book1").Application

    xlApp1.Workbooks("Book1").Sheets("Sheet1").Range("A2:E2").Copy
    Application.ThisWorkbook.Worksheets("Data1").Cells(5, 2).PasteSpecialPaste:=xlPasteValues

'Clears the clipboard, turns off the "do you want to save" alert, closes xls file
    xlApp1.CutCopyMode = False
    xlApp1.DisplayAlerts = False
    xlApp1.Quit
    xlApp1.DisplayAlerts = True



'Same as the first one above, but now it's a second/different xls file, i.e. Book2
    Set xlApp2 = GetObject("Book2").Application

    xlApp2.Workbooks("Book2").Sheets("Sheet1").Range("A2:E2").Copy
    Application.ThisWorkbook.Sheets("Data2").Cells(10, 2).PasteSpecial Paste:=xlPasteValues

'Clears the clipboard, turns off the "do you want to save" alert, closes xls file
    xlApp2.CutCopyMode = False
    xlApp2.DisplayAlerts = False
    xlApp2.Quit
    xlApp2.DisplayAlerts = True


'Sub continues for 12 more iterations of similar code
End Sub

Müssen Sie explizit in der Qualifikation Ihren Aussagen. d.h. statt der Workbooks("Book_Name") stellen Sie sicher, identifizieren Sie die Anwendung, die Sie beziehen, werden Sie Application.Workbooks("Book_Name") oder xlApp1.Workbooks("Book_Name")

InformationsquelleAutor user3756574

0

versuchen Sie es in einer Schleife
```
Set ObjXL = GetObject(, "Excel.Application")
do until ObjXL Is Nothing
        Debug.Print "Closing XL"
        ObjXL.Application.DisplayAlerts = False
        ObjXL.Workbooks.Close
        ObjXL.Quit
        Set ObjXL = Nothing
        Set ObjXL = GetObject(, "Excel.Application")  ' important!
loop
```
Vielleicht ist es eine 5pm Sache, aber jede variation ist entweder in einer Endlosschleife oder nicht zu tun, etwas anderes. Konnte Sie sein spezifischer?
Ich hätte es test für null-ersten. pls. siehe edit
Sorry, aber ich bin noch immer Fehler. Ich bin sicher, ich kann hacken, aber ich denke jetzt, dass eine nicht-Office .dll-basierte Lösung wäre ein besserer Ansatz.

InformationsquelleAutor Beth

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.