v7: Excel OLE выпадающий список #621788

Народ, как можно организовать при заполнении екселя выпадающий список, в VBA выглядит так, это ячейка в которой четко выбор пару значений, значения константные, тоесть не меняющиеся и не берущиеся из других ячеек. With Selection.Validation Как бы это реализовать в 1с? сейчас есть такое и выдает ошибку :( Лист.Range("H1:I1").Validation.Add(3,1,1,("=Я;В")); - ошибку выдает Add походу не знает. и пробовал толку нет. Лист.Cells(1,1).Validation.Add(3,1,1,("=Я;В"));

Что за ошибка? Текст ошибки покажи? Покажи так же полный код, то строчки "Лист.Range("H1:I1").Validation.Add(3,1,1,("=Я;В")); " нет

чаще всего пишет так Лист.Cells(1,1).Validation.Add(3,1,1,("=Я;В")); {C:EXCEL_CПИСКИ.ERT}: : но опытным путем с таким же почти кодом в 8.1 пишет следующее... Что метод Add не найден. выше почти весь полный код :) ну вот весь. Процедура Сформировать

Селекта не хватает

надо что=то типа

хотя справка говорит что через range должно работать

про select пробовал, особенно понятно что нужно в Cells но ошибки все теже абсолютно :(

ТипЗначенияСтр(Лист.Cells(1,1)) = "OLE.Range"

ТипЗначенияСтр(Лист.Cells(1,1).Validation) = "OLE.Validation"

а вот не смотря на MSDN метода add не знает :(

причем даже свойств типа нет у Validation err: Лист.Range("H1:I1").Validation.IgnoreBlank=1; {C:EXCEL_CПИСКИ.ERT}: :

код на VBS тоже самое не может создать, что могут макросы екселя :( 'If oExcel Is Nothing Then Exit Function ' В новой рабочей книге создавать только один рабочий лист Set oBook = oExcel.Workbooks.Add 'If oBook Is Nothing Then Exit Function ' If vbNullString = Dir(sDirName, vbDirectory) Then Exit Function set cell =oSheet.Range("A1") cell.Validation.Add(3,1,1,("=Я;В")) ' вот тут все равно ошибка :( ' Сохраняем книгу

Странно, но везде с начала стоит Делет With Range("A1").Validation

+ How do you add the line to what I am trying to write? objExcelApp1.Workbooks.Open “L:DEPT1D030BFinancial Compliance TeamState ReportingAutomated Form and EmailerState of Maine 2008 Report FilesMe Template”, , False Choices = “APRN, CRNA, CRNP, DDS, DO, DPM, DVM, MD, ND, NP, OD, PA, RN, Health Plans & Benefit Managers, Nursing Home Administrators, Pharmacists, Pharmacy Technicians, Psychologists, Veterinary Technicians, other” objexcelsheet1.Range(“a14?).Select objexcelsheet1.Range(“a14?).PasteSpecial objexcelsheet1.Rows(“14?).Select objexcelsheet1.Rows(“14?).Delete objexcelsheet1.Range(“r17:r2000?).Select

оставляю на память кому понадобиться, вот это рабочее Процедура Сформировать

всем спасибо! :)