VBSscript运行Excelmacros不起作用

我一直在试图放在一起运行Excellmacros的VBSscript。 我在这个论坛上使用了来自其他主题的几个脚本，以及networking上其他地方的脚本。

我发现这个论坛对于有类似问题的人是最有帮助的。 这里的专家就是这样的：专家。

我刚刚写脚本。 我的经验仅限于在试错过程中剪切和粘贴示例脚本。 有了这个特定的脚本，我似乎无法find从VBSscript运行excellmacros的正确组合。

这是我正在运行的代码：

Set xlObj = CreateObject("Excel.application") xlObj.Workbooks.Open "C:\Documents and settings\user\Desktop\Excel_macro_email.xls" xlObj.Run "macro_email" 'name of macro xlObj.ActiveWorkbook.Saved = True xlObj.ActiveWindow.Close xlObj.Quit 

我正在使用XLnow OnScript编辑器来编译/debugging脚本，编辑器没有任何问题。 当我双击.vbs文件时，cmd窗口popup一会儿，我可以看到有一些输出，但是由于closures速度太快，所以不能读取它。 （我也研究过如何将结果输出到一个文件，但是我正在得到方法，可能会考虑所有这些。

有没有人愿意帮助纠正这个脚本？ 如果您可以提供帮助，并提出一些代码，请还包括将代码放在脚本中的位置，或者也可以将其包含在完整的脚本中。 如何处理我在这里find的build议几乎与使用什么代码一样多。

感谢您提供的任何帮助。 我对我缺乏专业知识表示歉意。 最后，有一点帮助，我会从中学习。

这是脚本的更新，添加了sub，如下所示：

 Sub OpenAndRun (Excel_macro_email) Set xlObj = CreateObject("Excel.Application") xlObj.Workbooks.Open "C:\Documents and Settings\user\Desktop\Excel_macro_email.xls" xlObj.Run "Excel_macro_email.xls,macro_email" xlObj.ActiveWorkbook.Saved = True xlObj.ActiveWindow.Close xlObj.Quit End Sub 

我还没有得到macros运行。 cmd窗口暂时打开，但现在我看不到任何输出闪烁再见。

有什么build议么？

这是为了解决这个问题“

感谢您的答复。

我已经尝试了这个脚本的各个版本。 在最新版本中，我添加了一个“子”行和“结束小组”可能帮助。 最后的解决scheme是，当我发现Excel文件的文件扩展名不是.xls，而是.xlsm。 当我添加“m”（对于启用macros，我猜）最新版本的脚本开始工作。

她是工作版本：

 Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") '~~> Change Path here Set xlBook = xlApp.Workbooks.Open("C:\Users\Thomas\Desktop\Excel_macro_email.xlsm", 0, True) xlApp.Run "macro_email" xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Echo "Finished." WScript.Quit 

我希望这可以帮助其他人解决同样的问题。 感谢您的帮助。