如何使用vb-script在特定范围的Excel单元格中添加下拉菜单？

' 创建Excel对象
Set objExcel = CreateObject("Excel.Application")
' 打开Excel文件
Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\your\excel\file.xlsx")
' 选择工作表
Set objWorksheet = objWorkbook.Worksheets("Sheet1")

' 定义下拉菜单的选项
dropdownOptions = Array("Option 1", "Option 2", "Option 3")

' 获取特定范围的单元格
Set objRange = objWorksheet.Range("A1:A10")

' 添加下拉菜单
With objRange.Validation
    .Delete ' 删除现有的数据验证
    .Add Type:=3, AlertStyle:=1, Operator:=1, Formula1:=Join(dropdownOptions, ",")
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

' 保存并关闭Excel文件
objWorkbook.Save
objWorkbook.Close

' 退出Excel应用程序
objExcel.Quit