WEB¬d¸ß§ï¦¨XMLHTTP

BANK870

½Ð°ÝWED¬d¸ß¦p¦ó§ï¦¨XMLHTTP¬d¸ß

BANK870

ÁÂÁ¤j¤j½Ð°Ý¤j¤j³o¬q»yªk§Ú¦³ÂI¤£À´¥i¥H±Ð§Ú¶Ü?
        Do While .Status <> 200
             DoEvents
             If timer - t > 3 Then Exit Do
          Loop
          If .Status <> 200 Then MsgBox "No successful web connection", vbOKOnly: Exit Sub
           myHTML.body.innerHTML = .responsetext
      End With
      Set myTable = myHTML.getelementsbytagname("TABLE")(10)
      
      With myTable

            k = 1
            ReDim arDATA(.Rows.Length, .Rows(3).Cells.Length)
            
            For i = 1 To .Rows.Length
                  On Error Resume Next
                  For j = 3 To .Rows(3).Cells.Length
                        
                        arDATA(k, j - 2) = .Rows(i - 1).Cells(j - 1).innertext
                  Next
                  If Err.Number = 0 Then k = k + 1
            Next
            On Error GoTo 0
      End With

      sh.Cells.Clear
      sh.[A1].Resize(UBound(arDATA), UBound(arDATA, 2)) = arDATA