VBA ChDir

Excel VBA Chdir

"ChDir" di dapat disebut sebagai " Direktori Perubahan ". Dengan menggunakan "ChDir" kita dapat mengubah direktori default saat ini yang digunakan di VBA saat mencari file tanpa jalur yang sepenuhnya memenuhi syarat. Sebagai contoh ketika kami mencoba menyimpan file sebagai file baru secara default, kami dapat melihat drive yang dikonfigurasi sistem terbuka dan dari sana kami memilih folder yang ingin kami simpan.

Pernahkah Anda berpikir bahwa kami dapat mengubah jendela pemilih folder default itu sesuai keinginan kami? Ya, kita bisa melakukan ini!

Sekarang mari kita lihat sintaks fungsi ChDir di VBA.

Path: Di sinilah kita perlu menyebutkan path folder yang ingin kita buka secara default saat kita mencoba membuka atau menyimpan file dengan nama yang berbeda.

Path harus disebutkan dalam tanda kutip ganda.

Contoh Fungsi ChDir di VBA

Di bawah ini adalah contoh dari Excel VBA ChDir.

Anda dapat mendownload Template VBA ChDir Excel ini di sini - Template VBA ChDir Excel

Contoh 1

Sekarang lihat kode VBA di bawah ini terlebih dahulu.

Kode:

 Sub ChDir_Example1 () Redupkan FD Sebagai FileDialog Dim ND As String Set FD = Application.FileDialog (msoFileDialogFilePicker) Dengan FD .Title = "Pilih File Anda" .AllowMultiSelect = False. Show End With End Sub 

Ketika saya menjalankan kode ini menggunakan tombol F5 atau secara manual, itu akan membuka jendela default di bawah ini terlebih dahulu.

Mulai sekarang saya harus melalui berbagai folder dan Sub Folder untuk memilih file yang ingin saya buka menggunakan kode VBA.

Ini akan memakan banyak waktu! Jika saya harus melalui berbagai folder maka itu juga dapat menyebabkan pemilihan file yang salah karena berbagai Sub Folder dan itu menambah kebingungan.

Bagaimana jika kode saya dapat membuka folder tertentu tempat file saya harus dipilih ??

Bukankah ini pilihan yang keren untuk dimiliki?

Ya, mari kita coba.

Sebelum meneruskan kode kita, kita perlu menggunakan fungsi ChDir dan menyebutkan jalur folder dalam tanda kutip ganda.

ChDir "D: \ Articles \ Excel Files"

Kode di atas secara default akan mengubah direktori yang akan dibuka menjadi drive “D” dan di bawah folder “Artikel” drive D dan di bawah folder ini Sub Folder yang akan dibuka adalah “File Excel”.

Kode:

 Sub ChDir_Example2 () Redupkan Nama File Sebagai Varian ChDir "D: \ Articles \ Excel Files" Filename = Application.GetSaveAsFilename () If TypeName (Filename) “Boolean” Kemudian Nama File MsgBox Berakhir Jika End Sub 

Sekarang saya akan menjalankan kode secara manual atau dengan menekan tombol F5 dan melihat direktori file apa yang terbuka.

Seperti yang bisa kita lihat pada gambar di atas, saya mendapatkan jendela default sesuai spesifikasi saya.

Untuk berjaga-jaga jika fungsi ChDir Anda tidak menampilkan direktori file yang disebutkan maka Anda harus mengubah Drive terlebih dahulu kemudian menerapkan fungsi ChDir .

Untuk mengubah drive kita perlu menggunakan fungsi "ChDrive" . Karena saya ingin membuka file di drive “D” terlebih dahulu, saya perlu mengubah drive ke “D”.

ChDrive “D”

Kode di atas akan mengubah drive menjadi "E".

Kode:

 Sub ChDir_Example2 () Redupkan Nama File Sebagai Varian ChDrive "D" ChDir "D: \ Articles \ Excel Files" Filename = Application.GetSaveAsFilename () Jika TypeName (Nama File) “Boolean” Kemudian Nama File MsgBox Berakhir Jika End Sub 

Seperti ini dengan menggunakan fungsi VBA “ ChDir ”, kita dapat mengubah direktori file default sesuai keinginan kita.