VBA 질문입니다 ..

VBA
작성자
chltjrf****
작성일
2023-11-01 18:08
조회
220
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

질문 요약 : 462런타임오류에대한 질문입니다

Sub SearchCoupang()
Dim IE As Object
Dim elements As Object
Dim randomElement As Object
Dim breadcrumbElement As Object
Dim randomIndex As Integer
Dim LastRow As Long
Dim i As Long
Dim BaseURL As String
Dim SearchTerm As String
Dim SearchURL As String
Dim encodeky As String
Dim coupangWs As Worksheet
Dim matchCell As Range

' Internet Explorer 객체 생성
Set IE = CreateObject("InternetExplorer.Application")
Set coupangWs = ThisWorkbook.Sheets("coupang")

' URL 기본 부분
BaseURL = "https://www.coupang.com/np/search?component=&q="

' "Sheet1"에서 A열의 마지막 행 찾기
With ThisWorkbook.Sheets("Sheet1")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

' 2번째 행부터 마지막 행까지 반복
For i = 2 To LastRow
SearchTerm = .Cells(i, 1).Value
encodeky = ENCODEURL(SearchTerm)

' 검색어를 URL에 추가
SearchURL = BaseURL & encodeky & "&channel=user"

' Internet Explorer 설정
With IE
.Visible = False
.navigate SearchURL

' 페이지가 로드될 때까지 대기
Do While .Busy Or .readyState <> 4
DoEvents
Loop

' class="number no-1 "을 가진 모든 요소 가져오기
Set elements = .document.getElementsByClassName("number no-1 ")

' 요소가 없는 경우 다음 검색어로 이동
If elements.Length = 0 Then
MsgBox "No elements found for " & SearchTerm & "!"
GoTo NextSearchTerm
End If

' 랜덤 요소 선택
Randomize ' 시드 설정
randomIndex = Int(Rnd * elements.Length) ' 0과 (elements.Length - 1) 사이의 난수 생성
Set randomElement = elements.Item(randomIndex)

' 랜덤 요소 클릭
randomElement.Click

' 설정한 대기 시간 (예: 5초)
Application.Wait (Now + TimeValue("0:00:05"))

' 새 창으로 전환
Dim newIE As Object, ShellWins As Object, IEWin As Object, found As Boolean
Set ShellWins = CreateObject("Shell.Application").Windows
found = False
For Each IEWin In ShellWins
If TypeName(IEWin.document) = "HTMLDocument" Then
If IEWin.LocationURL <> IE.LocationURL Then
Set newIE = IEWin
found = True
Exit For
End If
End If
Next

If Not found Then
MsgBox "새 창을 찾을 수 없습니다."
GoTo NextSearchTerm
End If

On Error Resume Next '오류가 발생해도 코드 실행 계속

Set breadcrumbElement = newIE.document.querySelector("#breadcrumb > li:nth-child(6) > a")
If breadcrumbElement Is Nothing Then
Set breadcrumbElement = newIE.document.querySelector("#breadcrumb > li:nth-child(5) > a")
End If
If breadcrumbElement Is Nothing Then
Set breadcrumbElement = newIE.document.querySelector("#breadcrumb > li:nth-child(4) > a")
End If

On Error GoTo 0 ' 오류 처리 끄기

If breadcrumbElement Is Nothing Then
MsgBox "Breadcrumb element not found!"
GoTo NextSearchTerm
End If

' "쿠팡" 워크시트에서 찾기
Dim searchValue As String
searchValue = Trim(breadcrumbElement.innerText)
Set matchCell = coupangWs.Cells.Find(searchValue)

If Not matchCell Is Nothing Then
' 찾은 값의 행에서 A열의 값을 "Sheet1"의 J열 2행에 넣기
ThisWorkbook.Sheets("Sheet1").Cells(i, 10).Value = coupangWs.Cells(matchCell.Row, 1).Value
Else
MsgBox searchValue & " was not found in '쿠팡' sheet."
End If

newIE.Quit
Set newIE = Nothing

NextSearchTerm:
End With
Next i
End With

' Internet Explorer 닫기
IE.Quit

End Sub

위 코드에서 "쿠팡" 워크시트에서 찾기
Dim searchValue As String
searchValue = Trim(breadcrumbElement.innerText)
Set matchCell = coupangWs.Cells.Find(searchValue)
이부분부터 463런타임에러 원격서버컴퓨터가없거나 사용할수없습니다 라고 나오는데 어떻게 해결할수있을까요 ㅜㅜ?

 

신고
스크랩
공유
회원등급 : 2레벨
포인트 : 56 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 1

  • 2023-11-03 11:19

    @chltjrf**** 님 463 런타임 에러가 클래스 생성이 안됐을 때 일어나는 에러라고 구글검색해보니까 나오네요..

    클래스 생성이 안된거 같은데, 확인 함 해보세요


전체 13,332
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚교재 출간 안내] 「진짜쓰는 실무엑셀」 , 드디어 출간되었습니다! (236)
오빠두엑셀 | 2022.02.03 | 추천 514 | 조회 260126
오빠두엑셀 2022.02.03 514 260126
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 280 | 조회 17879
오빠두엑셀 2021.10.28 280 17879
64443 함수/공식
New 가격 범위에서 가격을 입력하면 해당 요율이 나올 수 있는 방법 문의드립니다. 엑셀파일
dow**** | 15:15 | 추천 0 | 조회 1
dow**** 15:15 - 1
64437 함수/공식
New [다중조건 index large row] 함수가 적용이 안되네요 엑셀파일첨부파일 (1)
abc초콜릿 | 11:53 | 추천 0 | 조회 14
abc초콜릿 11:53 - 14
64433 VBA
New 셀레니움 세부 내용 가져오는 방법
임정호 | 10:26 | 추천 0 | 조회 13
임정호 10:26 - 13
64432 함수/공식
New Min if 함수 오류 해결 부탁드립니다. 엑셀파일 (2) 답변완료
shlolife | 09:50 | 추천 0 | 조회 20
shlolife 09:50 - 20
64429 함수/공식
New [해결방법문의] 여러시트에서 이름에따른 금액을 검색하고 싶습니다. 첨부파일 (1)
김광연 | 03:10 | 추천 0 | 조회 27
김광연 03:10 - 27
64427 차트/그래프
New 막대그래프의 선을 따서 반전시키는 방법 문의 엑셀파일첨부파일 (1)
new_hwan | 01:36 | 추천 0 | 조회 18
new_hwan 01:36 - 18
64423 함수/공식
New 이름,주소 월 별로 비교해서 변경사항 있으면 IF 중첩함수로 추출하는 방법 첨부파일 (1)
아숫 | 2023.12.01 | 추천 0 | 조회 31
아숫 2023.12.01 - 31
64420 기능/도구
New ㅠㅠㅠㅠㅠ.... 어제부터 몇시간째 못풀고 있습니다.. 나열되어 있는표 교차행(?)으로 만드는법 엑셀파일 (6)
문재희 | 2023.12.01 | 추천 0 | 조회 39
문재희 2023.12.01 - 39
64417
New 달 바뀌면 자동으로 적용되는 서식궁금합니다. 엑셀파일첨부파일
gnsdlgns | 2023.12.01 | 추천 0 | 조회 40
gnsdlgns 2023.12.01 - 40
64415
New 거래명부에서 가져온 정보로 거래명세서 자동채우기. 같은날 다수거래처, 다수품목 일때 오류 관련 첨부파일 (1)
excellJK | 2023.12.01 | 추천 0 | 조회 37
excellJK 2023.12.01 - 37
64414 함수/공식
New 연차현황 관련 엑셀파일 (3)
용용 | 2023.12.01 | 추천 0 | 조회 43
용용 2023.12.01 - 43
64411 함수/공식
New 가장 가까운 좌표 리스트업 엑셀파일첨부파일
aish | 2023.12.01 | 추천 0 | 조회 40
aish 2023.12.01 - 40
64410 VBA
New 앞 단어의 받침 유무에 따라 잘못 사용된 (을/를) 검사 매크로 만들기 질문 엑셀파일 (2)
777 | 2023.12.01 | 추천 0 | 조회 39
777 2023.12.01 - 39
64405 함수/공식
New 한 좌표값(a,b)이랑 가장 가까운 좌표값 찾기 (4)
aish | 2023.12.01 | 추천 0 | 조회 39
aish 2023.12.01 - 39
64404 함수/공식
New 구매리스트 관련문의 (VLOOKUP 중복 건너뛰고 표기하기) 엑셀파일 (3)
러브미몬스터 | 2023.12.01 | 추천 0 | 조회 43
러브미몬스터 2023.12.01 - 43
64396 함수/공식
New 표준편차 계산시 특정월의 데이터만 계산하고 싶습니다(X방향) 엑셀파일첨부파일 (2) 답변완료
전설 | 2023.12.01 | 추천 0 | 조회 38
전설 2023.12.01 - 38
64393 함수/공식
New 엑셀 함수 값 관련 질문 (2)
리덕구 | 2023.12.01 | 추천 0 | 조회 36
리덕구 2023.12.01 - 36
64387 VBA
New 아실 크롤링 관련 문의 (1)
임정호 | 2023.11.30 | 추천 0 | 조회 42
임정호 2023.11.30 - 42
64384 VBA
New VBA PivotItem 문의 (1)
봉s | 2023.11.30 | 추천 0 | 조회 44
봉s 2023.11.30 - 44
64382 파워쿼리/피벗
New [파워쿼리] 쿼리안에서 구분기호 기준으로 열분할을 하고 난 후, 아래로 채우기가 안됩니다.!! (6) 답변완료
jja**** | 2023.11.30 | 추천 0 | 조회 50
jja**** 2023.11.30 - 50
64381 함수/공식
New row()가 자동으로 변경될 수 있도록.... 엑셀파일 (4)
대빵 | 2023.11.30 | 추천 0 | 조회 47
대빵 2023.11.30 - 47
64377 피벗테이블
New 엑셀 피벗 행/열 비율 산출 질문 (2)
bugko**** | 2023.11.30 | 추천 0 | 조회 35
bugko**** 2023.11.30 - 35
64376 VBA
New 견적서 내용을 리스트업 하는 VBA 엑셀파일첨부파일
조범주 | 2023.11.30 | 추천 0 | 조회 44
조범주 2023.11.30 - 44
64371 구글시트
New 두 개 시트 연동 (4) 답변완료
RecSoo | 2023.11.30 | 추천 0 | 조회 48
RecSoo 2023.11.30 - 48
64370 함수/공식
New 모든시트를 선택하는 함수가 있을까요?ㅠㅠ (2)
myyh**** | 2023.11.30 | 추천 0 | 조회 61
myyh**** 2023.11.30 - 61
64367 VBA
New 특정셀에 여러 변수 값을 대입하여 나오는 계산 값을 변수에 맞게 한번에 출력되게 하는 방법이 있을까요?? 엑셀파일첨부파일 (2) 답변완료
박재관 | 2023.11.30 | 추천 0 | 조회 46
박재관 2023.11.30 - 46
64366 문서서식
New 전체인쇄와 시트1개 인쇄시 이미지 품질 저하문제 첨부파일 (2)
코코마 | 2023.11.30 | 추천 0 | 조회 31
코코마 2023.11.30 - 31
64360 함수/공식
New 각 열의 텍스트를 비교하여 일치율에 따라 관련열 값 가져오기 첨부파일 (1)
요코하마박 | 2023.11.30 | 추천 0 | 조회 43
요코하마박 2023.11.30 - 43
64359 구글시트
New 엑셀 또는 구글시트 - 다른시트 데이터의 새로운값만 순차적으로 가져오는방법.. (3)
myyh**** | 2023.11.30 | 추천 0 | 조회 37
myyh**** 2023.11.30 - 37
64355 함수/공식
New sumifs 문의 드립니다. (2) 답변완료
sarangh**** | 2023.11.30 | 추천 0 | 조회 44
sarangh**** 2023.11.30 - 44