0

我正在编写一个小的 Excel 宏，并且我有一个名为 EventClass 的类。

我遍历工作表中的每一行，并将每一行作为 EventClass 对象添加到 EventClass 对象集合中 - 行中的每个单元格都是该类的属性。

这是代码：

Dim iRow As Integer
For iRow = 2 To oSourceWorksheet.UsedRange.Rows.Count

    Set evEvent = New EventClass
    evEvent.OwnerConsolidated = oSourceWorksheet.Rows(iRow, 1)
    evEvent.OwnerUser = oSourceWorksheet.Rows(iRow, 2)
    evEvent.ProductsAF = oSourceWorksheet.Rows(iRow, 3)
    evEvent.ProductsGL = oSourceWorksheet.Rows(iRow, 4)
    evEvent.ProductsMZ = oSourceWorksheet.Rows(iRow, 5)
    evEvent.Quarter = oSourceWorksheet.Rows(iRow, 6)
    evEvent.Attendees = oSourceWorksheet.Rows(iRow, 7)
    evEvent.CampaignName = oSourceWorksheet.Rows(iRow, 8)

    colEvents.Add evEvent

Next iRow

错误是在第一个属性集上引发的，我不知道为什么。

如果您需要查看任何其他代码或任何内容，请告诉我！

多谢你们！

4

1 回答 1

3

尝试使用.Rows带有两个参数的范围对象的属性时出现此错误，即使智能感知告诉我您可以提供两个参数：

在此处输入图像描述

尝试这样做：

With oSourceWorksheet.UsedRange
    evEvent.OwnerConsolidated = .Cells(iRow, 1)
    evEvent.OwnerUser = .Cells(iRow, 2)
    evEvent.ProductsAF = .Cells(iRow, 3)
    evEvent.ProductsGL = .Cells(iRow, 4)
    evEvent.ProductsMZ = .Cells(iRow, 5)
    evEvent.Quarter = .Cells(iRow, 6)
    evEvent.Attendees = .Cells(iRow, 7)
    evEvent.CampaignName = .Cells(iRow, 8)
End With
于 2013-10-16T15:29:38.453 回答