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
成功擷取畫面
沒有留言:
張貼留言