VBNet - Форум - Re: Помогите с Outlook и VBA! New version of "

Вопрос: Re: Помогите с Outlook и VBA! New version of " Добавлено: 03.06.05 14:12

Автор вопроса: Kate | ICQ: 320981901

Не знала, куда должна была дописать новую версию уже заданного вопроса, в то сообщение или создать новое. Извиняюсь, если что.
Опять же, есть функция:

Public Function re(k As Variant) As Variant
Dim reestr(200)  As String
i = 1
Close #1
Open "C:\New\VBO\reestr.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, TextLine
    If TextLine <> "" Then
     reestr(i) = Trim(TextLine)
     i = i + 1
    End If
Loop
Count = i
reestr(0) = Count
If k <> 0 Then
re = reestr(200)
Else: re = reestr(0)
End If
Close #1
End Function

(Я ее тут изменила. Теперь она первым элементом массива возвращает count-количество элементов массива).
И есть программный код, где вызывается эта функция и присваивается массиву:

Sub Item_Open()
Set objFormTab = Item.GetInspector.ModifiedFormPages("ОКВЭД")
  Set objCombo = objFormTab.Controls("ComboBox2")
  Set ThisOutlookSession = CreateObject("Outlook.Application")
coun=ThisOutLookSession.re(0)
'msgbox coun
Dim mass(coun)As Variant
mass()=ThisOutLookSession.re()
for i=1 to count
   objCombo.AddItem  mass(i)
next
End Sub

Ошибка появляется в строке определении массива (6-я, если без коммент.): "предполагается наличие константы целого типа". Через msgbox проверяю, что там с count'ом. Он равен 172. Вроде нормально. Так что ж не правильно?? Помогите, плз!
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Kate ICQ: 320981901 Вопросов: 2 Ответов: 3	Профиль \| \| #1	Добавлено: 03.06.05 14:50
	Я тут опять кое-что изменила. В VB функции: re = reestr(200) на re = reestr() И в программном коде: вместо count написала coun (опечатка). У меня выдает в Combobox эти 172 записи, но все пустые. Что не так? Ответить

Номер ответа: 2 Автор ответа: Kate ICQ: 320981901 Вопросов: 2 Ответов: 3	Профиль \| \| #2	Добавлено: 03.06.05 15:09
	И еще там 1 поставила: mass()=ThisOutLookSession.re(1) При таком раскладе выдает, что индекс выходит за пределы допустимого дипазона, как раз в этой же строке. Ответить

Номер ответа: 3 Автор ответа: Kate ICQ: 320981901 Вопросов: 2 Ответов: 3	Профиль \| \| #3	Добавлено: 06.06.05 15:22
	Товарисчи мальчики!! Ну, помогите, плз!!!! Ответить

Номер ответа: 4 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #4	Добавлено: 06.06.05 15:51
	Проверь TypeName(coun) Ответить

Страница: 1 |