如何用VBA语言将eBay网站上的“销售量”导入excel中？

Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP.6.0")

Dim url As String
url = "https://www.ebay.com/your-product-page" ' 替换为你要抓取的eBay产品页面URL

xmlhttp.Open "GET", url, False
xmlhttp.send

Dim htmlDoc As Object
Set htmlDoc = CreateObject("HTMLFile")
htmlDoc.body.innerHTML = xmlhttp.responseText

Dim salesElement As Object
Set salesElement = htmlDoc.getElementById("sales") ' 替换为实际销售量所在的HTML元素ID

Dim sales As String
sales = salesElement.innerText

Dim wb As Workbook
Set wb = ThisWorkbook ' 当前工作簿

Dim ws As Worksheet
Set ws = wb.Worksheets("Sheet1") ' 替换为目标工作表名称

ws.Range("A1").Value = sales ' 替换为目标单元格的地址