크롤링 반복 (재질문 입니다)

VBA
작성자
하늘의 꿈
작성일
2021-12-06 12:48
조회
156
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

엑셀 매크로 반복작업 :: Set_Routine 명령문

을 참고하여 크롤링을 반복하려 합니다.

그런데 처음 한 번은 실행되는데 두 번째 부터 오류가 나네요

도저히 해결할 수 없어 질문합니다. 도움 부탁드립니다.

파일 첨부합니다. 확인 부탁드려요 ㅠㅠ

``````````````````````````````````````````````````````````````````````````````````````````````````````````````````````

Sub PrintNow()

With Sheet1

Dim URL As String
Dim htmlResult As Object
Dim str As String
Dim Result As Variant

URL = "https://crix-api-cdn.upbit.com/v1/crix/trends/daily_volume_power?quoteCurrencyCode=KRW&orderBy=ask&count=10"

Set htmlResult = Nothing
Set htmlResult = GetHttp(URL)

str = htmlResult.body.innerHTML

Result = ParseJSON(str, "localName")

Dim x

x = .Cells(.Rows.Count, 2).End(xlUp).row + 1

ArrayToRng .Range("A" & x), Result

.Cells(x, 2) = Now

Dim TmpArray() As Variant, FromRange As Range, ToRange As Range

Set FromRange = .Range(.Cells(x, 1), .Cells(x + 9, 1))
Set ToRange = .Cells(x, 3)
TmpArray = Application.Transpose(FromRange.Value)
FromRange.Clear
ToRange.Resize(FromRange.Columns.Count, FromRange.Rows.Count).Value2 = TmpArray

End With

End Sub

전체 2

  • 2021-12-06 13:36

    Test 코드를 바꾸니 잘 동작합니다. 첨부파일 확인해보세요

    Sub Test()
    
    If Range("F7").Value = False Then
        Range("F7").Value = True
        
        Range("B13").Value = Now
        
        Set_Routine "PrintNow", Range("C8").Value, Range("C9").Value, Range("D10").Value, Range("C11").Value, "PrintMsg"
    Else
        Range("F7").Value = False
        
       Range("B13").Value = "시작시간"
       
       Stop_Routine "PrintNow", Range("C8").Value, Range("C9").Value, Range("D10").Value, Range("C11").Value, "PrintMsg"
    End If
    
    End Sub

     

    첨부파일 : 파워코인.xlsm


    • 2021-12-06 15:53

      @엑셀은즐거워 님 정말감사합니다. 잘 됩니다.


전체 5,201
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (30)
트로피 오빠두엑셀 | 2021.10.12 | 추천 23 | 조회 796
트로피 오빠두엑셀 2021.10.12 23 796
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (21)
오빠두엑셀 | 2021.10.28 | 추천 32 | 조회 2478
트로피 오빠두엑셀 2021.10.28 32 2478
26343 함수/공식
New 전산입고품목과 실제입고품목의 실재고조사관련 양식(함수+피벗테이블)첨언좀 부탁드립니다.도와주세요! 첨부파일 (2)
sunjong**** | 16:42 | 추천 0 | 조회 23
sunjong**** 16:42 0 23
26341 VBA
New VBA 내 배열 통합(쿼리 통합 기능을 VBA에서 구현하고자 합니다.) 첨부파일
병욱 | 16:13 | 추천 0 | 조회 12
병욱 16:13 0 12
26339 VBA
New 많은 텍스트상자안 문자 찾기 (1)
noeu**** | 15:44 | 추천 -1 | 조회 18
noeu**** 15:44 -1 18
26338 함수/공식
New 지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? 첨부파일 (1)
말창 | 15:26 | 추천 0 | 조회 19
말창 15:26 0 19
26336 함수/공식
New 셀안 동일 회사명을 순차 카운트를 하고 싶습니다. (3) 답변완료
sickp**** | 15:06 | 추천 0 | 조회 20
sickp**** 15:06 0 20
26334 함수/공식
New 이름만 치면 열 다 띄워주는 방법을 알려주세요 첨부파일 (7) 답변완료
아마테라스 | 14:49 | 추천 0 | 조회 28
아마테라스 14:49 0 28
26329 VBA
New VBA 자동으로 그룹 구분하여 sheet split 기능 행열 전환 관련 질문드립니다. 첨부파일
shon**** | 13:53 | 추천 0 | 조회 11
shon**** 13:53 0 11
26324 기능/도구
New 파일 오류로 열리지 않습니다. (2)
가을남자 | 12:48 | 추천 0 | 조회 17
가을남자 12:48 0 17
26323 함수/공식
New 불려오는 data 행 길이에 따라 자동으로 행길이 바뀌도록 하는 수식/기능 관련 첨부파일 (1)
엑초파 | 12:16 | 추천 0 | 조회 28
엑초파 12:16 0 28
26308 VBA
New pdf 로 자동 저장하고 싶습니다. 첨부파일
wan**** | 04:36 | 추천 0 | 조회 35
wan**** 04:36 0 35
26295 파워쿼리/피벗
New 피벗테이블 '각 필드에 유지할 항목 수'에서 질문입니다. (3)
월마리아 | 2022.01.23 | 추천 0 | 조회 30
월마리아 2022.01.23 0 30
26294 함수/공식
New 합계값이 일치하지 않는 값 구하기! (1)
정해인 | 2022.01.23 | 추천 0 | 조회 34
정해인 2022.01.23 0 34
26290 함수/공식
New 기간구분 IF함수 에러 원인이 뭔지 모르겠어요 (6) 답변완료
마운틴 | 2022.01.23 | 추천 0 | 조회 38
마운틴 2022.01.23 0 38
26285 함수/공식
New 이번주 시작일(월요일), 마지막일(금요일) yyyy-mm-dd 형식으로 출력하는 방법 (1)
joeee | 2022.01.23 | 추천 0 | 조회 37
joeee 2022.01.23 0 37
26284 피벗테이블
New 피벗 테이블 날짜인식 및 월별 그룹화 관련 첨부파일 (3)
baechu9 | 2022.01.23 | 추천 0 | 조회 31
baechu9 2022.01.23 0 31
26278 피벗테이블
New 피벗테이블 영상보면서 따라해보고 있는데요 잘안되요 ㅠ 첨부파일 (1)
희야맘 | 2022.01.23 | 추천 0 | 조회 23
희야맘 2022.01.23 0 23
26276 문서서식
New [조건부 서식] 아직 데이터가 입력되지 않은 칸에 조건부 서식 적용하지 않도록 하기 첨부파일
jo2 | 2022.01.23 | 추천 0 | 조회 33
jo2 2022.01.23 0 33
26268 함수/공식
New 조건부서식 내에서 INDIRECT 함수와 AND 함수를 함께 사용할 수 없나요? (10)
나는나 | 2022.01.22 | 추천 0 | 조회 66
나는나 2022.01.22 0 66
26260 함수/공식
New 각 지점별 연,월 매출의 합을 구하고 싶습니다. 첨부파일 (4) 답변완료
창이 | 2022.01.22 | 추천 1 | 조회 44
창이 2022.01.22 1 44
26246 함수/공식
New 엑셀 월 구하기 주 구하기 질문 입니다. 첨부파일 (3)
천고마비 | 2022.01.22 | 추천 0 | 조회 45
천고마비 2022.01.22 0 45
26243 함수/공식
특정 조건 행 제외 후 다른 시트에 리스트화 첨부파일 (4) 답변완료
상큼한도로시 | 2022.01.21 | 추천 0 | 조회 48
상큼한도로시 2022.01.21 0 48
26239 VBA
재고관리 프로그램에서 검색할 때 체크박스 사용하는 방법이 궁금합니다. (1)
엑셀열공 | 2022.01.21 | 추천 0 | 조회 54
엑셀열공 2022.01.21 0 54
26237 피벗테이블
시간표시막대 질문 (1)
최재영 | 2022.01.21 | 추천 0 | 조회 40
최재영 2022.01.21 0 40
26236 함수/공식
컨트롤 f (찾기) 로 함수의 결과값 검색방법이 있나요? (1)
정지훈 | 2022.01.21 | 추천 0 | 조회 34
정지훈 2022.01.21 0 34
26234 함수/공식
함수를 대량변경하고싶은데 가능한지 문의드립니다. (1)
정지훈 | 2022.01.21 | 추천 0 | 조회 42
정지훈 2022.01.21 0 42
26229 함수/공식
함수를 어떤걸 써야 될지 모르겠습니다. 첨부파일 (3) 답변완료
조커 | 2022.01.21 | 추천 0 | 조회 57
조커 2022.01.21 0 57
26223 VBA
버튼이 클릭이 되지 않습니다. 방법을 모르겠어요. 첨부파일 (5)
다르마 | 2022.01.21 | 추천 0 | 조회 43
다르마 2022.01.21 0 43
26222 VBA
자료찾기 vba 문의드립니다. (2) 답변완료
ㅈㄱㄹ | 2022.01.21 | 추천 0 | 조회 44
ㅈㄱㄹ 2022.01.21 0 44
26220 함수/공식
엑셀 셀값 동일 데이터를 순서대로 카운터 하고 싶습니다. (4) 답변완료
sickp**** | 2022.01.21 | 추천 0 | 조회 41
sickp**** 2022.01.21 0 41
26217 VBA
엑셀 매크로 렉걸림해결방법문의 (1)
dud**** | 2022.01.21 | 추천 -1 | 조회 36
dud**** 2022.01.21 -1 36