Как установить значение combobox из VBScript

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Ivan Shibanov
Сообщения: 4
Зарегистрирован: 25 май 2010, 14:44

Добрый день! Может кто-нибудь знает как из VBScript установить значение comboboxa который находится на листе, если ячейка с которой он связан находится на другом листе защищенным от изменения? Кто-нибудь сталкивался с такой проблемой?
Аватара пользователя
EducatedFool
Сообщения: 197
Зарегистрирован: 06 апр 2008, 14:03
Откуда: Россия, Урал
Контактная информация:

как из VBScript
а что вы понимаете под VBScript?
Файл с расширением VBS, или макросы в файле Excel?

Сделать несложно. Прикреплённый пример файла НАМНОГО ускорит получение готового решения.
Макросы для Excel, Word, CorelDRAW. Быстро, профессионально, недорого. http://ExcelVBA.ru/

Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
Ivan Shibanov
Сообщения: 4
Зарегистрирован: 25 май 2010, 14:44

Под VBScript понимается скриптовый VB, который используется при написании HTML страничек - по сути тот же VB только вызывается из тела странички. Пример файла прилагаю
Вложения
forma1.zip
(62.53 КБ) 52 скачивания
Ivan Shibanov
Сообщения: 4
Зарегистрирован: 25 май 2010, 14:44

Все, разобрался с этой проблемой. Тему можно считать закрытой
ruska2003
Сообщения: 2
Зарегистрирован: 07 июн 2010, 00:28

Ivan Shibanov писал(а):Все, разобрался с этой проблемой. Тему можно считать закрытой

А как разобрался, подскажи плиз?!
Ivan Shibanov
Сообщения: 4
Зарегистрирован: 25 май 2010, 14:44

В VBScript работа с комбобоксом осуществляется через DropDowns, пример кода привожу

Код: Выделить всё

	set ExcelApp = CreateObject("Excel.Application")
	set Workbook = ExcelApp.WorkBooks.Add(gsServerURL&"/export/Estate2XLS/ExportForm1ToExcelTemplate.xls")
	Workbook.ActiveSheet.DropDowns(1).ListIndex = 5
ruska2003
Сообщения: 2
Зарегистрирован: 07 июн 2010, 00:28

Ivan Shibanov писал(а):В VBScript работа с комбобоксом осуществляется через DropDowns, пример кода привожу

Код: Выделить всё

	set ExcelApp = CreateObject("Excel.Application")
	set Workbook = ExcelApp.WorkBooks.Add(gsServerURL&"/export/Estate2XLS/ExportForm1ToExcelTemplate.xls")
	Workbook.ActiveSheet.DropDowns(1).ListIndex = 5

спасибо большое за подсказку
Ответить