Как установить значение combobox из VBScript
Модератор: Naeel Maqsudov
-
- Сообщения: 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
Благодарности принимаются на кошелёк WebMoney: R318574877619 и Яндекс.Деньги: 41001335672216
-
- Сообщения: 4
- Зарегистрирован: 25 май 2010, 14:44
Под VBScript понимается скриптовый VB, который используется при написании HTML страничек - по сути тот же VB только вызывается из тела странички. Пример файла прилагаю
- Вложения
-
- forma1.zip
- (62.53 КБ) 52 скачивания
-
- Сообщения: 4
- Зарегистрирован: 25 май 2010, 14:44
Все, разобрался с этой проблемой. Тему можно считать закрытой
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
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
спасибо большое за подсказку