Open Version History in SharePoint

[saint_2008]

Morning all,

I'm trying to open excel's version history in SharePoint using the app version of excel,

So Far, I have it opening SharePoint URL.

But the send-keys command goes to Chrome and not the SharePoint excel sheet. I've even played a mouse click in the code to see if that would focus it on SharePoint before doing the send-keys command,

Public Sub OpenUrl()

    Dim lSuccess As Long
    lSuccess = ShellExecute(0, "Open", "https:sharepoint.com/excel" 'Link Removed

Application.Wait (Now + TimeValue("00:00:05"))

  'mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  'mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

  Dim cmt As Comment
  Set cmt = ActiveCell.Comment
  If cmt Is Nothing Then
    ActiveCell.AddComment Text:=""
  End If
  SendKeys "%fip"

End Sub

 

[saint_2008]

Resolved, worked it out ALT F is the command to open Chrome Menu breaking It down means I could get to Excel function on the page.

Public Sub OpenUrl()



    Dim lSuccess As Long
    lSuccess = ShellExecute(0, "Open", "https:sharepoint.com/excel")

Application.Wait (Now + TimeValue("00:00:05"))

SendKeys "%"
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "f"
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "i"
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "p"


End Sub