Страница 1 из 1

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

Добавлено: 25 май 2010, 14:54
Ivan Shibanov
Добрый день! Может кто-нибудь знает как из VBScript установить значение comboboxa который находится на листе, если ячейка с которой он связан находится на другом листе защищенным от изменения? Кто-нибудь сталкивался с такой проблемой?

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

Добавлено: 25 май 2010, 15:41
EducatedFool
как из VBScript
а что вы понимаете под VBScript?
Файл с расширением VBS, или макросы в файле Excel?

Сделать несложно. Прикреплённый пример файла НАМНОГО ускорит получение готового решения.

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

Добавлено: 25 май 2010, 16:09
Ivan Shibanov
Под VBScript понимается скриптовый VB, который используется при написании HTML страничек - по сути тот же VB только вызывается из тела странички. Пример файла прилагаю

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

Добавлено: 31 май 2010, 15:50
Ivan Shibanov
Все, разобрался с этой проблемой. Тему можно считать закрытой

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

Добавлено: 07 июн 2010, 01:28
ruska2003
Ivan Shibanov писал(а):Все, разобрался с этой проблемой. Тему можно считать закрытой

А как разобрался, подскажи плиз?!

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

Добавлено: 07 июн 2010, 09:29
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

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

Добавлено: 07 июн 2010, 11:06
ruska2003
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

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