想创造一个窗体，放一个OLE 控件

sunredday

Dim frm As Form, ctlDefault As Control, ctlNew As Control

    ' 创建新窗体。
   
    Set frm = CreateForm
    ' 返回代表默认命令按钮的控件对象。
   
    ' 创建新的OLE控件
     Set ctlNew = CreateControl(frm.Name, acBoundObjectFrame, , , , 500, 500)
        ' 设置控件的标题。
     ctlNew.Caption = "New Command Button" '????????????????
     ‘设置控件的标题。
      'ctlNew.Caption = "New Command Button" '???????????????

      ' 恢复窗体。'窗体大小问题         恢复
     DoCmd.Restore
     ctlNew.Class = "Excel.Sheet"    ' Set class name.?????????????
    ' 指定对象类型
    ctlNew .OLETypeAllowed = acOLELinked '？？？？？？？？？？
    ' 指定源文件。
   ctlNew .SourceDoc = "C:\ aaa.xls"‘？？？？？？？？？？？？？？？？
   
    ' 指定要创建链接的数据。
   ctlNew .SourceItem = "R1C1:R5C5" '？？？？？？？？？
    ' 创建链接的对象。
   ctlNew .Action = acOLECreateLink '???????????
    ' 调整控件大小。
   ctlNew.SizeMode = acOLESizeZoom '?????????????????

sunredday

who can help me  ?

WTM1

这个不是你的软件的代码吧？？

sunredday

从帮助里组合而来的。但是不能运行。
我在用帮助练习编程。

whowho

直接在窗体的设计视图中, 用工具创建不就行了? 又快又好. 为何要用语句这么麻烦?

sunredday

有点象向导喽