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!")
一、直接调用或者call 过程名 call 函数名就可以了,比如
Private Sub CommandButton1_Click()
MsgBox "你调用了CommandButton1_Click过程"
End Sub
Private Sub CommandButton2_Click()
Call CommandButton1_Click
End Sub
二、如果有参数的话需要带上参数,比如
Private Sub CommandButton1_Click()
Call MsgStr("这是过程/函数调用示例")
End Sub
Sub MsgStr(str As String)
MsgBox str
End Sub
扩展资料:
输入值的集合X被称为f的定义域;可能的输出值的集合Y被称为f的值域。函数的值域是指定义域中全部元素通过映射f得到的实际输出值的集合。注意,把对应域称作值域是不正确的,函数的值域是函数的对应域的子集。
计算机科学中,参数和返回值的数据类型分别确定了子程序的定义域和对应域。因此定义域和对应域是函数一开始就确定的强制进行约束。另一方面,值域是和实际的实现有关。
参考资料来源:百度百科-函数
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)