excel vba批量打开批量激活

Question

Sub ab薄()
Workbooks.Open ThisWorkbook.Path & "bba.xlsm" '这个打不开
Workbooks.Open ThisWorkbook.Path & "cca.xlsm" '这个打不开
Windows("bba.xlsm").Activate
Call a '这里无激活
Windows("cca.xlsm").Activate
Call b '这里无激活
End Sub

Answer 1

打开文件做以下修改，注意分隔符\
Workbooks.Open ThisWorkbook.Path & "\bba.xlsm" '
Call a 是调用过程a
楼主的这段代码里没有体现出来a过程对应的代码追问

Sub ab薄()
Windows("bba.xlsm").Activate
Worksheets("a").Select
Call a
End Sub
我激活bba薄，无法调用Call a

追答

a是哪里的过程啊

追问

bba.xlsm里的过程是Call a

追答

这样不可以的
楼主不要乱用啊

Application.Run "bba.xlsm!a"
不要用call了