level 1
wwacdroot
楼主
根据文档,wps的接口应该是kwps,ket,kwpp,但接不进去
代码很简单的,就是点一下按钮,就把textbox1的内容写到指定单元格中去,但这里出错了,有谁会二次开发,指点一下如何?
因为电脑里没装office,所以直接调用ket.application,启动后,进程里已经有et.exe了,但就是出错,而且在一开始定义的时候不能把那几个东西定义成et.application,et.workbook,et.worksheet(试过把et改成ket,一样不行,我还去下了旧版的wps专业版,可以设成et.application等等,并且可以正常写入)
代码如下(错误见图)
Public Class Form1
Public xls As Excel.Application, wb As Excel.Workbook, sht As Excel.Worksheet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
xls = CreateObject("ket.application")
wb = xls.Workbooks.Open("C:\111.xls")
sht = wb.Worksheets(1)
sht.Cells(11, 1) = TextBox1.Text
wb.Save()
wb.Close()
xls.Quit()
xls = Nothing
End Sub
End Class

图片来自:wwacdroot的百度相册
2014年11月28日 14点11分
1
代码很简单的,就是点一下按钮,就把textbox1的内容写到指定单元格中去,但这里出错了,有谁会二次开发,指点一下如何?
因为电脑里没装office,所以直接调用ket.application,启动后,进程里已经有et.exe了,但就是出错,而且在一开始定义的时候不能把那几个东西定义成et.application,et.workbook,et.worksheet(试过把et改成ket,一样不行,我还去下了旧版的wps专业版,可以设成et.application等等,并且可以正常写入)
代码如下(错误见图)
Public Class Form1
Public xls As Excel.Application, wb As Excel.Workbook, sht As Excel.Worksheet
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
xls = CreateObject("ket.application")
wb = xls.Workbooks.Open("C:\111.xls")
sht = wb.Worksheets(1)
sht.Cells(11, 1) = TextBox1.Text
wb.Save()
wb.Close()
xls.Quit()
xls = Nothing
End Sub
End Class

图片来自:wwacdroot的百度相册