vba中的相对路径

在 *** 作文件的时候，如果涉及到打开某个工作表，推荐您建议将所有的路径均写成相对路径。如果将路径写成了绝对路径，如果路径稍微发生改变，则整个 *** 作就不能正常进行。因此如果我们写成了相对路径，在层级对应的基础上，我们只需要把所有的文件放在一个文件夹中，这样无论文件如何移动，或者分享，都可以正常的 *** 作。

在此之前我们需要了解，什么是绝对路径，什么是相对路径。如果您对此还不甚了解，请参阅这篇文章： 绝对路径和相对路径小记 。

接下来就是在vba中绝对路径和相对路径的应用。

在工作中，我们可能会遇到一个非常简单的需求。

如现在test.xlsx与 全年核销.xlsx 同一个文件夹中，现在要求在text.xlsx中打开C:\Users\Administrator\Desktop\amazon_japan\路径下的 全年核销.xlsx 表格，并对其进行一系列的 *** 作。

我们先来观察一下层级目录：

如果我们用绝对路径的方法写，将会是这样：

现在假设将我的表格发给我的同事，即amazon_japan这个文件夹，借由他们的手帮我 *** 作。但是他们的桌面并不在C盘，而是在D盘，因此这个时候就无法正常运行。

所以，我们推荐将所有的路径写成相对路径。写成相对路径后，只要text.xlsx文件和 全年核销.xlsx 只要在同层级，都可以顺利打开。具体的 *** 作如下：

这样之后这个amazon_japan文件夹就可以发给任何人，无论在哪个路径下，我们都可以顺利的打开 全年核销.xlsx 。

刚接触vba的时候，总是将所有的路径写成绝对路径，导致在使用的时候需要不断修改，非常的麻烦，现在将所有路径改成相对路径之后，节约了许多的时间。

世界本应该如此美好~

1、首先打开工作表，点击【开发工具】下的【Visual Basic 】选项。

2、打开VBA工程窗口后，在左侧的“ThisWorkbook”上面单击右键，选择“插入”，“模块”。

3、在“模块1”的代码窗口里面输入以下VBA代码。

4、按下F5键，或者点击VBA工程窗口上面的“运行”图标运行VBA程序，之后就会自动复制工作表，改变工作表名称，改变工作表标签颜色等。

5、VBA程序执行完成之后，将该模块移除，以免再次运行时已经存在该工作表名称而报错，在移除之前，将VBA程序模块导出，或者将VBA程序复制到记事本、Word文档等，以便以后使用。

---