如何使用vbs在excel中添加一个下拉列表
嗨，我想添加一个使用VBS的Excel下拉，我得到了下面的错误。
vbs(18, 15) Microsoft VBScript compilation error: Syntax error 我甚至logging了一个marco，并使用从那里的代码仍然没有工作。
第18行和第15列是添加关键字的行。
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：Q11有一个样本数据集我做错了什么？
你需要用他们直接的vbs数值（你可以通过VBA帮助获得）replacexlValidateList的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
