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