Sub runvbs(cmd As String, fillsheet As Object)
Dim s
Set s = CreateObject("MSScriptControl.ScriptControl")
s.Language = "VBScript"
s.AddObject "ActiveSheet", fillsheet
s.executestatement cmd
s.Reset
End Sub
executeString = "ActiveSheet.Range(""" & report_position & """).value=" & report_value
runvbs executeString, Worksheets(CInt(Day) + 1)
在最后一句调用我自定义的"runvbs"过程时,我用括号将两个参数括起来就提示出错。不用括号括就不提示出错。请问为什么?
这个语句就提示出错:runvbs(executeString, Worksheets(CInt(Day) + 1))
Dim s
Set s = CreateObject("MSScriptControl.ScriptControl")
s.Language = "VBScript"
s.AddObject "ActiveSheet", fillsheet
s.executestatement cmd
s.Reset
End Sub
executeString = "ActiveSheet.Range(""" & report_position & """).value=" & report_value
runvbs executeString, Worksheets(CInt(Day) + 1)
在最后一句调用我自定义的"runvbs"过程时,我用括号将两个参数括起来就提示出错。不用括号括就不提示出错。请问为什么?
这个语句就提示出错:runvbs(executeString, Worksheets(CInt(Day) + 1))
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货