Question

您好我正在尝试在Excel工作表中从VBA插入一行，到目前为止我读过的所有内容都让我认为下面的代码应该有效，它会失败，如下所述。

当我查看打开的文档时，它实际上已经选择了相关的单元格A7。

    Dim xlx As Object, xlw As Object, xls As Object, xlc As Object


    ' Establish an EXCEL application object
    On Error Resume Next
    Set xlx = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
          Set xlx = CreateObject("Excel.Application")
    End If
    Err.Clear
    On Error GoTo 0

    xlx.Visible = True

    Set xlw = xlx.Workbooks.Open("my.xlxs")

    Set xls = xlw.Worksheets("Offer")
    xlw.sheets("Offer").Activate
    xls.range("A7").select
ActiveCell.Offset(1).EntireRow.Insert

＆＃39;换行符错误＆＃34;编译错误＆＃34; ＆＃34;变量无定义＆＃34; ActiveCell突出显示？ ActiveCell.Offset（1）.EntireRow.Insert 提前致谢安德鲁

Answer 1

我看起来应该从其他应用程序（如Access）运行代码。访问（或任何应用程序）不知道ActiveCell的含义。

将最后三行代码替换为string stringThatKeepsYourHtml = "<div id=...."; HtmlDocument doc = new HtmlDocument(); doc.LoadHtml(stringThatKeepsYourHtml); string whatUrLookingFor = doc.GetElementbyId("myId").InnerHtml; - 在添加行之前，无需激活工作表或选择范围内的单元格。

编辑 - 因为你总是选择A7并且偏移一个，所以更容易使用A8。

Excel - VBA插入行错误424＆＃34;需要对象

1 个答案: