photosdematures.com

Excel VBA Chdir

中的“ ChDir”可以称为“变更目录”。通过使用“ ChDir”，我们可以在搜索没有完全限定路径的文件时更改VBA中使用的当前默认目录。例如，当我们尝试将文件默认保存为新文件时，我们可以看到系统配置的驱动器打开，然后从中选择我们要保存的文件夹。

您是否曾经想到过我们可以根据需要更改默认的文件夹选择器窗口？是的，我们可以做到！

现在，让我们看一下VBA中ChDir函数的语法。

小路： 这是我们在尝试打开或另存为其他名称时要默认打开的文件夹路径的地方。

路径应用双引号引起来。

VBA中的ChDir函数示例

以下是Excel VBA ChDir的示例。

您可以在此处下载此VBA ChDir Excel模板– VBA ChDir Excel模板

范例＃1

现在，首先看下面的VBA代码。

代码：

 Sub ChDir_Example1（）Dim FD as FileDialog Dim ND As String Set FD =带有FD的FD = Application.FileDialog（msoFileDialogFilePicker）.Title =“选择文件” .AllowMultiSelect = False。 

当我使用F5键或手动运行此代码时，它将首先打开以下默认窗口。

从这里开始，我必须浏览各个文件夹和子文件夹，以选择要使用VBA代码打开的文件。

这将花费很多时间！如果我必须浏览各个文件夹，那么由于各个子文件夹的存在，它也可能导致错误的文件选择，并且增加了更多的混乱。

如果我的代码可以打开需要选择文件的特定文件夹，该怎么办？

这不是一个很酷的选择吗？

是的，让我们尝试一下。

在传递代码之前，我们需要使用该函数 迪尔 并在文件夹路径中用双引号引起来。

ChDir“ D：\ Articles \ Excel文件”

上面的代码默认情况下会将打开的目录更改为 “ D” 驱动器和D驱动器 “文章” 文件夹，在此文件夹下，要打开的子文件夹是 “ Excel文件”。

代码：

 Sub ChDir_Example2（）将Dim文件名作为变体ChDir“ D：\ Articles \ Excel Files”文件名= Application.GetSaveAsFilename（）如果TypeName（Filename）“ Boolean”，则MsgBox文件名End如果结束Sub 

现在，我将手动或通过按F5键运行代码，然后查看打开的文件目录。

如上图所示，按照我的规范，我得到了默认窗口。

以防万一 迪尔 函数未显示所提到的文件目录，那么您需要先更改 驾驶 然后申请 迪尔 功能。

要更改驱动器，我们需要使用 “ ChDrive” 功能。由于我想在打开文件 “ D” 首先驱动器，我需要将驱动器更改为 “ D”。

ChDrive“ D”

上面的代码会将驱动器更改为“ E”。

代码：

 Sub ChDir_Example2（）Dim文件名作为变体ChDrive“ D” ChDir“ D：\ Articles \ Excel Files”文件名= Application.GetSaveAsFilename（）如果TypeName（Filename）“ Boolean”然后MsgBox文件名End如果结束Sub 

像这样通过使用VBA“迪尔”功能，我们可以根据需要更改默认文件目录。