尝试复制TD元素表单SharePoint并得到奇怪的错误

Question

这是我的非工作代码：

SnapShotDate = SnapShot & M
'Wait for site to fully load
URL = SnapShotDate
'Wait for site to fully load
IE.Navigate2 URL
Do While IE.Busy = True
DoEvents
Loop
With ActiveSheet.Name
x = IE.document.body.innertext
StartDate = InStr(1, x, "In-Market Start Date ")
EndDate = InStr(1, x, "In-Market End Date ")
ActualDate = Mid(x, StartDate + 10, EndDate - StartDate - 10)
.Range(y, 35) = ActualDate
End With

我将两个变量连接在一起以得出URL; 这工作正常。 我正在网址中搜索介于"有市场兴趣的开始日期"和"有市场兴趣的结束日期"之间的日期。 我可以找到该值，并将其放入名为"ActualDate"的字符串中。 现在，当我尝试将其写入单元格时，出现此错误："需要运行时错误 424 对象">

此行始终引发错误。 .范围 (y， 35) = 实际日期

我不确定这里出了什么问题。 另外，我认为可能有更好的方法，因为这似乎有点困难，而且随着时间的推移，我了解到，如果 Excel 中某些内容看起来很困难，那可能是因为你做错了。 这里有人可以给我一点指导，说明这里出了什么问题吗？ 另外，我能以更有效的方式做到这一点吗？

谢谢！

Answer 1

从With ActiveSheet.Name中删除.Name，因为它不需要。

此外，将.Range(y, 35)更改为.Cells(y, 35)。