新人求助：workbooks("路径").activate提示下标越界

ankang1011

问题背景：我的桌面有两个文件，分别为   一、考试.xlsx     二、 20200108团、个作业培训考试成绩.xlsx
问题描述：
在考试.xlsx文件中增加模块，输入以下代码：

Sub jihuo()
Workbooks("C:\Users\hq01810\Desktop\20200108团、个作业培训考试成绩.xlsx").Activate    
MsgBox ActiveWorkbook.Name
End Sub


想通过在《考试》文件中激活《团、个作业培训考试成绩》文件，运行中标红句“Workbooks("C:\Users\hq01810\Desktop\20200108团、个作业培训考试成绩.xlsx").Activate”提示“下标越界”。

求助内容：
在其他学习过程中如果同时打开多个workbook，使用workbooks(1).avtivate是可以正常激活的，但是使用workbooks(“路径”）.activate却报错。
1.是否是我的操作不符合vba规则呢？
2.是否可以使用路径的方式激活其他未打开的workbook？

感谢老师们不吝赐教！

huanglicheng

供参考

1. Sub jihuo()
   
2.     Dim mPath$, mBook As Workbook
   
3.     mPath = "C:\Users\hq01810\Desktop\20200108团、个作业培训考试成绩.xlsx"
   
4.     Set mBook = Workbooks.Open(mPath)
   
5.     MsgBox mBook.Name
   
6. End Sub
   
7. 
   

复制代码

ankang1011

huanglicheng 发表于 2020-1-16 11:52
供参考

感谢老师，您的代码是将新打开的工作簿赋值给变量mBook，新打开的工作簿一定是active的。那么能否直接激活未打开（不提前使用open）的工作簿呢？

huanglicheng

ankang1011 发表于 2020-1-16 14:36
感谢老师，您的代码是将新打开的工作簿赋值给变量mBook，新打开的工作簿一定是active的。那么能否直接激 ...

暂时没有其他的办法。也许别人有