Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Работа с Type

Автор: Zdvig 11.11.2005, 18:22

Помогите разобраться с ошибкой. Ничего уже не пойму лезет и лезет: "Compile error: Cannot define a Public user-defined type within an object module"

Код


Option Explicit

Type Данные ' на это ругается
    Name As String
    Autor As String
    Tirag As Integer
    Izdat As String
End Type


Sub ReadyTable()

Dim B(10) As Данные
Dim i As Integer

'считывание
For i = 1 To 3
    With B(i)
        .Name = Cells(i, 1)
        .Autor = Cells(i, 2)
        .Tirag = Cells(i, 3)
        .Izdat = Cells(i, 4)
    End With
Next i

End Sub

Автор: likhobory 11.11.2005, 22:09

http://bbs.vbstreets.ru/viewtopic.php?t=15893&sid=d862631d34cb0c5e8cf6f8005f3c89bf

Автор: Zdvig 12.11.2005, 16:05

likhobory
Спасибо!