05 2020 档案

摘要:1 Sub Xpath定位() 'MSXML2.DOMDocument.6.0 2 Const str_Html As String = _ 3 "<div id = ""outside"">" & _ 4 "<div id =""box"">" & _ 5 "<div id = ""head"" 阅读全文
posted @ 2020-05-11 21:32 易塞尔工作室 阅读(1423) 评论(1) 推荐(0)
摘要:1 Sub Css定位() 2 3 Const url As String = "https://www.taifex.com.tw/cht/3/futDailyMarketReport" '期货每日交易行情查询 4 Dim WinHttp As Object 5 Dim Dom As New MS 阅读全文
posted @ 2020-05-10 21:37 易塞尔工作室 阅读(573) 评论(0) 推荐(0)
摘要:1 '本例为前期绑定熟悉方法属性 引用这2个项目'Microsoft Internet Controls','Microsoft HTML Object Library' 2 'getElementsByClassName 后期绑定不支持 3 4 Sub DOM_定位() 5 Const url A 阅读全文
posted @ 2020-05-09 21:21 易塞尔工作室 阅读(781) 评论(0) 推荐(0)
摘要:1 Sub IEYahoo() '台湾网址较慢 2 Dim T 3 T = Timer 4 Cells.ClearContents 5 Application.StatusBar = "网络等待... ..." 6 Const url As String = "https://tw.stock.ya 阅读全文
posted @ 2020-05-09 21:18 易塞尔工作室 阅读(320) 评论(0) 推荐(0)