vc操作Excel,设置单元格格式为下拉框

Question

我有数据“是”和“否”，现在想在Excel的某个单元格中以下拉框的格式显示
下面是VBA的宏录制
With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="是,否"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
我不知道要用到哪些类和哪些类中的函数，最好给出代码。

Answer 1

没做过操作Excel 的，帮楼主顶下，网上能不能找到相关的操作Excel 的例子啊？可以参考下网上的源码

Answer 2

        Range   range;
Validation  vali;
range=wsMysheet.GetRange(COleVariant("D2"),COleVariant("D5"));
range.Activate();
//vali.AttachDispatch(range.GetAreas());
vali.Delete();
long xlValidateList=3;
short xlValidAlertStop=1;
short xlBetween=1;
vali.Add(xlValidateList,COleVariant(xlValidAlertStop),COleVariant(xlBetween),COleVariant("是,否"),COleVariant(""));
vali.SetIgnoreBlank(true);
vali.SetInCellDropdown(true);
vali.SetInputTitle("");
vali.SetErrorTitle("");
vali.SetInputMessage("");
vali.SetErrorMessage("");
vali.SetIMEMode(0);
vali.SetShowInput(true);
vali.SetShowError(true);
这样处理完，还是不行，不知道还漏了什么?请各位达人看看

Answer 3

没看见你给vali赋值啊
Validation对象 可以由Rang对象得到