VBS不能打开excel问题

Question

相同的代码用vba可以运行，用VBS双击没有反应，但是VBS简单执行msgbox可以弹框出来，是什么原因

下面是VBS代码

Sub mmzd()

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Open ("D:\自动运行\打开.xlsm")

End sub

把这个代码放在excel VBA中可以打开"D:\自动运行\打开.xlsm"。但是直接双击VBS没有反应。一样的代码。求指点

Answer 1

引自强大而免费的微信小程序：皆我百晓生。

您好！VBS（Visual Basic Script）与VBA（Visual Basic for Applications）在使用上存在一些差异，包括对象的创建和调用方式等。您的VBS代码中，Sub mmzd()是VBA代码中的过程（Procedure）声明，VBS中应该使用Sub换成MsgBox，而不是Sub，并且不需要End sub。

下面是您修正后的VBS代码：

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Open("D:\自动运行\打开.xlsm")

请使用上述代码进行尝试，确保文件路径是正确的。如果仍然无法打开，可能是由于系统安全设置的限制导致VBS无法自动运行Excel文件，您可以尝试以管理员身份运行VBS文件，也可以在"打开.xlsm"文件上右键->属性->常规->解除锁定。如果问题仍然无法解决，请考虑使用其他方式执行该操作，例如使用VBA或其他编程语言。