可能我没有说清楚,action_father中我需要传递到action_son的对象其实是一个Excel数据读取对象,它是在action_father中定义的
//action_father
Set myfile = ExcelConnect(DataTable("FilePath",dtGlobalSheet),sheetname)
//ExcelConnect是我自定义的方法,返回excel文件中sheetname的头指针
While Not myfile.EOF
If ***** Then
myfile.MoveNext
else
RunAction "action_son",oneIteration
myfile.MoveNext
这里其实我希望把myfile这个对象传递到action_son中去,问题就是怎么传递,貌似只能值传递?
我把ExcelConnect方法也贴出来:
Public Function ExcelConnect(Filepath,sheetname)
Dim conn,input,cmd
Set conn= createobject("ADODB.Connection")
conn.Open "rovider=Microsoft.Jet.OLEDB.4.0ersist Security Info=False;Data Source="&Filepath&";Extended Properties='Excel 8.0;hdr=yes'"
Set input= createobject("ADODB.Recordset")
cmd = "select * from ["+sheetname+"$]"
input.Open cmd,conn
Set ExcelConnect = input
End Function