
这是段CAD VBA与excel交互的代码,自定义deleteRow函数中的第一个参数,数据类型是什么?参数类型不匹配 50
Subtest()Setxlapp=CreateObject("excel.application")Setxlbook=xlapp.workbooks.Open("C:...
Sub test()
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.workbooks.Open("C:\Users\Administrator\Desktop\test\结算.xlsx") '打开的EXCEL路径
Set xlsheet = xlbook.worksheets("表三") '打开EXCEL中的工作表
deleteRow xlsheet, 8, 5, 5
End Sub
Function deleteRow(excelSheet As Object, column As Integer, rowTop As Integer, rowBelow As Integer)
excelSheet.Cells(rowTop, rowBelow).Value = 11223344
End Function 展开
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.workbooks.Open("C:\Users\Administrator\Desktop\test\结算.xlsx") '打开的EXCEL路径
Set xlsheet = xlbook.worksheets("表三") '打开EXCEL中的工作表
deleteRow xlsheet, 8, 5, 5
End Sub
Function deleteRow(excelSheet As Object, column As Integer, rowTop As Integer, rowBelow As Integer)
excelSheet.Cells(rowTop, rowBelow).Value = 11223344
End Function 展开
1个回答
展开全部
不知道你怎么定义的。8,5,5是什么意思。如果是删除第8行,应该是:
xlsheet.rows("8").delete
如果是第8到12行:
xlsheet.rows("8:12").delete
你实例化了excel对象,后面的代码就要按excel VBA代码规范去写。
如同你实例化了 ScriptControl 或 htmlfile 来提取json数据,后面代码就要按java的写一样。
xlsheet.rows("8").delete
如果是第8到12行:
xlsheet.rows("8:12").delete
你实例化了excel对象,后面的代码就要按excel VBA代码规范去写。
如同你实例化了 ScriptControl 或 htmlfile 来提取json数据,后面代码就要按java的写一样。
追问
我只是想知道,第一个参数的类名哈
第一个参数是实例化的表格页
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询