Sebuah Makro Excel untuk Menentukan Apakah Ada Workbook - dummies

Makro Excel ini memungkinkan Anda melewati jalur file untuk mengevaluasi apakah file itu ada di sana. Misalnya, Anda mungkin memiliki proses yang memanipulasi file di suatu tempat di PC Anda. Misalnya, Anda mungkin perlu membuka buku kerja yang ada untuk menambahkan data ke sana setiap hari. Dalam kasus ini, Anda mungkin perlu menguji untuk melihat apakah file yang Anda butuhkan untuk memanipulasi ada.

Bagaimana cara kerja makro

Hal pertama yang harus diperhatikan tentang makro ini adalah bahwa ini adalah fungsi, bukan prosedur Sub. Membuat fungsi makro ini memungkinkan Anda melewati jalur file mana pun.

Dalam makro ini, Anda menggunakan fungsi Dir, yang mengembalikan sebuah string yang mewakili nama file yang sesuai dengan apa yang Anda berikan padanya. Fungsi ini dapat digunakan dengan banyak cara, tapi di sini, Anda menggunakannya untuk memeriksa apakah path file yang Anda lewati ada:

Function FileExists (FPath As String) Sebagai Boolean 'Langkah 1: Deklarasikan variabel Anda Dim FName As String 'Step 2: Gunakan fungsi Dir untuk mendapatkan nama file FName = Dir (FPath)' Langkah 3: Jika file ada, return True; else False if FName "Then FileExists = True _ Else: FileExists = False End Function

Langkah 1 mendeklarasikan variabel String yang menyimpan nama file yang kembali dari fungsi Dir. FName adalah nama variabel String.

< ! --2 ->

Pada Langkah 2, Anda mencoba untuk mengatur variabel FName. Anda melakukan ini dengan melewatkan variabel FPath ke fungsi Dir. Variabel FPath ini dilewatkan melalui deklarasi fungsi (lihat baris pertama dari kode) Struktur ini mencegah Anda untuk memiliki kode jalur lintasan keras, melewatinya sebagai variabel.

Jika variabel FName tidak dapat ditetapkan, jalur yang Anda lewati tidak ada. Dengan demikian, FName variabel kosong Langkah 3 hanya menerjemahkan hasil itu ke ekspresi Benar atau Salah

Sekali lagi, fungsi ini dapat digunakan untuk mengevaluasi jalur file yang Anda lewati. Keindahan penulisan makro sebagai fungsi.

Makro berikut menunjukkan bagaimana menggunakan fungsi ini:

Sub Macro1 () Jika FileExists ("C: TempMyNewBook. xlsx") = True Then MsgBox "File ada." Else MsgBox "File tidak ada." End If End Sub

Cara menggunakan makro

Untuk menerapkan makro ini, Anda dapat menyalin dan menempelkan kedua potongan kode tersebut ke dalam modul standar:

1. Aktifkan Editor Visual Basic dengan menekan Alt + F11.

2. Klik kanan nama proyek / workbook di jendela proyek.

3. Pilih Insert → Module.

4. Ketik atau tempel kode di modul yang baru dibuat.