Excel VBA Chdir
"ChDir" di dapat disebut sebagai " Change Directory ". Dengan menggunakan "ChDir" kita dapat mengubah direktori lalai saat ini yang digunakan di VBA ketika mencari file tanpa jalur yang memenuhi syarat sepenuhnya. Sebagai contoh ketika kita cuba menyimpan fail sebagai fail baru secara lalai kita dapat melihat pemacu yang dikonfigurasi sistem terbuka dan dari sana kita memilih folder yang ingin kita simpan.
Pernahkah anda berfikir bahawa kita boleh mengubah tetingkap pemilih folder lalai itu mengikut kehendak kita? Ya, kita boleh melakukan ini!
Sekarang mari kita lihat sintaks fungsi ChDir di VBA.
Path: Di sinilah kita perlu menyebutkan path folder yang ingin kita buka secara lalai ketika kita berusaha membuka atau menyimpan sebagai file ke nama lain.
Jalan itu harus disebut dalam petikan ganda.
Contoh Fungsi ChDir di VBA
Berikut adalah contoh Excel VBA ChDir.
Anda boleh memuat turun Templat VBA ChDir Excel ini di sini - Templat VBA ChDir ExcelContoh # 1
Sekarang perhatikan dahulu kod VBA di bawah.
Kod:
Sub ChDir_Contoh1 () Dim FD Sebagai FileDialog Dim ND Sebagai String Set FD = Application.FileDialog (msoFileDialogFilePicker) With FD .Title = "Pilih Fail Anda" .AllowMultiSelect = Salah .Tunjukkan Akhir Dengan Sub Akhir
Apabila saya menjalankan kod ini menggunakan kekunci F5 atau secara manual, ia akan membuka tetingkap lalai di bawah terlebih dahulu.
Mulai sekarang saya perlu melalui pelbagai folder dan Sub Folder untuk memilih fail yang ingin saya buka menggunakan kod VBA.
Ini akan memakan banyak masa! Sekiranya saya perlu melalui pelbagai folder maka ia juga boleh menyebabkan pemilihan fail yang salah disebabkan oleh pelbagai Sub Folder dan ia menambahkan lagi kekeliruan.
Bagaimana jika kod saya dapat membuka folder tertentu di mana fail saya yang perlu dipilih ??
Bukankah pilihan yang bagus untuk dimiliki?
Ya, mari kita mencuba ini.
Sebelum meneruskan kod kita, kita perlu menggunakan fungsi ChDir dan menyebut jalur folder dalam tanda kutip berganda.
ChDir "D: \ Artikel \ Fail Excel"
Kod di atas secara lalai akan mengubah direktori yang akan dibuka menjadi pemacu "D" dan di bawah folder "Artikel" pemacu D dan di bawah folder ini Sub Folder yang akan dibuka adalah "Fail Excel".
Kod:
Sub ChDir_Example2 () Dim Filename Sebagai Variant ChDir "D: \ Artikel \ Excel Files" Filename = Application.GetSaveAsFilename () Jika TypeName (Filename) "Boolean" Kemudian MsgBox Nama Filem Tamat Jika End Sub
Sekarang saya akan menjalankan kod secara manual atau dengan menekan kekunci F5 dan melihat direktori fail apa yang terbuka.
Seperti yang dapat kita lihat pada gambar di atas, saya mendapat tetingkap lalai mengikut spesifikasi saya.
Sekiranya fungsi ChDir anda tidak menunjukkan direktori fail yang disebutkan, maka anda perlu menukar Drive terlebih dahulu kemudian menerapkan fungsi ChDir .
Untuk menukar pemacu kita perlu menggunakan fungsi "ChDrive" . Oleh kerana saya ingin membuka fail dalam pemacu "D" terlebih dahulu saya perlu menukar pemacu menjadi "D".
ChDrive "D"
Kod di atas akan menukar pemacu menjadi "E".
Kod:
Sub ChDir_Contoh2 () Dim Filename Sebagai Variant ChDrive "D" ChDir "D: \ Artikel \ Excel Files" Nama Filem = Aplikasi.GetSaveAsFilename () Jika TypeName (Nama Filem) "Boolean" Kemudian MsgBox Nama Filem Tamat Jika Akhir Sub
Seperti ini dengan menggunakan fungsi " ChDir " VBA , kita dapat mengubah direktori file lalai sesuai keinginan kita.
