VBA ChDir

Excel VBA Chdir

«ЧДир» можно обозначить как «Изменить каталог ». Используя «ChDir», мы можем изменить текущий каталог по умолчанию, используемый в VBA при поиске файлов без полного пути. Например, когда мы пытаемся сохранить файл как новый файл по умолчанию, мы могли видеть, что открывается диск, настроенный системой, и с этого момента мы выбираем папку, которую хотим сохранить.

Вы когда-нибудь думали, что мы можем изменить это окно выбора папок по умолчанию по своему желанию? Да, мы можем это сделать!

Теперь посмотрим на синтаксис функции ChDir в VBA.

Синтаксис VBA ChDir

Дорожка: Здесь нам нужно указать путь к папке, которую мы хотим открыть по умолчанию, когда мы пытаемся открыть или сохранить как файл под другим именем.

Путь следует указывать в двойных кавычках.

VBA ChDir

Вы можете свободно использовать это изображение на своем веб-сайте, в шаблонах и т. Д. Пожалуйста, предоставьте нам ссылку с указанием авторстваКак указать авторство?Ссылка на статью должна содержать гиперссылку
Например:
Источник: VBA ChDir (wallstreetmojo.com)

Примеры функции ChDir в VBA

Ниже приведены примеры Excel VBA ChDir.

Вы можете скачать этот шаблон Excel для VBA ChDir здесь — Шаблон Excel для VBA ChDir

Пример # 1

Теперь взгляните на нижеприведенное Код VBAКод VBAКод VBA относится к набору инструкций, написанных пользователем на языке программирования приложений Visual Basic в редакторе Visual Basic (VBE) для выполнения определенной задачи.читать далее первый.

Код:

Sub ChDir_Example1()
 
    Dim FD As FileDialog
    Dim ND As String

    Set FD = Application.FileDialog(msoFileDialogFilePicker)

With FD
     .Title = "Choose Your File"
     .AllowMultiSelect = False
     .Show
   End With

End Sub
VBA ChDir, пример 1

Когда я запускаю этот код с помощью клавиши F5 или вручную, он сначала откроет окно по умолчанию ниже.

VBA ChDir, пример 1-1

С этого момента мне нужно просматривать различные папки и подпапки, чтобы выбрать файлы, которые я хочу открыть, используя код VBA.

На это уйдет много времени! Если мне приходится просматривать разные папки, это также может привести к неправильному выбору файла из-за различных подпапок, что добавляет путаницы.

Что, если мой код может открыть конкретную папку, в которой должен быть выбран мой файл?

Разве это не крутой вариант?

Да, давайте попробуем.

Прежде чем переходить к нашему коду, нам нужно использовать функцию ChDir и укажите путь к папке в двойных кавычках.

ChDir "D:ArticlesExcel Files"

Приведенный выше код по умолчанию изменит открываемый каталог на «D» диск и под D диск «Статьи» папка, и в этой папке открываемая подпапка «Файлы Excel».

Код:

Sub ChDir_Example2()
  
    Dim Filename As Variant

    ChDir "D:ArticlesExcel Files"

    Filename = Application.GetSaveAsFilename()
    If TypeName(Filename) <> “Boolean” Then
       MsgBox Filename
    End If

End Sub
VBA ChDir, пример 1-2

Теперь я запущу код вручную или нажав клавишу F5 и посмотрю, какой каталог файлов открывается.

VBAChDir, Пример 1-3

Как мы видим на картинке выше, я получил окно по умолчанию в соответствии с моей спецификацией.

На всякий случай если ваш ChDir функция не показывает указанный каталог файлов, тогда вам нужно сначала изменить Водить машину затем примените ChDir функция.

Чтобы сменить диск, нам нужно использовать «ЧДир» функция. Поскольку я хочу открыть файл в «D» сначала диск, мне нужно сменить диск на «Д.»

ChDrive “D”

Приведенный выше код изменит привод на «E».

Код:

Sub ChDir_Example2()

    Dim Filename As Variant

    ChDrive "D"

    ChDir "D:ArticlesExcel Files"

    Filename = Application.GetSaveAsFilename()
    If TypeName(Filename) <> “Boolean” Then
       MsgBox Filename
    End If

End Sub
VBAChDir Пример 2-3

Таким образом, используя VBA «ChDir”, Мы можем изменить каталог файлов по умолчанию по своему желанию.

УЗНАТЬ БОЛЬШЕ >>

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *