VBOX를 사용하여 Excel에서 드롭 다운 목록을 추가하는 방법

Question

안녕하세요. vbs를 사용하여 Excel에서 드롭 다운을 추가하려고하는데 아래 오류가 나타납니다.

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 

Q9 : Q11은 샘플 데이터 내가 뭘 잘못 을 설정할 수있다?

Answer 1

의 vba 내장 상수를 직접 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