VBA

Sub slenium() 'selenium type library 도구 -참조할것 Dim driver As New WebDriver ' WebDriver형식의 변수 선언 strURL = "https://www.naver.com" ' 읽어올 페이지의 URL 설정 driver.Start "Chrome" ' 브라우저를 크롬으로 실행 / 크롬, 익스플로러, 파이어폭스 등 브라우저를 지정해 실행할 수 있다. driver.Wait (500) ' 0.5초 대기 driver.Get strURL ' 앞서 정의한 URL로 페이지 연결 '요소 선택 driver.Close Set driver = Nothing ' 메모리 초기화 End Sub ---------------------------------------------- ..

end 뒤에 숫자가 붙어서 나오는 경우가 있다. 처음 보는 사람은 당황 할 수 있는데, 숫자의 의미를 살펴 보자. 선택한 셀(가운데)을 기준으로 좌측은 End(1) 우측은 End(2) 위로는 End(3) 아래는 End(4) End(xlup)은 지난번에 다뤘듯이 마지막 행을 찾을때 사용했었다. 마찬가지로 End(3) 과 동일한 의미를 가진다. End(3) : 밑에서 위로 올라가면서 있는 셀위치 End(3)(2) : 밑에서 위로 올라가면서 만난 셀의 바로 아래셀 End(3)(3) : 밑에서 위로 올라가면서 만난 셀의 2칸 아래셀 End(1)(1, 3) : 왼쪽으로 이동하다가 만난 셀의 오른쪽 2칸 떨어진 위치의 셀 End(4) : 밑으로 내려가다가 처음 만난 셀위치 아래내용은 모두 같은 내용의 뜻이다. = ..

Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False Application.Calculation = xlManual Application.ScreenUpdating = False - 그때 그때 작업한것을 화면에 안뿌려줄거야(많은 데이터를 처리할 때 화면이 멈춰있는것 처럼보임. 그만큼 처리속도는 높아짐,화면 갱신안한다고보면됨) Application.DisplayStatusBar = False - 작업한 것을 상태표시줄에 안보임(엑셀 우측하단에 평균,합계등 그때그때 계산되어지는것이 눈에 안보임 Applicat..

닷넷 프레임원크 3.5(.NET Framework 3.5) 설치 -2147217392(80041010) 런타임 자동화 오류 셀레니움 설치 후 닷넷프레임워크 3.5 가 설치 되어 있지 않으면 발생된다. 해결방법은 간단하다 https://www.microsoft.com/ko-kr/download/details.aspx?id=21 → 설치 후 PC 재부팅 1회 필요합니다.

크롤링을 하기전 준비작업 셀레니움 설치 https://github.com/florentbr/SeleniumBasic 깃허브를 통해 SeleniumBasic v2.0.9.0 을 다운로드 우측 SeleniumBasic을 클릭하여 다운로드 - 다운로드 후 next 또는 finish 버튼 클릭 하여 완료 이제 마지막으로 ChromeDriver를 설치하면 완료됩니다. 셀레니움 베이직을 설치하면 아래 두 개의 경로중 한 곳에 설치됩니다. C:\Users\[사용자명]\AppData\Local\SeleniumBasic - 저의 경우 노트북에는 이곳에 설치되었네욤 C:\Program Files\SeleniumBasic 설치경로에 들어가면 Chromedriver.exe 가 설치되어 있는데, 설치된 날짜가 현재보다 한참 전..

Sub mergeCells() Dim i As Integer Dim rngStart As Range Dim rngEnd As Range '선택된 영역 중 첫째줄 지정 Set rngStart = Selection.Cells(2, 2) '선택된 영역 반복 For i = 2 To Selection.Rows.Count '두줄을 비교하여 같지 않을 경우 If Selection.Cells(i, 2) Selection.Cells(i + 1, 2) Then '같지 않을 경우 끝으로 지정 Set rngEnd = Selection.Cells(i, 2) '알람 창 Off Application.DisplayAlerts = False '셀 병합 실시 Range(rngStart, rngEnd).Merge '중앙 정렬 Range(..

AA = Range("A2:B5") - AA의 범위는 A2부터 B5까지 설정된다. 범위 설정시 Range 안에 쌍따옴표와 콜론 사용을 확인해야한다. AA = Range("A2") - AA 는 A2 셀 하나만 선택된것임 Range("A2","B5") 이렇게 써도 범위설정은 가능하다. 개체, 범위, 도형 설정시 변수선언 Dim 설정과 Set 설정에 유의하자! Range("A2") 일때 A열2번째 행이 선택된것 Range("A2:B5") -범위 Range("A2","B5") -범위 Range("A2") -셀 Range(Cells(2, 1), Cells(2, 3)) -범위 Cells를 이용할때는 Cells(행, 열) 로 사용한다. Cells(2,1)을 작성하면 2행, 1열을 나타내며, Range("a2")와 동..

Option Explicit Sub empt_row_del() Dim i As Long Dim lastRow As Long Dim targetCol As String Dim mySheet As Worksheet Set mySheet = Sheets(1) 'mySheet를 첫 번째 시트로 설정, 다른 시트가 필요하다면 변경 With mySheet.UsedRange lastRow = .Row + .Rows.Count - 1 '마지막 셀 번호 End With targetCol = "A" 'A열에 있는 빈행만 검색하도록 설정 For i = lastRow To 1 Step -1 '첫 행부터 시작하면 빈 셀을 삭제할 경우 인덱스가 꼬이기 때문에 마지막 행에서 거꾸로 와야 한다. If mySheet.Cells(i, ..

마지막 행 열 번호 찾기 : 이것이 자동화의 시작이다. 자동으로 찾아주는 마지막행, 마지막열 찾기 이것만은 알고넘어가자! Range("A1048576").end(xlup).row A열의 마지막 행번호 Cells(rows.count,"F").end(xlup).row F열의 마지막 행번호 Rrange("IV2").end(xltoleft).column '' 2행의 마지막 열번호 Cells(5,Columns.count).end(xlup).row ''5행의 마지막 열번호 lastRow=Cells(Rows.Count, "A").End(xlUp).Row -여기서 Rows.count 의 값은 엑셀의 마지막 값 "1048576" 이다. Rows.count 가 생각나지 않을때 1048576 을 입력하는것과 같다.(last..

Sub DownloadImage() Dim myURL As String myURL = "https://www.example.com/myimage.jpg" Dim myData() As Byte Dim myFile As String myFile = "C:\이미지테스트\MyImage.jpg" Dim winHttpReq As Object Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1") winHttpReq.Open "GET", myURL, False winHttpReq.Send myData = winHttpReq.ResponseBody Set winHttpReq = Nothing Dim myStream As Object Set myStream = Crea..