Как добавить выпадающий список в excel с помощью vbs

Question

Привет Я пытаюсь добавить выпадающее меню в excel с помощью vbs, и я получаю следующую ошибку.

vbs(18, 15) Microsoft VBScript compilation error: Syntax error 

Я даже записал марко и использовал код оттуда, но он не работал.

Строка 18 и столбик 15 - это строка с ключевым словом add.

Range("A1").Select 
    With Selection.Validation 
     .Delete 
     .Add (Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
     xlBetween, Formula1:="=$Q$9:$Q$11") 
     .IgnoreBlank = True 
     .InCellDropdown = True 
     .InputTitle = "" 
     .ErrorTitle = "" 
     .InputMessage = "" 
     .ErrorMessage = "" 
     .ShowInput = True 
     .ShowError = True 
    End With 

В9: В11 имеет образец набора данных Что я делаю неправильно?

Answer 1

Вам необходимо заменить внутренние константы vbaxlValidateList их цифровым эквивалентом vbs (который вы можете получить с помощью справки VBA). Это работает:

Dim objExcel, objWB, objws 
Set objExcel = CreateObject("excel.application") 
Set objWB = objExcel.Workbooks.Add 
Set objws = objWB.Sheets(1) 
With objws.Range("A1").Validation 
     .Add 3, 1, 1, "=$Q$9:$Q$11" 
     .IgnoreBlank = True 
     .InCellDropdown = True 
     .InputTitle = "" 
     .ErrorTitle = "" 
     .InputMessage = "" 
     .ErrorMessage = "" 
     .ShowInput = True 
     .ShowError = True 
end With