Excel VBA抓證交所融券借券賣出餘額

使用Excel VBA QueryTable抓取證交所 每日更新的融券借券賣出餘額 報表，有興趣的可以研究以下的程式碼

Sub 融券借券賣出餘額()
    Const xlURL As String = "http://www.twse.com.tw/ch/trading/exchange/TWT93U/TWT93U.php"
    With ActiveSheet.QueryTables.Add("URL;" & xlURL, Destination:=Range("$A$1"))
        .WebFormatting = xlWebFormattingNone
        .WebTables = "9"
        .Refresh 0
    End With
End Sub

成功擷取畫面