控制EXCEL的问题
请问各位大神：
如何用代码在EXCEL表中添加复选框控件（CheckBox）,又如何用代码更改复选框控件的值？
謝謝先！
[解决办法]
本帖最后由 apple_8180 于 2014-01-18 08:56:38 编辑 lcFileName='c:\test1.xls'
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcFileName')&& 打开文件
oExcel.Visible=.T.
oExcel.ActiveSheet.OLEObjects.Add("Forms.CheckBox.1","",.F.,.F.,"",0,"",200,90,110,20)&& 后4个参数是坐标
oExcel.ActiveSheet.OLEObjects("CheckBox1").Activate
Messagebox('点击确定后选中 CheckBox')
oExcel.ActiveSheet.OLEObjects("CheckBox1").Object.Value=1
Messagebox('看一下选中后效果')
oExcel.ActiveWorkbook.saved=.T.&& 不保存当前EXCEL表
oExcel.Workbooks.Close&& 关闭表
oExcel.Quit&& 退出EXCEL
Release oExcel&& 释放变量
Messagebox('操作完成！',64,'信息提示')
