Vba 从网页中提取表格数据

我正在运行下面的代码，并在单个单元格中从网页获取表数据。有人能指导我如何获得与网页相同格式的数据吗

    Sub getdata()
Dim ie As InternetExplorer
Dim i As Integer


i = 1
Set ie = New InternetExplorer
ie.Visible = True

ie.navigate "https://www.nseindia.com/market-data/live-equity-market?symbol=NIFTY%20200"
Do While ie.Busy = True Or ie.readyState <> 4: DoEvents: Loop

Application.Wait Now + TimeValue("00:00:05")
Set elements = ie.document.getElementsByTagName("table")

For Each element In elements
Cells(i, 1).Value = element.innerText
i = i + 1
Next element

End Sub

Sub-getdata（）
Dim ie作为InternetExplorer
作为整数的Dim i
i=1
Set ie=新的InternetExplorer
可见=真实
即“导航”https://www.nseindia.com/market-data/live-equity-market?symbol=NIFTY%20200"
当ie.Busy=True或ie.readyState 4:DoEvents:Loop时执行
应用程序。立即等待+时间值（“00:00:05”）
Set elements=ie.document.getElementsByTagName（“表”）
对于元素中的每个元素
单元格（i，1）.Value=element.innerText
i=i+1
下一个元素
端接头