vba之函数返回值
1.Function define_yy(ByVal names As String, ByVal
workbooks As String) As String
Dim str_return
As String '返回值
Dim i, t As Integer
........
........
........
........
........
define_yy = str_return
End Function
对于函数返回值的要点已经用粗体表示出来了.调用此函数的格式为:
call modle_connection.define_yy() (这个是不需要返回值的调用方法)
bb=modle_connection.define_yy(a,b) (这是需要返回值的方法)
注:modle_connection为程序块名
2.返回值为多个值,可以采用返回数组的类型
Function return_data(ByVal strSEL As String, ByRef
x As Integer) As String()'需要有括号,代表数组
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim bb(1000, 20) As String
Dim i As Integer, j As Integer
cn.Open strCN
rs.Open strSEL, cn
i = 1
Do While Not rs.
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。