EXCEL VBA有没有类似vbs execute方法，我写了个vbs程序，移植到VBA中"Execute s " 这句报错
Dim fso, ts, s
Const ForReading = 1
Dim DBUser
'读取文件的内容。
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("C:\Autotest\MOC\moc_var.vbs", ForReading,False,-2)
Do While not ts.AtEndOfStream
s = ts.ReadLine
If InStr(s,"DBUser") > 0 Then '当找到moc_var.vbs文件中有DBUser="**"这句语句时
Execute s '执行该赋值语句
End If
Loop
MsgBox DBUser
ts.Close
Set reg = Nothing
Set ts = Nothing
Set fso = Nothing
移植到VBA中，Execute s 这句报错，提示“缺少子程序、函数或属性”
查了下EXCEL中的帮助文档，貌似不支持这样的用法。
VBA中是如何解决这种执行字符串表达式的问题的，请各位帮忙
[解决办法]
VBA可以调用EXECUTE的
不过只能调用宏表函数的EXECUTE
[解决办法]
Excel VBA不支持这种用法。
