我正在编写一个小的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
错误被抛出在第一个属性集上,我不知道为什么。
让我知道您是否需要查看其他任何代码或其他内容!
谢谢你们!
尝试使用.Rows
具有两个参数的range对象的属性时,即使intellisense告诉我可以提供两个参数,我也会收到此错误:
尝试这样做:
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句