下图为当前工作簿:
![](https://img.mubu.com/document_image/96d6711b-362f-4c59-991f-f20905c97535-13228652.jpg)
点击按钮,即可打开另一个工作簿:
![](https://img.mubu.com/document_image/af60579e-3850-43a4-b115-2028dd298708-13228652.jpg)
下面为使用代码打开另一个工作簿的图示:
![](https://img.mubu.com/document_image/d0bb8ff5-d5b1-4ded-a13e-98da04742fc0-13228652.jpg)
在日常办公中,学会使用代码打开工作簿,可实现多工作簿数据直接在代码中
提取,以及各种操作,来看下实际代码:
![](https://img.mubu.com/document_image/b2818f3f-9967-4214-8f7e-90ff895d1652-13228652.jpg)
ThisWorkbook.path '当前文件的文件目录
GetWbk(path) '使用以下函数去打开工作簿
![](https://img.mubu.com/document_image/5b258257-9050-4983-901d-897f1248a6e5-13228652.jpg)
s = Split(name, "\") '使用 "\" 分隔成数组
s = s(UBound(s)) '取文件名
Set GetWbk = Workbooks(s) ‘变量赋值该工作簿
On Error GoTo erroX '赋值错误时 跳转到指定行
erroX:
Set GetWbk = Workbooks.Open(name) '错误发生就打开该工作簿
这样就完成操作啦
本代码可收藏到VBA代码助手,并且只要输入关键字即可快速搜索随时调出
![](https://img.mubu.com/document_image/e54c804c-8c6f-4a6c-93ab-3951af0cf97a-13228652.jpg)
今天有关在VBA中打开指定的工作簿,如果已经打开则直接获取的方法介绍到
这,大家赶紧实际操作练习一下吧。有不懂的问题可以留言 问小编呦!感谢支持
EXCEL880工作室,还请多多转发, 持续关注我们呀!