如何使用vbs在excel中添加下拉列表

Question

您好我正在尝试使用vbs在Excel中添加下拉列表，我收到以下错误。

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

我甚至录制了一个marco并使用了那里的代码，但它还没有工作。

第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

您需要将xlValidateList 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 的固有常量替换为其直接vba数字等效值（您可以通过VBA帮助获取）。这有效：

{{1}}