VBAからEDGEブラウザ起動

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'sleep用関数定義

Sub VBAからEdgeを開いてGoogleで検索するテスト()

Dim sWord As String

sWord = "^+(s)"

'Edge起動
Shell "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe" & " " & "http://knowledge999.html.xdomain.jp/", vbNormalFocus
Sleep (3000)

'SendKeys sWord, True
'ThisWorkbook.Worksheets("Sheet1").Activate
'Range("A1").Select
'SendKeys "{ENTER}", True

'SendKeys sWord, True
'SendKeys "{ENTER}", True

End Sub