VB 如何调用EXCEL VBA带参过程

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!")

一、直接调用或者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得到的实际输出值的集合。注意，把对应域称作值域是不正确的，函数的值域是函数的对应域的子集。

计算机科学中，参数和返回值的数据类型分别确定了子程序的定义域和对应域。因此定义域和对应域是函数一开始就确定的强制进行约束。另一方面，值域是和实际的实现有关。

参考资料来源：百度百科-函数

---