Dim i As Integer
Dim ET As Object, sht As Object
Private Sub Command1_Click()
i = i + 1
sht.Cells(i, 1).Value = Text1.Text
sht.Cells(i, 2).Value = Text2.Text
End Sub
Private Sub Form_Load()
Set ET = CreateObject("et.application") 这个地方出错 实时错误429 Activex部件不能创建对象
Set sht = ET.Workbooks.Add.Sheets("sheet1")
ET.Visible = True
End Sub
是管理员权限 还要加什么部件或者什么引用吗
追答使用CreateObject不需要引用,你确定下是否有Kingsoft ET 2.0 Object Library
追问找不到这个文件 已经重新安装了wps
追答重装后如何
追问找到一个 upgrade kingsoft et 3.0 Object Library选了以后还是不行
追答你安装的WPS是什么版本
追问抢险版
追答你去WPS目录找etapiv8.dll引用看看
追问好 我试试
啊 好了
非常感谢
还在不
引用了 还是实事错误429
追答你试试我私信发给你的那个链接里的方法
追问好
你qq能发下部
是的 没有引用 可是找不到这个呀
追答如果你安装了WPS就有的,在菜单工程(P)-引用(N)-kingsoft wps 2.0 object library,不行就换office,引用microsoft excel 11.0 object library,都可以用的
追问upgrade kingsoft et 3.0 Object Library选了以后还是不行
追答不是这个,就是“kingsoft wps 2.0 object library”,K开头,你再找下
追问木有的
找到了。还是错误