用vfp怎么给excel工作表添加excel的标签
用vfp如何给excel工作表添加excel的标签？
我用在VFP中控制excel的方法建一个excel文档，并将一dbf表导入。
我想添加一个excel的标签，没有搜索到方法，录制一段宏，得到如下代码：
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
DisplayAsIcon:=False, Left:=122.25, Top:=39.75, Width:=72, Height:=18 _
).Select
我想请教大家，如何将这段代码转为vfp代码？谢谢！！！
------解决方案--------------------
_ole_excel = CreateObject("Excel.Application")
_ole_excel.VISIBLE=.T.
_ole_excel.WorkBooks.Open('aa.xls') && 要打开的工作表名(xls)必须是全路径
_ole_excel.WorkSheets(1).Activate
_ole_excel.Worksheets(1).OLEObjects.Add("Forms.Label.1",'',.f.,.F.,,,, 122.25, 39.75, 72, 18)
------解决方案--------------------
其实就把
ClassType:="Forms.Label.1", Link:=False, _
DisplayAsIcon:=False, Left:=122.25, Top:=39.75, Width:=72, Height:=18 _
中的关键字去掉，只要蓝色值即可，False对应.F.，True对应.T.
至于对应的参数，你可以参考一下Office-VBA编程手册，把没有值的参数空出来
我用在VFP中控制excel的方法建一个excel文档，并将一dbf表导入。
我想添加一个excel的标签，没有搜索到方法，录制一段宏，得到如下代码：
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
DisplayAsIcon:=False, Left:=122.25, Top:=39.75, Width:=72, Height:=18 _
).Select
我想请教大家，如何将这段代码转为vfp代码？谢谢！！！
excel
工作
文档
------解决方案--------------------
本帖最后由 wwwwb 于 2013-01-10 10:18:17 编辑
示例：_ole_excel = CreateObject("Excel.Application")
_ole_excel.VISIBLE=.T.
_ole_excel.WorkBooks.Open('aa.xls') && 要打开的工作表名(xls)必须是全路径
_ole_excel.WorkSheets(1).Activate
_ole_excel.Worksheets(1).OLEObjects.Add("Forms.Label.1",'',.f.,.F.,,,, 122.25, 39.75, 72, 18)
------解决方案--------------------
其实就把
ClassType:="Forms.Label.1", Link:=False, _
DisplayAsIcon:=False, Left:=122.25, Top:=39.75, Width:=72, Height:=18 _
中的关键字去掉，只要蓝色值即可，False对应.F.，True对应.T.
至于对应的参数，你可以参考一下Office-VBA编程手册，把没有值的参数空出来