Пишу макрос для Excel 2010. На текущем этапе макрос должен считывать определённые строки из одного листа, затем добавить их в новую книгу. Считываемая строка представляет собой заказ с характеристиками Name, Code и Amount. Поэтому создал класса Order и пытаюсь добавлять его в коллекцию.
Сам класс:
1.
2.
3.
Public Name As String
Public code As Integer
Public amount As Integer
И код из процедуры, который должен считывать определённые строки:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Dim cell As Range, sFileName As String, Orders As New Collection
Dim rowCount As Long
rowCount = ActiveSheet.Rows.Count
Dim j As Long
Dim orderValue As Integer, codeValue As Integer, sheet As Worksheet, currentOrder As Order
For j = 5 To rowCount
orderValue = ActiveSheet.Cells(j, 5).Value
If orderValue <> 0 Then
Set currentOrder = New Order
With currentOrder
.amount = orderValue
.code = ActiveSheet.Cells(j, 1).Value
.Name = ActiveSheet.Cells(j, 2).Value
End With
Orders.Add (currendOrder)
End If
Next j
Если смотреть в дебагере, то после добавления в коллекцию в ней появляется одна Item со значением Empty типа Variant/Empty.
Думаю, в коллекцию добавляется какой-то пустой элемент.
И так же при попытке записи этой коллекции в новую книгу вылетает ошибка "Object required" на строке оператора For Each:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Dim NewBook As Workbook
Set NewBook = Workbooks.Add
With NewBook
.Title = "All Sales"
.Subject = "Sales"
sFileName = Application.GetSaveAsFilename & ".xls"
Dim addingOrder As Order
j = 1
For Each addingOrder In Orders
ActiveSheet.Range(j, 1).Value = Orders.Item(j).code
ActiveSheet.Range(j, 2).Value = Orders.Item(j).Name
ActiveSheet.Range(j, 3).Value = Orders.Item(j).amount
j = j + 1
Next addingOrder
If sFileName = "False.xls" Then Exit Sub
.SaveAs Filename:=sFileName
End With
Подскажите пожалуйста, как правильно будет выглядеть код, или даже как лучше сделать эту задачу, если моё решение гораздо хуже вашей идеи.
