SELENIUM/VBA11 11번가 해외직구 상점(상품) 가져오기 1. 11번가 해외직구 상품 가져오기 Private Sub CommandButton1_Click() Dim driver As New ChromeDriver Dim ele As WebElement Dim i As Integer, j As Integer Dim nCnt As Integer, rCnt As Integer Dim page As Integer Dim tEle As Object Dim shopName As String Dim sortKey As Variant sortKey = Array("sortCdN", "sortCdSPS") If Cells(2, 1).Value > 0 Then Range("A4:I" & (Cells(2, 1).Value + 4)).Clear End If page = Cells(.. 2024. 1. 3. 옥션 해외직구 상점(상품) 가져오기 1. 옥션 해외직구 상품 가져오기 Private Sub CommandButton1_Click() 'On Error Resume Next Dim driver As New ChromeDriver Dim ele As WebElement Dim nCnt As Integer Dim page As Integer Dim tEle As Object Dim shopName As String Dim sortKey As Variant Const css_footer = ".c_footer_menu_list" If Cells(2, 1).Value > 0 Then Range("A4:I" & (Cells(2, 1).Value + 4)).Clear End If page = Cells(2, 5).Value shopName = Cell.. 2024. 1. 3. 지마켓 해외직구 상점(상품) 가져오기 1. 지마켓 해외직구 상품 가져오기 Private Sub CommandButton1_Click() 'On Error Resume Next Dim driver As New ChromeDriver Dim ele As WebElement Dim nCnt As Integer Dim page As Integer Dim tEle As Object Dim shopName As String Dim sortKey As Variant If Cells(2, 1).Value > 0 Then Range("A4:I" & (Cells(2, 1).Value + 4)).Clear End If page = Cells(2, 5).Value shopName = Cells(2, 2).Value If Len(shopName) > 0 Then .. 2024. 1. 3. VBA 블로그에 댓글 작성자 목록 엑셀 시트에 추출 내 블로그에 댓글 작성하신 분 목록을 추출 해보자. 아래와 같은 블로그에 댓글을 작성하신 분의 아이디(별명)을 VBA와 셀레니움을 이용하여 엑셀 시트로 추출하고 누적 해보자. 1. 엣지 브라우저를 열어 네이버 블로그에 로그인 한다. Sub 엣지드라이버시작() On Error GoTo edgerror Dim myid, mypwd As String Dim Keys As New Selenium.Keys Dim edgever() As String Set Sel = New Selenium.EdgeDriver Sel.Start '브라우저 크기 지정 Sel.Window.SetSize 1200, 960 네이버로그인: myid = "네이버 아이디" mypwd = "네이버 비밀번호" Sel.Get "https://ni.. 2023. 12. 28. [VBA] 셀레니움(selenium) 설치 및 예제 윈도우에서 엑셀(VBA)를 이용한 자동화를 구현하기 위하여 셀레니움을 설치하고 간단한 예를 살펴보자 VBA매크로 프로그램을 이용하여 엑셀과 크롬,엣지,파이어폭스등 웹브라우저를 제어하여 웹 업무를 자동화할 수 있다. 1. 셀레니움(seleniumbasic) 설치 Selenium Basic은 VBA와 같은 외부 프로그램에서 Chrome, Edge, FireFox 등을 제어하는 라이브러리입니다. 아래 링크를 클릭하여 설치한다. https://github.com/florentbr/SeleniumBasic/releases/download/v2.0.9.0/SeleniumBasic-2.0.9.0.exe 2. 크롬(Chrome) 브라우저 버전과 크롬드라이버 버전 일치 2-1. 사용 중인 Chrome 버전 확인( c.. 2023. 12. 22. Get/Post 요청 보내기 Private Sub chrome_Access() Dim drv As New ChromeDriver drv.Get "https://www.google.com" Dim ele As WebElement Set ele = drv.FindElementByXPath("//input[@value='Google Search']") Assert.Equals "Google Search", ele.Value drv.Quit End Sub Private Sub Data_Send() ' API: https://code.google.com/p/selenium/wiki/JsonWireProtocol Dim driver As New ChromeDriver driver.Get "about:blank" ' Returns all win.. 2023. 12. 9. 이전 1 2 다음
