SendKeys Error Handling

[Tarkin]

I am trying to get Excel return an error message if a certain SendKeys command does not return the result I expect. In the case below, I expect an error as ALT + X will not give you any valid command (X does not appear in Excel when ALT is pressed). Ultimately, this is to test a presence of an Add-In the Excel Ribbon (which if it existed would have allowed the X key to proceed).

Sub SendKeycheck()
On Error GoTo eh
Application.SendKeys ("%x")
Done:
MsgBox "All OK"
Exit Sub
eh:
MsgBox "The following error occurred: " & Err.Description
End Sub

But no luck! Any help would be appreciated!

 

[jasonb75]

A keyboard shortcut that doesn't do anything is not an error, it will most likely be treated as 'nothing' and ignored the same as if you pressed the physical keys.

I got this by asking google how to check if an add in is installed.

AddIn.Installed property (Excel)

Office VBA reference topic

docs.microsoft.com

 

[Tarkin]

Thanks. The problem is that I do not have access to the name of the Add-in so it is not possible me to check this.

 

[jasonb75]

Without the name of the add in to test, I don't see that there will be any reliable method that you could use.

I tried this on the theory that the {RIGHT} keystroke would move within the ribbon if Alt x was recognised, or move to another cell if it wasn't. It doesn't appear to be doing anything, but I might be missing something simple, sendkeys is not something I'm in the habit of using.

tmp = ActiveCell.Address
Application.SendKeys ("%x")
Application.SendKeys ("{RIGHT}")
If ActiveCell.Address = tmp Then
    MsgBox "add-in found"
Else
    MsgBox "add-in not found"
End If