我写了一个函数是这样的
public function setexcel（xlSheet As Excel.Worksheet, xlSheet1 As Excel.Worksheet）
end function
然后调用
setexcel（xlSheet , xlSheet1 ）
这样那里错了啊？
EXCEL 引用了
vb中如何调用带参的函数？
答案:2 悬赏:40 手机版
解决时间 2021-03-03 04:06
- 提问者网友：龅牙恐龙妹
- 2021-03-02 23:19
最佳答案
- 五星知识达人网友：琴狂剑也妄
- 2021-03-03 00:02
你引用了 EXCEL吗？
你的函数没定义它返回值的类型啊，你改成这样：
Public Function setexcel(ByVal xlSheet As Excel.Worksheet, ByVal xlSheet1 As Excel.Worksheet) As Long
End Function
就可以了。
你的函数没定义它返回值的类型啊，你改成这样：
Public Function setexcel(ByVal xlSheet As Excel.Worksheet, ByVal xlSheet1 As Excel.Worksheet) As Long
End Function
就可以了。
全部回答
- 1楼网友：酒醒三更
- 2021-03-03 01:11
set xlsapp = nothing
xls文件中代码如下：
sub test2(str as string)
msgbox (str)
end sub
vb代码如下：
dim xlsapp as excel.application
dim xlsbook as excel.workbook
dim xlssheet as excel.worksheet
set xlsapp = new excel.application
set xlsbook = xlsapp.workbooks.open(app.path + "\test.xls")
set xlssheet = xlsbook.worksheets(1)
xlsapp.visible = false
call xlsapp.run("test2", "hello!world!")
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯