Sebuah Macro Excel untuk Menentukan Apakah Buku Kerja Ada - dummies

Makro Excel ini membolehkan anda melewati laluan fail untuk menilai sama ada fail itu ada. Sebagai contoh, anda mungkin mempunyai proses yang memanipulasi fail di suatu tempat di PC anda. Sebagai contoh, anda mungkin perlu membuka buku kerja yang sedia ada untuk menambah data kepadanya setiap hari. Dalam kes ini, anda mungkin perlu menguji untuk melihat sama ada fail yang anda perlukan untuk memanipulasi wujud.

Bagaimana makro berfungsi

Perkara pertama yang dapat diperhatikan tentang makro ini ialah ia berfungsi, bukan prosedur Sub. Membuat makro ini satu fungsi membolehkan anda untuk lulus mana-mana laluan fail kepadanya.

Dalam makro ini, anda menggunakan fungsi Dir, yang mengembalikan rentetan yang mewakili nama fail yang sepadan dengan apa yang anda lulus kepadanya. Fungsi ini boleh digunakan dalam banyak cara, tetapi di sini, anda menggunakannya untuk memeriksa sama ada laluan fail yang anda padanya:

Fungsi FileExists (FPath As String) Sebagai Boolean 'Langkah 1: Deklarasikan pemboleh ubah anda Dim FName As Langkah 2: Gunakan fungsi Dir untuk mendapatkan nama fail FName = Dir (FPath) 'Langkah 3: Jika fail wujud, kembali Benar; lain False Jika FName "Maka FileExists = True _ Else: FileExists = False End Function

Langkah 1 mengisytiharkan pembolehubah String yang memegang nama filename yang mengembalikan dari fungsi Dir.FName adalah nama pembolehubah String

< Dalam Langkah 2, anda cuba menetapkan pembolehubah FName. Anda melakukan ini dengan meluluskan pemboleh ubah FPath ke fungsi Dir. Pembolehubah FPath ini diluluskan melalui pernyataan fungsi (lihat baris pertama Struktur ini menghalang anda daripada keras kod laluan fail, lulus sebagai pembolehubah sebaliknya.

Jika pembolehubah FName tidak dapat ditetapkan, jalan yang anda lalui tidak wujud, maka F pembolehubah kosong. Langkah 3 hanya menterjemahkan hasil kepada ungkapan Benar atau Salah.

Sekali lagi, fungsi ini boleh digunakan untuk menilai mana-mana laluan fail yang anda lalui kepadanya.

Makro berikut menunjukkan cara menggunakan fungsi ini:

Sub Macro1 () Jika FileExists ("C: TempMyNewBook ​​.xlsx") = True Then MsgBox "Fail wujud." Else MsgBox "Fail tidak wujud." Akhir Jika Sub Akhir

Cara menggunakan makro

Untuk melaksanakan makro ini, anda boleh menyalin dan menyisipkan kedua-dua kepingan kod ke dalam modul standard:

Aktifkan Visual Basic Editor dengan menekan Alt + F11.

1. Klik kanan projek / nama buku kerja dalam tetingkap projek.

2. Pilih Masukkan → Modul.

3. Taip atau tampal kod dalam modul yang baru dibuat.