使用vba使用日期范围从网站中刮取数据

我有个问题。我使用过去15天的日期范围从网站中提取数据。当我输入开始日期和结束日期时，我会显示6列的数据，我需要将其复制到excel工作表数据中。下面是我的代码，我尝试过但无法执行它。请帮忙

Sub scrapedata()
  Dim eRow As Long
  Dim ele As Object
  Dim objIE
  Set sht = Sheets("Data")
  
    RowCount = 1
    sht.Range("A" & RowCount) = "Product(s)"
    sht.Range("B" & RowCount) = "Manufacturer"
    sht.Range("C" & RowCount) = "NOC with conditions"
    sht.Range("D" & RowCount) = "Notice of Compliance date"
    sht.Range("E" & RowCount) = "Medicinal ingredient(s)"
    sht.Range("F" & RowCount) = "DIN(s)"
  
  eRow = sht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

  Set objIE = CreateObject("InternetExplorer.Application")

mynocFromDate = InputBox("enter from date eg.2016-10-01")
mynocToDate = InputBox("enter to date eg.2016-10-05")
  With objIE
    .Visible = True
    .Navigate "https://health-products.canada.ca/noc-ac/index-eng.jsp"
    Do While .Busy Or .readyState <> 4
      DoEvents
    Loop

setcol -sm - 6 = .document.getElementsByname("q")
col-sm-6.Item(o).Value = nocFromDate

setcol -sm - 6 = .document.getElementsByname("nocToDate")
col -sm - 6.Item(o).Value = nocToDate

.document.getElementById("mrgn-tp-md").Click

For Each ele In .document.all
      Select Case ele.classname
        Case "table-responsive"
          RowCount = RowCount + 1
        Case "Product"
         sht.Range("A" & RowCount) = ele.innerText
        Case "Manufacturer"
          sht.Range("B" & RowCount) = ele.innerText
        Case "NOC with conditions"
          sht.Range("C" & RowCount) = ele.innerText
        Case "Notice of Compliance date"
          sht.Range("D" & RowCount) = ele.innerText
        Case "Medicinal ingredient(s)"
          sht.Range("E" & RowCount) = ele.innerText
        Case "DIN(s)"
          sht.Range("F" & RowCount) = ele.innerTex
      End Select
    Next
  End With
  Set objIE = Nothing
  End Sub

子数据（）
暗淡如长
作为对象的Dim ele
昏暗的奥布杰
设置sht=图纸（“数据”）
行数=1
短范围（“A”和行数）=“产品”
短范围（“B”和行数）=“制造商”
短范围（“C”和行计数）=“有条件的NOC”
短范围（“D”和行数）=“合规通知日期”
短范围（“E”和行数）=“药用成分”
短距离（“F”和行数）=“DIN（s）”
eRow=sht.Cells（Rows.Count，1）。End（xlUp）。Offset（1，0）。Row
Set objIE=CreateObject（“InternetExplorer.Application”）
mynocFromDate=输入框（“输入起始日期，如2016-10-01”）
mynocToDate=输入框（“输入截止日期，如2016-10-05”）
与奥布杰
.Visible=True
.导航“https://health-products.canada.ca/noc-ac/index-eng.jsp"
请稍等片刻。忙碌或。准备就绪状态4
多芬特
环
setcol-sm-6=.document.getElementsByname（“q”）
col-sm-6.项目（o）.值=nocFromDate
setcol-sm-6=.document.getElementsByname（“nocToDate”）
col-sm-6.项（o）.值=nocToDate
.document.getElementById（“mrgn tp md”）。单击
对于文档中的每个元素。全部
选择Case ele.classname
案例“表格响应”
RowCount=RowCount+1
案例“产品”
sht.Range（“A”&行数）=ele.innerText
案例“制造商”
sht.Range（“B”和行数）=ele.innerText
案例“有条件的国家奥委会”
sht.Range（“C”&行数）=元素innerText
案例“合规日期通知”
sht.Range（“D”和行数）=ele.innerText
案例“药用成分”
sht.Range（“E”和行数）=ele.innerText
案例“DIN（s）”
短程范围（“F”和行数）=ele.innerTex
结束选择
下一个
以
设置对象=无
端接头

这不是你刚刚在这里发布的同一个问题吗：是的，因为我的互联网问题，它被发布了两次-然后你应该关闭最旧的一个以避免重复；）是的，我正在努力。很快你就只能看到一个了。你能帮我回答我的问题吗？这不是你刚刚在这里发布的同一个问题吗：是的，因为我的网络问题，它被发布了两次-然后你应该关闭最旧的一个以避免重复；）是的，我正在努力。很快你就只能看到一个了。你能帮我回答我的问题吗？