delphi操作excel怎样插入一个可选的列？
delphi操作excel怎样插入一个可选的列？
var
ExcelApp,WorkBook:Variant;
i,j:integer;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add;
WorkBook:=ExcelApp.WorkBooks.Open(D:\a.xls);
ExcelApp.ActiveSheet.Columns[2].Insert;
ExcelApp.Cells[1,2].Value := '性别';
end;
以上的代码插入的列是不可选的，怎样插入一个可选的列？下面可以选男或者女？
[解决办法]
ExcelApp.ActiveSheet.Columns[2].Validation.add(xlValidateList,xlValidAlertStop, xlBetween,
'男,女') ;
加上这句应该就可以了，试试
