구글시트 open api 적용 관련 질문드립니다.

Question

https://odp.airport.kr/openapi/Temp/StatusOfPassengerFlightsOdpTemp/getPassengerArrivalsOdpTemp?TempKey=1uIUvp6wxzImej%2BMgTP%2B4K9WNjDo8UsKkLcm8wIzqBA%3D%2B%2B%2B43gddw3ghha%3D&type=json

인천공항 도착 현황 임시 오픈api 주소입니다.

이번 대전 국가정보자원관리원 화재로 인해 공공데이터 포털 접속이 제한되어 기존 사용중이던 오픈api 자료가 먹통이 되었습니다.

다행이 인천공항 측에서 임시대체 오픈api 소스를 공개했는데 구글시트에 적용되지 않는 문제가 있어 질문드립니다.

기존에 구글 검색으로 json 앱스크립트 코드를 찾아 넣어 사용하고 있었습니다. url 부분만 바꾸면 될 거 같아 진행했는데 자꾸 오류가 납니다.

해결할 방법이 있을까요?

관련 구글 시트는 밑에 링크로 남겨두겠습니다.

https://docs.google.com/spreadsheets/d/1kkLHeEkdyBvhLdjFzFC5iFxCddTDiMExEzONWbydjhQ/edit?usp=sharing

감사합니다.

수메리안 · Accepted Answer

안녕하세요~
구글시트에서 말씀드렸듯이 인천공항에서 구글시트에서의 접근을 막고 있는 거 같습니다.
엑셀 vba로 작업해서 구글로 올리는 방법이 현재로서는 대안인 듯 합니다~

'************************************************************
' 인천공항 도착편 API 로더 (Excel VBA 버전)
'************************************************************

Option Explicit

' ==================== 설정 상수 ====================

Private Const API_KEY As String = "1uIUvp6wxzImej+MgTP+4K9WNjDo8UsKkLcm8wIzqBA=+++43gddw3ghha="
Private Const API_URL As String = "https://odp.airport.kr/openapi/Temp/StatusOfPassengerFlightsOdpTemp/getPassengerArrivalsOdpTemp"
Private Const SHEET_NAME As String = "Arrivals"

' ==================== 메인 함수 ====================
Sub FetchArrivals()
    '/**
    ' * 도착편 데이터를 가져와서 시트에 출력
    ' */
    
    On Error GoTo ErrorHandler
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Debug.Print "=== 도착편 데이터 가져오기 시작 ==="
    
    '// API 호출
    Dim jsonText As String
    jsonText = CallAirportAPI()
    
    ' // JSON 파싱 및 데이터 가공
    Dim dataArray As Variant
    dataArray = ProcessArrivalData(jsonText)
    
    ' // 시트에 출력
    WriteToSheet SHEET_NAME, dataArray
    
    Dim itemCount As Long
    itemCount = UBound(dataArray, 1) - 1 ' 헤더 제외
  
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    MsgBox itemCount & "개의 도착편 정보를 불러왔습니다.", vbInformation, "완료"
    
    Exit Sub
    
ErrorHandler:
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    Debug.Print " 에러 발생: " & Err.Description
    MsgBox "데이터를 불러오는데 실패했습니다." & vbCrLf & vbCrLf & _
           "오류: " & Err.Description, vbCritical, " 오류 발생"
End Sub