[Tip] VBA에서 Jquery 사용하기

https://qiita.com/save6/items/69c70dc82977d71d99ec

Excel VBA+seleniumでjqueryを利用する方法 - Qiita

Option Explicit
Sub Haja_Guid()
    
    Dim guid
    Dim str
    guid = Array("{0277FC34-FD1B-4616-BB19-A9AABCAF2A70}", _
                 "{3050F1C5-98B5-11CF-BB82-00AA00BDCE0B}", _
                 "{662901FC-6951-4854-9EB2-D9A2570F2B2E}", _
                 "{F5078F18-C551-11D3-89B9-0000F81FE221}")

    
    On Error Resume Next
    For Each str In guid
        ThisWorkbook.VBProject.References.AddFromGuid str, 0, 0 '= 가장 최신버전
    Next str

    Call test

End Sub

Sub test()
    Dim strJquery$, logo$
    Dim Sel As New Selenium.ChromeDriver
    
    Sel.Start ("chrome")
 
    Sel.get ("https://www.google.com/")
    
   '= 제이쿼리 설정
    strJquery = "var script=document.createElement('script');return script.setAttribute('src','https://code.jquery.com/jquery-3.6.0.min.js'),script.setAttribute('integrity','sha256-/xUj+3OJU5yExlq6GSYGSHk7tPXikynS7ogEvDej/m4='),script.setAttribute('crossorigin','anonymous'),document.body.appendChild(script)"
    
   '= 제이쿼리 실행
    Sel.ExecuteScript (strJquery)
    
    Sel.Wait 1000
    
   '= 구글로고의 링크
    logo = "return $('.lnXdpd').attr('src')"
    
    MsgBox Sel.ExecuteScript(logo)
    
    Sel.Close

End Sub