날짜별 실시간 환율 자동 입력하기: Power Query 활용법

 

• 엑셀로 날짜별 실시간 환율 자동 입력하기: Power Query 활용법
• 엑셀에서 9월 1일부터 30일까지 환율 자동화하기: API 사용법 가이드
• 초보자를 위한 엑셀 환율 자동 입력: Power Query와 API 활용 팁

앞서 파워 쿼리를 이용해서 API 데이터를 불러와 실시간 환율을 표로 변환하여 보는 방법을 설명했는데요.

이번에는 여기서 더 응용하여 날짜별로 그날의 환율데이터를 누적하여 자동 입력할 수 있는 방법을 설명하려고 합니다.

 

이 방법을 사용하면, 매일 환율을 손으로 입력할 필요 없이 9월 1일부터 30일까지 날짜별로 자동으로 환율 데이터를 채울 수 있습니다.

 

---

1. Power Query란?

먼저 Power Query는 엑셀에서 다양한 외부 데이터를 쉽게 가져와 정리하고 변환할 수 있는 도구입니다. 외부 데이터 소스(API, 웹 등)로부터 실시간 데이터를 가져와 자동으로 업데이트할 수 있습니다. 여기서는 Power Query를 사용해 환율 API로부터 데이터를 가져오는 방법을 다뤄볼게요.

2. 환율 API 준비하기

실시간 환율 데이터를 가져오기 위해선 환율 API가 필요합니다. API는 웹에서 데이터를 제공하는 서비스로, 다양한 환율 정보를 실시간으로 제공합니다. 다음과 같은 API 서비스 중 하나에 가입하여 API 키를 발급받으세요:

 

방법은 아래 자세히 나와있으니 필요하신 분들은 참고해주세요

엑셀/구글시트 외부 API를 사용해 실시간 환율 데이터를 자동으로 가져오는 방법

 

3. 엑셀에서 날짜별 환율 자동 채우기

1) 날짜 목록 자동 채우기

• A1 셀에 2024-09-01을 입력합니다.

날짜별 환율을 입력하기 위한 준비

• A2 셀에 =A1 + 1을 입력하여 하루씩 날짜를 증가시킵니다.
• A2 셀을 아래로 드래그하여 9월 30일까지 날짜를 자동으로 채웁니다.

2) Power Query로 날짜별 환율 데이터 가져오기

이제 Power Query로 각 날짜에 맞는 환율 데이터를 가져옵니다.

단계:

1. 데이터 탭에서 웹에서를 선택하고, 아래 URL을 입력합니다:

http://apilayer.net/api/historical?access_key=YOUR_API_KEY&date=2024-09-01&currencies=KRW&source=THB

YOUR_API_KEY 에는 발급받은 API KEY 를 붙여넣으면 됩니다.

currencies=KRW&source=THB   태국 바트를 한화로 알고 싶은경우입니다.

유로는 원화로 알고 싶을때는 currencies=KRW&source=THB  

달러를 원화로 알고 싶을때는 currencies=KRW&source=THB  

엔화를 원화로 알고 싶을때는 currencies=KRW&source=THB     로 입력 하면 됩니다.  

 

    2. Power Query가 데이터를 가져오면 JSON 형식으로 나타납니다. 이제 이를 표 형식으로 변환해야 합니다.

3) JSON 데이터를 테이블로 변환하기

JSON 데이터를 테이블로 변환하려면 Power Query에서 고급 편집기를 열어 M 코드를 추가해야 합니다.

M 코드 예시:

let     Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],     AddedCustom = Table.AddColumn(Source, "Custom", each "http://apilayer.net/api/historical?access_key=YOUR_API_KEY&date=" & Text.From([Date]) & "&currencies=KRW&source=THB"),     InvokeCustom = Table.AddColumn(AddedCustom, "CustomData", each Web.Contents([Custom])),     JsonExpand = Table.TransformColumns(InvokeCustom, {"CustomData", Json.Document}),     ExtractData = Table.ExpandRecordColumn(JsonExpand, "CustomData", {"quotes"}, {"THBKRW"}) in     ExtractData