我用在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代码？谢谢！！！

[ 本帖最后由 wzxc 于 2013-1-9 21:30 编辑 ]

是这个吗

no！
类似vfp的lable。

可以设置它的caption，left，top 等！用excel的控件工具箱可以添加它。那段代码就是手工添加时获得的vba宏代码。
如何转为vfp代码来在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) 

转自：http://bbs.

eole=CREATEOBJECT('Excel.application') && 创建Excel对象
eole.Workbooks.add                     && 添加新工作簿
eole.visible=.T.                       && 显示Excel窗口
eole.Worksheets(1).OLEObjects.Add("Forms.Label.1",'',.f.,.F.,,,, 122.25, 39.75, 72, 18)

[ 本帖最后由 sdta 于 2013-1-10 13:12 编辑 ]

转贴的目的，是为了让大家看到这个问题的解决方法，别无它意。

楼上，你转的帖子也是我发的。呵呵。
问题已解决了。也谢谢你了

哈哈，知道是[春晓]发的
如何为新添加的标签命名，代码如何写

我有点怕了，你咋知道是“春晓”的呢？

eole.Worksheets(1).OLEObjects.Add("Forms.Label.1",'',.f.,.F.,,,, 122.25, 39.75, 72, 18)

这段代码执行多次，会依次建立label1,label2,label3,......
手动可以改，我录制了这个过程的宏，发现却是空的。

       春晓
  春眠不觉晓，
  处处闻啼鸟。
  夜来风雨声，
  花落知多少。
*---孟浩然,湖北襄阳人,大诗人李白的挚友,他一生没有做过官,大半辈子隐居农村,过着淡泊恬静的生活,年轻时曾漫游江浙,徜徉山水之间,历览自然风光...

出处可是在这

[ 本帖最后由 sdta 于 2013-1-10 16:02 编辑 ]