直接打开EXCEL能运行里面的宏 用VBA打开EXCEL里面的宏不能运行

[qhk922]

比方说 在EXCEL里有一个宏 功能是打开此EXCEL文件时关闭其余EXCEL文档：
Private Sub workbook_open()
Dim Wb As Workbook
For Each Wb In Workbooks
If Wb.Name <> ThisWorkbook.Name Then
Wb.Close savechanges:=False
End If
Next
End Sub
直接双击打开EXCEL文件时 是没有问题 这个问题可以运行 但通过VBA代码打开EXCEL时：
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("C:\demo.xls") '打开EXCEL工作簿
此宏好像就没反应了。。其他宏也有类似情况
请问如何解决？

[qhk922]

MS不行，我是在其他软件的VBA环境下调用此EXCEL~不过好像没反应 还是没能运行里面的宏。。

[dsd999]

直接用Application.Run "demo.xls!宏名称"调用宏试试。