下图为当前工作簿:
下面为使用代码打开另一个工作簿的图示:
在日常办公中,学会使用代码打开工作簿,可实现多工作簿数据直接在代码中
提取,以及各种操作,来看下实际代码:
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代码助手,并且只要输入关键字即可快速搜索随时调出
下载地址 http://ftp./#s/8G6bRADg
今天有关在VBA中打开指定的工作簿,如果已经打开则直接获取的方法介绍到