Sub Ex()
    Dim xlVbTable As Object, Ar, R As Integer, C As Integer
    With CreateObject("InternetExplorer.Application")
        .Visible = True
       .Navigate "http://jsjustweb.jihsun.com.tw/z/zc/zcr/zcr0_2891.djhtm"
        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
        Set xlVbTable = .document.getelementsbytagname("table")(11)
        Ar = Split(xlVbTable.Rows(0).Cells(0).innerText, Chr(10))(1)
        With ActiveSheet
            .Cells(1, 1) = Mid(Ar, 1, InStr(Ar, ":"))
            .Cells(1, 2) = Mid(Ar, InStr(Ar, ":") + 1, 9)
            For R = 1 To xlVbTable.Rows.Length - 1
                For C = 0 To xlVbTable.Rows(1).ALL.Length - 1
                    .Cells(R + 1, C + 1) = xlVbTable.Rows(R).Cells(C).innerText
                Next
            Next
        End With
       .Quit
    End With
End Sub