Код не работает. Ошибка User-defined type not defined.

15.01.2008, 19:24. **Показов** 2333. **Ответов** 2

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

Всем привет!
Помогите разобраться почему не работает.

Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
' Open workbook from file.
Set xlw = xl.Workbooks.Open('C:1.xls')
' Choose 'Sheet1'
sheet.xlw.Sheets('Sheet1').Select
' Get the value from cell(2,2) the sheet.
Debug.Print
xlw.Application.Cells(2, 2).Value
' Close worksheet without save changes.
xlw.Close False
Set xlw = Nothing
Set xl = Nothing
При запуске пишет: User-defined type not defined.
Чего у меня не хватает?
Заранее всем спасибо.

@SIG · 16.01.2008, 10:44

Попробуй заменить

' Choose 'Sheet1'
sheet.xlw.Sheets('Sheet1').Select
' Get the value from cell(2,2) the sheet.
Debug.Print
xlw.Application.Cells(2, 2).Value

на

Debug.Print xlw.Sheets('Sheet1').Cells(2, 2).Value

@SIG · 16.01.2008, 11:04

Вопрос в 'догонку':

объектная библиотека Excel подключена (Projects->References) ?

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

Vlad2

	Код не работает. Ошибка User-defined type not defined. 15.01.2008, 19:24. Показов 2333. Ответов 2 Метки нет (Все метки) Всем привет! Помогите разобраться почему не работает. Dim xl As New Excel.Application Dim xlw As Excel.Workbook ' Open workbook from file. Set xlw = xl.Workbooks.Open('C:1.xls') ' Choose 'Sheet1' sheet.xlw.Sheets('Sheet1').Select ' Get the value from cell(2,2) the sheet. Debug.Print xlw.Application.Cells(2, 2).Value ' Close worksheet without save changes. xlw.Close False Set xlw = Nothing Set xl = Nothing При запуске пишет: User-defined type not defined. Чего у меня не хватает? Заранее всем спасибо.

@SIG 2 / 2 / 0 Регистрация: 22.11.2007 Сообщений: 70
	16.01.2008, 10:44
	Попробуй заменить ' Choose 'Sheet1' sheet.xlw.Sheets('Sheet1').Select ' Get the value from cell(2,2) the sheet. Debug.Print xlw.Application.Cells(2, 2).Value на Debug.Print xlw.Sheets('Sheet1').Cells(2, 2).Value 0

@SIG 2 / 2 / 0 Регистрация: 22.11.2007 Сообщений: 70
	16.01.2008, 11:04
	Вопрос в 'догонку': объектная библиотека Excel подключена (Projects->References) ? 0