Не хочет работать указанный код

@vpanasenko · Регистрация: 28.06.2011

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Import(ByRef filename As String, ByRef n As Byte, ByRef k As Byte)
 Static i As Byte, Path2 As String, g As Byte, myExelObject2 As Object
 Static flag As Boolean
  
  flag = False
  Path2 = Path1 + "dann.xls"
  Set myExcelObject2 = CreateObject("excel.application") 'äëÿ ÔÈÎ.xls
  For Each w In myExcelObject2.Workbooks
   If w.Name = filename Then flag = True
  Next w

Получаем сообщение Run-time error 91: Object variable or With block variable not set на строке For Each w.. Хотя Set myExcelObject2 = CreateObject("excel.application") 'äëÿ ÔÈÎ.xls
как видим, вызывается.. Но значение myExcelObject2=Nothing... И весь прикол, что не работает на Celeron 2.4.. На 700 - пашет. MS Office 2000..Да ,еще.. в VB/VBA я зировой...:-)))

@vpanasenko · 05.02.2012, 15:30 **[ТС]**

Забыл, система ХР SP 2

@VladConn · 05.02.2012, 15:31

Не определено "w"
Нужно
Dim w As Worksheet

@VladConn · 05.02.2012, 15:34

в вашем случае

Dim w As Workbook

Не углядел

@VladConn · 05.02.2012, 15:41

Так же неясно, зачем вы передаете аргументы ByRef, а не ByVal.

Этот код видимо нуждается в Exit For как только flag = True.

For Each w In myExcelObject2.Workbooks
....
If w.Name = filename Then flag = True
Next w

И почему flag Static? flag должен помнить свои значения между вызовами к Import?

@vpanasenko · 05.02.2012, 15:51 **[ТС]**

Compile error
User-defined type not defined
Сдела так:

Visual Basic
1
2
3
4
5
6
Sub Import(ByRef filename As String, ByRef n As Byte, ByRef k As Byte)
 Static i As Byte, Path2 As String, g As Byte, myExelObject2 As Object
 Static flag As Boolean
 Dim w As WorkBook
 
  flag = False

и т.д.

@vpanasenko · 05.02.2012, 15:59 **[ТС]**

Сообщение от VladConn

Так же неясно, зачем вы передаете аргументы ByRef, а не ByVal.

Этот код видимо нуждается в Exit For как только flag = True.

For Each w In myExcelObject2.Workbooks
....
If w.Name = filename Then flag = True
Next w

И почему flag Static? flag должен помнить свои значения между вызовами к Import?

Это не ко мне :-))) Нам "это" скинули с верху...Вот я и пытаюсь разобраться, почему не работает.. Тут еще вот в чем прикол - на 700-х целеронах работает.. Я беру и копирую *.DOC/*.XLS с ЗАВЕДОМО РАБОТАЮЩЕЙ КОПИИ НАДРУГОЙ МАШИНЕ !!! Просто машину новую поставил... Ну и попал..

@VladConn · 05.02.2012, 16:07

Откуда код? Изнутри Excel (VBA) или это VB? Если VB, то установите для начала референс на Excel в проекте

@vpanasenko · 05.02.2012, 16:16 **[ТС]**

Из нутрей Wordового макроса... Запускается макрос, который считывает данные из *.XLS...Затем их (данные) обрабатывает и выдает на гора документы(таблицы, договора, графики)...

@VladConn · 05.02.2012, 16:20

Тогда убедитесь, что версии Офисных библиотек одни и те же на всех РС. Если нет, то откомпилируйте макросы в самой нижней из них версии.

05.02.2012, 16:24

Но значение myExcelObject2=Nothing

Похоже, что объект Екселя не создается! Все-таки нужно посмотреть
ссылки!

@VladConn · 05.02.2012, 16:29

Именно это и беспокоит. Там видно стоят разные версии библиотек

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@vpanasenko 1 / 1 / 7 Регистрация: 28.06.2011 Сообщений: 342
	05.02.2012, 15:30 [ТС]
	Забыл, система ХР SP 2 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	05.02.2012, 15:31
	Не определено "w" Нужно Dim w As Worksheet 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	05.02.2012, 15:34
	в вашем случае Dim w As Workbook Не углядел 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	05.02.2012, 15:41
	Так же неясно, зачем вы передаете аргументы ByRef, а не ByVal. Этот код видимо нуждается в Exit For как только flag = True. For Each w In myExcelObject2.Workbooks .... If w.Name = filename Then flag = True Next w И почему flag Static? flag должен помнить свои значения между вызовами к Import? 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	05.02.2012, 16:07
	Откуда код? Изнутри Excel (VBA) или это VB? Если VB, то установите для начала референс на Excel в проекте 0

@vpanasenko 1 / 1 / 7 Регистрация: 28.06.2011 Сообщений: 342
	05.02.2012, 16:16 [ТС]
	Из нутрей Wordового макроса... Запускается макрос, который считывает данные из *.XLS...Затем их (данные) обрабатывает и выдает на гора документы(таблицы, договора, графики)... 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	05.02.2012, 16:20
	Тогда убедитесь, что версии Офисных библиотек одни и те же на всех РС. Если нет, то откомпилируйте макросы в самой нижней из них версии. 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	05.02.2012, 16:29
	Именно это и беспокоит. Там видно стоят разные версии библиотек 0