Fokus wieder auf Excel sobald die E-Mail wurde erstellt mit VBA

Ich habe ein VBA-makro, welches Folgendes macht:

  1. Wird ein Bericht erstellt, speichert Sie auf dem Haupt-Verzeichnis. Schließt der Bericht
  2. Schafft verschiedene E-Mails, legt Sie den Bericht, um jede (nicht die E-Mail senden)
  3. Msgbox zeigt, aus der hervorgeht, dass der Prozess abgeschlossen ist

Die Sache ist, dass, sobald der gesamte Prozess abgeschlossen ist, möchte ich den Benutzer, zu wissen, es ist getan, aber dieser code nicht wieder den Fokus auf excel (die ich gehofft das problem sein würde)

Windows(the_current_window).Activate
Worksheets(currentQuoteSheet).Select

Die Letzte E-Mail erstellt ist, was bleibt auf dem Bildschirm. Die msgbox wird nicht angezeigt, nur wenn ich auf excel-Symbol in der Menüleiste, das tut es. So dass die Nutzer sind es, die nur darauf warten zu beenden (wenn es hat, in der Tat 🙁 )

Irgendwelche Ideen, wie stellen Sie sicher, dass die msgbox zeigt sich nach der letzten E-Mail wird erstellt, ohne dass Benutzer klicken Sie auf excel?

nicht sicher, was Ihre ganze code aussieht, aber du musst Activate die Excel-Anwendung, bevor das Meldungsfeld angezeigt. Auch, weil Sie geschlossen der Bericht (die ich annehmen, ist eine XL-Datei), mit Worksheets(currentQuoteSheet).Select wird nicht funktionieren, da das Fenster geschlossen wird. Aber vielleicht ist ein Blatt aus einer anderen Arbeitsmappe, die Sie geöffnet haben.

InformationsquelleAutor user1135218 | 2012-07-11

  1. 8

    Versuchen 

    sub doSomething()
   'do something
   AppActivate "Microsoft Excel"
End Sub
    danke, AppActivate "Microsoft Excel" funktioniert perfekt !

    InformationsquelleAutor Sorceri

  2. 1

    Obwohl dies funktioniert bis zu einem Grad, es aktiviert nicht die MSGbox zu ermöglichen, drücken Sie y/n auf der Tastatur (Sie können mit der Maus).

    Diese ermöglicht die Interaktion Tastatur, wenn Sie die Aufgabe wiederholt und nicht wollen, um Ihre Maus zu greifen. Getestet von Office 2013 (64-bit) (entfernen PtrSafe wenn Sie 32bit)

    Private Declare PtrSafe Function MessageBox _
        Lib "User32" Alias "MessageBoxA" _
           (ByVal hWnd As Long, _
            ByVal lpText As String, _
            ByVal lpCaption As String, _
            ByVal wType As Long) _
        As Long
Sub Test
        'Call showwindow(ActiveWorkbook.Name)
        AppActivate "Excel"
        'I need this to retain the focus
        retval = MessageBox(&O0, "Do you want to process", "My Question", vbYesNo + vbSystemModal)
End Sub

    InformationsquelleAutor Adam Law

  3. 0

    Haben Sie versucht, Sie anzurufen, Ihre Arbeitsmappe mit Namen? So etwas wie:

    Workbooks("EXCEL WORKBOOK NAME.XLS").Activate
    Hi, das hat nicht funktioniert, leider, müssen Sie klicken Sie auf Excel-bevor die Meldung kommt.

    InformationsquelleAutor l85m

Schreibe einen Kommentar