[2주차] 엑셀 API 기초 3주 완성

• 앞으로 실무에서 API를 잘 활용하는 것이 중요한 이유는 무엇인가요?
- 일상생활의 많은 부분이 api를 통해 이루어 지고 있음
- 원격배달시스템으로 내가 필요할때 불러서 일을 시킬 수 있음
- 개별 서비스로 가서 사용하는게 아니라 내가 원하는 곳으로 불러들여서 뭔가 할수 있음

- URL 방식으로 서버에 요청 시, 꼭 알아야 할 기호인 "?" 와 "&" 기호의 사용법을 간략히 작성해보세요.
- 기본주소 "?" 쿼리조건 "&"로 연결
- - "?" 기준으로 왼쪽은 기본주소: 어디에 요청해야 하는가
- "&" 으로 조건을 연결: 무엇을 요청할 것인가
-
- https://search.naver.com/search.naver?where=nexearch&sm=top_hty&fbm=1&ie=utf8&query=치킨
- https://search.naver.com/search.naver?&query=치킨
- https://search.naver.com/search.naver?where=news&query=삼성전자

• URL 방식 외에 JSON, XML 방식이 필요한 이유는 무엇인가요?
- 실무에서는 복잡하게 체계적으로 검색해야 하므로
- 엑셀 데이터구조가 중요한 것과 연결됨

• JSON 데이터 구조에 사용되는 "3가지 중요 기호"와 사용법을 간략하게 정리해보세요.
- "{ }" : 배열, 값을 묶어줄 때 사용. key 와 value 를 묶어줄때 예를 들어 유저의 "이름"과 "나이"를 묶어줄때
-" [ ]" 값을만 있을 때, Value 만 묶어줄때, 이름끼리만, 나이끼리만 묶어줄때
- " : " 조건

• (M365 이전 버전 사용자) VBA로 xImage 함수를 등록하고 사용하는 방법을 단계별로 정리합니다.
- alt+F11 로 vba 입력시 열어서 아래를 입력하고 닫

Function xIMAGE(Link, Optional Margin As Long = 0, Optional UpdateImage As Boolean = True)

'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'수정 및 배포 시 출처를 반드시 명시해야 합니다.

'■ xIMAGE 함수
'■ 인터넷 URL 또는 특정 파일 경로의 이미지를 삽입합니다.
'■ 사용방법
'=xImage("https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png")
'■ 인수 설명
'_____________Link : 웹 URL 또는 파일 경로입니다. 웹 URL일 경우 링크는 반드시 https:// 또는 http:// 로 시작해야 합니다.
'_____________Margin : 셀 안에 삽입할 그림에 여백을 줍니다. 픽셀 단위로 입력합니다. 기본값은 0(=여백없음)입니다.
'_____________UpdateImage : TRUE 일 경우 기존 셀 안에 삽입되어 있던 그림을 삭제하고 새로운 그림으로 갱신합니다. 기본값은 TRUE 입니다.
'###############################################################

Dim aRng As Range: Dim aWS As Worksheet
Dim shpImg As Shape

On Error Resume Next

Set aRng = Application.Caller
Set aWS = aRng.Parent

Application.EnableEvents = False

If IsEmpty(Link) Then xIMAGE = CVErr(xlValue): Exit Function

For Each shpImg In aWS.Shapes
If shpImg.TopLeftCell.Address = aRng.Address Then
If UpdateImage = True Then
shpImg.Delete
Else
xIMAGE = True
GoTo Final
Exit Function
End If
End If
Next

Set shpImg = aWS.Shapes.AddPicture(Link, msoFalse, msoTrue, _
aRng.Left + Margin, aRng.Top + Margin, _
aRng.MergeArea.Width - Margin * 2, aRng.MergeArea.Height - Margin * 2)
shpImg.Placement = xlMoveAndSize

If shpImg Is Nothing Then
xIMAGE = CVErr(xlValue)
Else
xIMAGE = True
End If

Final:
Set shpImg = Nothing: Set aRng = Nothing: Set aWS = Nothing
Application.EnableEvents = True

End Function

• (선택) 현재 내 업무에 적용가능한 API는 무엇이 있을까요? 구글 또는 네이버에 검색 후, 어떻게 적용할 수 있을지 생각해보세요. 👍
카카오맵, 네이버지도 에서 은행, ATM 명칭, 주소, 위경도값을 불러오기, 현금이 많이 사용되는 업종 상점명, 주소, 위경도값 불러오기