Greg12
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
День добрый.Вопрос по работе с массивами.Есть макросы на VBA.При запуске в Эксель 97 работает.При запуске в Эксель 2003 - ошибка № 10 This array is fixed or temporarily locked Этот массив имеет фиксированную длину или он временно заблокирован .
Объявление массива в модуле:
'Option Base 0
Option Explicit
Public Type TObject
Name As String
x1 As Single
y1 As Single
x2 As Single
y2 As Single
Articul As String
papa As Integer
child(3) As Integer
price As Long 'Цена в центах
Pokras As Boolean ' Покраска
Color As String
End Type
Public objects() As TObject
В процедуре:
Public Sub Добавить_объект(Nom As Integer, n As String, x1 As Single, _
y1 As Single, x2 As Single, y2 As Single, a As String, _
p As Integer, ChildNom As Integer, Pokr As Boolean, C As String)
Dim SCE As Object
Application.DataEntryMode = xlOff
Set SCE = ActiveWorkbook.Sheets("EditSheet")
ReDim Preserve objects(Count), Cn(Count) "Здесь появляется ошибка"
objects(Nom).Name = n
objects(Nom).x1 = x1
|
