如何使用uft写入excel下拉列表/ combobox？

Question

我必须在excel下拉列表中选择/编写内容（手动可以从下拉列表中选择一个值或将其写入框中）。

我有以下代码：

set objExcel = createobject("excel.application")
objExcel.Visible=True
set objWB = objExcel.workbooks.open ("<path>\name.xlsm", readonly=False)
set objsheet = objwb.worksheets("Project")
objwb.Worksheets("Project").Activate

我已经通过多种方式尝试过，包括objsheet.Cells（16,2）=＆＃34; 4162-P-0001＆＃34;，但没有成功

提前感谢您的帮助！