VBA入门31：打开工作簿

    打开指定路径的工作簿，如下。

1、直接打开，打开同一文件夹下的123.xlsx工作簿。

Sub Openwb()

    Workbooks.Open ThisWorkbook.Path & '\123.xlsx'

End Sub

2、使用变量打开，打开C盘Data文件夹下的SalesData1.xlsx工作簿。

Sub OpenWorkbook()

    Dim wkb1 As Workbook

    Set wkb1 = Workbooks.Open(FileName:='C:\Data\SalesData1.xlsx')

End Sub

---

栗子：跨工作簿查询

1、同一文件夹下有两个工作簿，一个数据，一个查询

2、数据

3、查询

4、现在要在查询工作簿中查询上图三人再数据工作簿中的分数。

---

    一般情况下，我们可以考虑用Vlookup函数处理（同时打开两个工作簿），这里用VBA代替。

    要完成这样的工作，首先我们得要知道路径。就是1图中的红色方框，因为工作簿都在同一个文件夹，所以，路径可以用ThisWorkbook.Path返回，如果是数据工作簿在其他文件夹，则复制路径即可。

代码：

结果：

说明：因为打开了数据.xlsx工作簿后，并未执行关闭操作。所以其为当前的活动工作簿。

---

示例文件下载：

链接: https://pan.baidu.com/s/1qXKXSok 密码: ztep