안녕하세요 제주도에서 농사를 짓고 있는 청년입니다. 기상 데이터 실시간 엑셀 연동 부분 도와주세요 ㅠㅠ

<span style="color: #0000ff;"><strong>Sub APIGetWthr()</strong></span>
    Dim vXML As Variant, AreaCode As String, StartDay As String, EndDay As String, sKey As String
    With <span style="color: #ff0000;"><strong>Sheets("Data")</strong></span>
      AreaCode = .Range("A2").Value2
      If IsDate(.Range("B2")) Then StartDay = Format(.Range("B2"), "yyyymmdd") Else StartDay = Format(Application.EDate(Date - 1, -1), "yyyymmdd")
      If IsDate(.Range("C2")) Then
        If .Range("C2") < Date Then
          EndDay = Format(.Range("C2"), "yyyymmdd")
        Else
          EndDay = Format(Date - 1, "yyyymmdd")
        End If
      Else
        EndDay = Format(Date - 1, "yyyymmdd")
      End If
      If Not IsEmpty(.Range("F2")) Then sKey = .Range("F2").Value2
 
      .Range("A4").CurrentRegion.Clear
      vXML = getWthrDataList(AreaCode, StartDay, EndDay, sKey)
      If Not IsArray(vXML) Then .Range("A5") = vXML Else .Range("A4").Resize(UBound(vXML, 1), UBound(vXML, 2)) = vXML
      .Range("A5").WrapText = False
 
    End With
    MsgBox "완료되었습니다."
 
End Sub
 
<strong><span style="color: #0000ff;">Function getWthrDataList(AreaCode As String, StartDay As String, EndDay As String, Optional sKey As String = "")</span></strong>
    Dim request As String, result As String, vXML As Variant, x As Double, y As Double
    Dim ServiceURL As String, EncodingKey As String
 
    On Error Resume Next
    ServiceURL = "https://apis.data.go.kr/1360000/AsosDalyInfoService/getWthrDataList"
    EncodingKey = sKey
    If EncodingKey = "" Then EncodingKey = <span style="color: #ff0000;">"개인키는삭제하였습니다"</span>
 
    request = ServiceURL & "?ServiceKey=" & EncodingKey
    request = request & "&pageNo=1&numOfRows=999&dataType=XML&dataCd=ASOS&dateCd=DAY&startDt=" & StartDay & "&endDt=" & EndDay & "&stnIds=" & AreaCode
 
    result = getURL(request, "GET")
    If InStr(1, result, "errMsg") Then getWthrDataList = result: Exit Function
 
    vXML = getWthrDataListArray(result)
 
    getWthrDataList = vXML
 
EXIT_RUN:
    Exit Function
 
ERROR_RUN:
    GoTo EXIT_RUN
 
End Function
 
<strong><span style="color: #0000ff;">Function getWthrDataListArray(sXML As String)</span></strong>
    Dim xmlDoc As Object, xmlNodeList As Object, xmlNode As Object, xmlChild As Object
    Dim vF As Variant, i As Long
 
    Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
 
    With xmlDoc
        .async = False
        .validateOnParse = False
        .LoadXML sXML
 
        ReDim vF(1 To 5, 1 To 1)
        i = 1
        vF(1, 1) = "날짜": vF(2, 1) = "평균": vF(3, 1) = "최저": vF(4, 1) = "최고": vF(5, 1) = "비"
 
        '// TagName으로 단계별로 검색하여 가져오기
        Set xmlNode = .getElementsByTagName("response")(0)
        Set xmlNode = xmlNode.getElementsByTagName("body")(0)
        Set xmlNode = xmlNode.getElementsByTagName("items")(0)
        Set xmlNodeList = xmlNode.ChildNodes
        For Each xmlNode In xmlNodeList
          i = i + 1
          ReDim Preserve vF(1 To 5, 1 To i)
          For Each xmlChild In xmlNode.ChildNodes
            With xmlChild
              If .BaseName = "tm" Then vF(1, i) = .Text       '//일자
              If .BaseName = "avgTa" Then vF(2, i) = .Text    '//평균기온
              If .BaseName = "minTa" Then vF(3, i) = .Text    '//최저기온
              If .BaseName = "maxTa" Then vF(4, i) = .Text    '//최고기온
              If .BaseName = "sumRn" Then vF(5, i) = .Text    '//일강수량
            End With
          Next
        Next
    End With
 
    getWthrDataListArray = Application.Transpose(vF)
 
End Function
 
<strong><span style="color: #0000ff;">Function getURL(URL As String, Optional RequestMethod As String = "GET")</span></strong>
    Dim oHTTP As Object
    Dim iMaxRetry As Long, iRetry As Long, i As Long
 
    On Error Resume Next
    Set oHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
    If Err.Number <> 0 Then Set oHTTP = CreateObject("MSXML2.XMLHTTP")
    On Error GoTo 0
 
    On Error GoTo ERROR_RUN
    With oHTTP
        .Open RequestMethod, URL
        .send
        getURL = .responseText
    End With
 
EXIT_RUN:
    Set oHTTP = Nothing
    Exit Function
 
ERROR_RUN:
    getURL = "ERROR: " & Error(Err.Number) & vbNewLine & Err.Description
    GoTo EXIT_RUN
End Function