직장인 투잡, 수익 자동화를 위한 매크로 사용법 (2)!

직장인 투잡을 하고 계신가요?  빠듯한 시간을 효율적으로 사용하기 위해 매크로를 100% 활용해 보세요.
생각보다 그렇게 어렵지 않고 코딩을 전문적으로 배우지 않은 사람도 누구나 다 할 수 있습니다.

 

안녕하세요.

이번 포스팅에서는 지난 '직장인 투잡, 수익 자동화를 위한 '자동 매크로 기록' 사용법 (1), 초보자가 코딩을 업무 및 투잡에 적용시키는 가장 현실적인 방법'에 잠시 언급 드렸던 특정 url의 사진들을 매크로를 이용하여 한꺼번에 다운로드하는 방법에 대해 간략히 설명드리고자 합니다.

 

※ 지난 포스팅이 궁금하신 분은 아래를 참조하십시요.

2020/08/31 - [유용한 생활 지식, 기타] - 직장인 투잡, 수익 자동화를 위한 '자동 매크로 기록' 사용법 (1)!, 초보자가 코딩을 업무 및 투잡에 적용시키는 가장 현실적인 방법

직장인 투잡, 수익 자동화를 위한 '자동 매크로 기록' 사용법 (1)!, 초보자가 코딩을 업무 및 투잡�

 

아쉽게도 이러한 기능은 '자동 매크로 기록'을 통해 구현할 수 없어 프로그래밍을 직접 해주어야 하는데, 알고 보면 그렇게 대단하고 복잡한 코딩도 아니기에 마음에 여유만 조금 있으시다면 누구나 활용하실 수 있습니다.

또한 구글링을 통하시면 필요한 코드는 대부분 공개되어 있고 이를 이해하고 본인이 원하시는 대로 조금씩 수정하셔서 사용하시면 편리합니다.

 

이 포스팅의 예제에서는 아래 C 컬럼에 있는 제품 이지미의 url들을 모두 읽어 들여 해당 사진들의 이미지를 D 컬럼의 파일 이름으로 C드라이브 내 'Temp'라는 폴더에 저장해 보도록 하겠습니다.

 

1) C 컬럼: 제품 이미지 url

2) D 컬럼: 각 이미지의 파일 이름

3) 저장: C:\Temp

직장인 투잡, 수익 자동화를 위한 매크로 사용법

 

 

C 컬럼에 리스트되어진 url의 제품 이미지들을 다운로드하기 위해 하기와 같이 'TWOJOB'이라는 제목의 간단한 코딩을 작성하였습니다.

그리고 이를 매크로의 'Run'을 통해 직접 수행해 보았습니다.

직장인 투잡, 수익 자동화를 위한 매크로 사용법

 

그 결과, 아래와 같이 C 드라이브 내 'temp'라는 폴더에 D 컬럼의 이름으로 모든 제품의 이미지들이 다운로드 되어진 것을 확인하실 수 있습니다.

직장인 투잡, 수익 자동화를 위한 매크로 사용법

 

 

관련 코드가 궁금하신 분은 아래를 참조하십시요.

 

Public Sub TWOJOB()

Dim SC As Range, SEQ_1 As Long, SEQ_2 As Long

With Range("c2", Cells(Rows.Count, "c").End(xlUp))

SEQ_1 = .Count
 For Each SC In .SpecialCells(xlCellTypeConstants)

  If SC.Next <> "" Then

SEQ_2 = SEQ_2 + 1

PICDown SC, SC.Next

 End If
  Next
End With

MsgBox "The end"
End Sub

---

Public Sub PICDown(ByVal PICDown_URL As String, ByVal PICDown_Name As String)
Dim Buf() As Byte
Dim PICDown_path As String

PICDown_path = "C:\temp\"

With CreateObject("Microsoft.XMLHTTP")
 .Open "GET", PICDown_URL, False
 .Send

If .Status = 200 Then
 Buf = .ResponseBody
 Open PICDown_path & "\" & PICDown_Name For Binary Access Write As #1
 Put #1, , Buf
 Close #1
End If
End With

End Sub

 

 

※구글 검색 최적화 (SEO 최적화) 및 애드센스 승인 (애드고시 합격)에 대한 조언이 필요하시다면 아래의 포스팅을...

2020/09/02 - [유용한 생활 지식, 기타] - 백링크를 이용한 검색 엔진 최적화 (SEO 최적화) 시도해 본 후기!

백링크를 이용한 검색 엔진 최적화 (SEO 최적화) 시도해 본 후기!

2020/09/04 - [유용한 생활 지식, 기타] - 애드고시 3번 통과 후 얻은 소소한 팁! (애드센스 3번 승인, 저는 이렇게 했습니다)

애드고시 3번 통과 후 얻은 소소한 팁! (애드센스 3번 승인, 저는 이렇게 했습니다)

 

 

'좋아요' 또는 댓글은 제가 포스팅을 이어나가는 데 큰 힘이 됩니다.

 

 

---

G 메일 (지메일)에서 바로 화상회의를 진행하고 내 휴대폰의 화면을 공유할 수 있는 간편한 방법에 대해 아시나요?

2020/08/30 - [유용한 생활 지식, 기타] - 휴대폰으로 화상회의 정말 간편히~ G메일 (지메일)에서 화상 회의를 바로 바로~ 줌 대체 화상회의 플랫폼

휴대폰으로 화상회의 정말 간편히~ G메일 (지메일)에서 화상 회의를 바로 바로~ 줌 대체 화상회의

혹, 알리 익스프레스 또는 아마존 할인 상품, 아이디어 상품에 관심이 있으신가요? 아래의 포스팅들이 도움이 되실 듯합니다.

2020/08/24 - [유용한 생활 지식, 기타] - (업데이트) 알리 익스프레스 할인 정보 2020년 9월, 알리 익스프레스 할인 코드 / 프로모션 코드 2020년 9월, 알리 익스프레스 최저가 구매 (1탄)!

(업데이트) 알리 익스프레스 할인 정보 2020년 9월, 알리 익스프레스 할인 코드 / 프로모션 코드 202

2020/07/31 - [유용한 생활 지식, 기타] - 아마존 프로모션 코드 2020년 9월, 아마존 할인 코드 2020년 9월 공유!

아마존 프로모션 코드 2020년 9월, 아마존 할인 코드 2020년 9월 공유!

2020/08/17 - [아이디어 상품 (엔지니어의 눈)] - 기발한 아이디어 상품 (2), 인테리어를 색다르게 (인테리어 소품)~~

기발한 아이디어 상품 (2), 인테리어를 색다르게 (인테리어 소품)~~