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;这很好用。我在网址中搜索了一个日期，该日期介于“市场开始日期”之间。和＆＃39;市场结束日期＆＃39;。我可以找到该值，并将其放入名为＆＃39; ActualDate＆＃39;的字符串中。现在，当我尝试将其写入单元格时，我收到此错误：＆＃39;运行时错误424对象需要＆＃39;

此行始终抛出错误。 .Range（y，35）= ActualDate

我不确定这里有什么问题。此外，我认为可能有更好的方法，因为这看起来有点困难，而且我已经了解，随着时间的推移，如果在Excel中看起来有些困难，可能是因为你在做错了。有人可以给我一些关于这里有什么问题的指导吗？另外，我可以以更有效的方式做到这一点吗？

谢谢！

Answer 1

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

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

试图复制TD元素formSharePoint并得到奇怪的错误

1 个答案: