Daftar Isi:
- Sintaks resmi metode GetOpenFilename adalah sebagai berikut:
- Argumen fileFilter menentukan apa yang ada dalam daftar drop-down Files of Type kotak dialog. Argumen ini terdiri dari pasangan string filter file yang diikuti oleh spesifikasi filter file wildcard, dengan koma memisahkan masing-masing bagian dan pasangan. Jika dihilangkan, argumen ini defaultnya sebagai berikut:
Video: How to Import Text (.txt) Files Into Excel - Excel VBA Tutorial - Awesome!! 2024
Jika prosedur VBA Anda meminta nama file dari pengguna, Anda dapat menggunakan fungsi InputBox dan membiarkan pengguna Excel melakukan beberapa pengetikan. Kotak masukan biasanya bukanlah alat terbaik untuk pekerjaan ini, namun karena sebagian besar pengguna merasa sulit mengingat jalan, garis miring terbalik, nama file, dan ekstensi file. Dengan kata lain, terlalu mudah mengacaukan saat mengetik nama file. Untuk solusi yang lebih baik untuk masalah ini, gunakan metode GetOpenFilename dari objek Aplikasi, yang memastikan kode Anda mendapatkan tangannya pada nama file yang valid, termasuk jalur yang lengkap. Metode GetOpenFilename menampilkan kotak dialog Open yang sudah familiar (dering mati untuk kotak dialog yang ditampilkan Excel saat Anda memilih File → Open → Browse).
Sintaks untuk metode GetOpenFilename
Sintaks resmi metode GetOpenFilename adalah sebagai berikut:
objek. GetOpenFilename ([fileFilter], [filterIndex], [title], [buttonText], [multiSelect])
Metode GetOpenFilename mengambil argumen opsional di bawah ini.
| Apa Itu | FileFilter |
|---|---|
| Menentukan jenis file yang muncul di kotak dialog | (misalnya, *. TXT). Anda dapat menentukan beberapa filter untuk pengguna
untuk dipilih. FilterIndex |
| Menentukan filter mana yang akan ditampilkan kotak dialog | default.
Judul |
| Menentukan judul untuk judul kotak dialog | .
ButtonText |
| Diabaikan (hanya digunakan untuk versi Excel Macintosh). | MultiSelect |
| Jika Benar, pengguna dapat memilih beberapa file. |
|
Argumen fileFilter menentukan apa yang ada dalam daftar drop-down Files of Type kotak dialog. Argumen ini terdiri dari pasangan string filter file yang diikuti oleh spesifikasi filter file wildcard, dengan koma memisahkan masing-masing bagian dan pasangan. Jika dihilangkan, argumen ini defaultnya sebagai berikut:
All Files (*. *), *. *
Perhatikan bahwa string ini terdiri dari dua bagian, dipisahkan dengan koma:
All Files (*. *)
dan
*. *
Bagian pertama dari string ini adalah teks yang ditampilkan dalam daftar drop-down Files of Type. Bagian kedua menentukan file mana yang akan ditampilkan kotak dialog. Sebagai contoh, *. * berarti
semua file. Kode pada contoh berikut akan membuka kotak dialog yang meminta pengguna untuk mendapatkan nama file.Prosedur ini mendefinisikan lima filter file. Perhatikan bahwa rangkaian kelanjutan garis VBA digunakan untuk mengatur variabel Filter; Dengan berbuat demikian, membantu menyederhanakan argumen yang agak rumit ini.
Sub GetImportFileName () Dim Finfo Sebagai String Dim FilterIndex Sebagai Judul Dim Lama Sebagai String Dim FileName As Variant 'Siapkan daftar filter file FInfo = "File Teks (*.txt), *. txt, "& _" Lotus Files (*. prn), *. prn, "& _" File yang dipisahkan koma (* csv), *. csv, "& _" File ASCII (*. asc), *. asc, "& _" All Files (*. *), *. * "'Tampilan *. * secara default FilterIndex = 5 'Tetapkan judul kotak dialog Title = "Pilih File to Import"' Dapatkan filename FileName = Application. GetOpenFilename (FInfo, _ FilterIndex, Title) 'Tangani kembali info dari kotak dialog Jika FileName = False Then MsgBox "Tidak ada file yang dipilih. "Else MsgBox" Anda memilih "& FileName End If End Sub
Berikut adalah kotak dialog yang ditampilkan Excel saat Anda menjalankan prosedur ini. Tampilannya bisa beragam, tergantung versi Windows yang Anda gunakan dan opsi tampilan yang telah Anda tetapkan.
Metode GetOpen Filename menampilkan kotak dialog yang dapat disesuaikan dan mengembalikan jalur dan nama file yang dipilih. Itu tidak membuka file.
Workbooks. Buka FileName
Perhatikan bahwa variabel FileName dideklarasikan sebagai tipe data Variant. Jika pengguna mengklik Batal, variabel tersebut berisi nilai Boolean (Salah). Jika tidak, FileName adalah sebuah string. Oleh karena itu, menggunakan tipe data Variant menangani kedua kemungkinan tersebut.
