[英]Extract Table from Webpage
I am going to extract table having like "Date|Open|High|Low|Close|No.of Shares|No.of trades|Total Turnover|Deliverable Qty" on Web page " https://www.bseindia.com/markets/equity/EQReports/StockPrcHistori.aspx?expandable=7&scripcode=503100&flag=sp&Submit=G " 我要提取表“ https://www.bseindia.com/markets ”上具有“日期|开盘|高点|低点|收盘|股份数量|交易数量|总成交额|可交付数量”的表格/equity/EQReports/StockPrcHistori.aspx?expandable=7&scripcode=503100&flag=sp&Submit=G “
Below are my codes: 以下是我的代码:
Sub Macro_BSE()
Application.ScreenUpdating = False
Dim FileName, Pathname As String
MP = ActiveWorkbook.Name
Workbooks.Add
WB2 = ActiveWorkbook.Name
Dim IE As New SHDocVw.internetexplorer
Const MAX_WAIT_SEC As Long = 5
Dim frm As Variant
Dim element, submitInput As Variant
Dim rowCollection, htmlRow As Variant
Dim rowSubContent, rowSubData As Variant
Dim anchorRange As Range, cellRng As Range
Dim start
Dim A As String
Dim hTable As HTMLTable
Dim clipboard As Object
IE.Visible = True
IE.navigate "https://www.bseindia.com/markets/equity/EQReports/StockPrcHistori.aspx?expandable=7&scripcode=503100&flag=sp&Submit=G"
While IE.readyState <> 4: DoEvents: Wend
Application.Wait (Now + TimeValue("00:00:02"))
IE.document.querySelector("#ContentPlaceHolder1_rdbDaily").Click
IE.document.querySelector("[name='ctl00$ContentPlaceHolder1$txtFromDate']").Value = "28/11/2018"
IE.document.querySelector("[name='ctl00$ContentPlaceHolder1$txtToDate']").Value = "28/12/2018"
IE.document.querySelector("[name='ctl00$ContentPlaceHolder1$btnSubmit']").Click
Application.Wait (Now + TimeValue("00:00:10"))
T = Timer
Do
On Error Resume Next
Set hTable = IE.document.querySelector("#ContentPlaceHolder1_spnStkData table")
On Error GoTo 0
If Timer - T > MAX_WAIT_SEC Then Exit Do
Loop While hTable Is Nothing
If Not hTable Is Nothing Then
clipboard.SetText hTable.outerHTML
clipboard.PutInClipboard
Workbooks(WB2).Worksheets("Sheet1").Range("A1").PasteSpecial
End If
End Sub
I am not able to extract that table as of now. 截至目前,我无法提取该表。 Earlier i was able to extract from same code 之前我能够从相同的代码中提取
Kindly Suggest the changes 请建议更改
You never create an instance of the clipboard object. 您永远不会创建剪贴板对象的实例。 Do so before attempting to put text into it. 尝试在其中放入文本之前,请执行此操作。
Set clipboard = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
clipboard.SetText hTable.outerHTML
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.