微信公众号 【EXCEL880】 QQ群【341401932】
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
课程咨询 加我微信EXCEL880B 试学网址http://v.excel880.com
下图为当前工作簿:

点击按钮,即可打开另一个工作簿:

下面为使用代码打开另一个工作簿的图示:

在日常办公中,学会使用代码打开工作簿,可实现多工作簿数据直接在代码中
提取,以及各种操作,来看下实际代码:

ThisWorkbook.path '当前文件的文件目录
GetWbk(path) '使用以下函数去打开工作簿

s = Split(name, "\") '使用 "\" 分隔成数组
s = s(UBound(s)) '取文件名
Set GetWbk = Workbooks(s) ‘变量赋值该工作簿
On Error GoTo erroX '赋值错误时 跳转到指定行
erroX:
Set GetWbk = Workbooks.Open(name) '错误发生就打开该工作簿
这样就完成操作啦
本代码可收藏到VBA代码助手,并且只要输入关键字即可快速搜索随时调出

今天有关在VBA中打开指定的工作簿,如果已经打开则直接获取的方法介绍到
这,大家赶紧实际操作练习一下吧。有不懂的问题可以留言 问小编呦!感谢支持
EXCEL880工作室,还请多多转发, 持续关注我们呀!