Bir çalışma kitabının mevcut olup olmadığını belirlemek için bir Excel makrosu - mankenler

Bu Excel makrosu, dosyanın orada olup olmadığını değerlendirmek için bir dosya yolu iletmenize izin verir. Örneğin, bir dosyayı PC'nizin herhangi bir yerinde işleyen bir işleme sahip olabilirsiniz. Örneğin, günlük olarak veri eklemek için mevcut bir çalışma kitabını açmanız gerekebilir. Bu durumda, değiştirmeniz gereken dosyanın var olup olmadığını görmek için test etmeniz gerekebilir.

Makro nasıl çalışır?

Bu makro ile ilgili ilk şey, bunun bir Sub yordam değil, bir işlev olmasıdır. Bu makroyu bir işlev yapmak, herhangi bir dosya yolunu ona iletmenizi sağlar.

Bu makroda, ona ilettiğinizle eşleşen dosyanın adını gösteren bir dize döndüren Dir işlevi kullanın. Bu işlev birçok yönden kullanılabilir, ancak burada onu aktardığınız dosya yolunun var olup olmadığını kontrol etmek için kullanabilirsiniz:

İşlev FileExists (FPath As String) Boolean 'Adım 1: Değişkenlerinizi Dim FName As Dize 'Adım 2: Dosya adı almak için dizin işlevi kullanın. FName = Dizin (FPath)' Adım 3: Dosya varsa, doğru; yoksa yanlış FName "Sonra FileExists = Gerçek _ Else: FileExists = Yanlış Sonlandırma İşlevi

Adım 1, Dizin işlevinden dönen dosya adını tutan bir String değişkenini bildirir FName, String değişkeninin adıdır

! - 2 ->

Adım 2'de FName değişkenini ayarlamaya çalışırsınız. Bunu FPath değişkenini Dir işlecine geçirerek yaparsınız.Bu FPath değişkeni, işlev bildirimleri aracılığıyla iletilir (bkz. kod) Bu yapı bir dosya yolunu sabit kodlamak zorunda kalmazsınız, bunun yerine onu bir değişken olarak geçirirsiniz.

FName değişkeni ayarlanamazsa, sizin tarafınızdan geçen yol mevcut değildir Bu nedenle, FName değişkeni boştur Adım 3 sadece bu sonucu Doğru veya Yanlış ifadeye çevirir.

Yine, bu işlev, ona aktardığınız dosya yolunu değerlendirmek için kullanılabilir. Makroyu bir işlev olarak yazmanın güzelliği

Aşağıdaki makro, bu işlevi nasıl kullanacağınızı gösterir:

Alt Macro1 () FileExists ("C: TempMyNewBook. xlsx") = True Sonra MsgBox "Dosya var". Else MsgBox "Dosya mevcut değil." End If End Sub

Makro nasıl kullanılır

1. Bu makroyu uygulamak için iki kod parçasını da bir standart modül:

2. Alt + F11 tuşlarına basarak Visual Basic Düzenleyicisi'ni etkinleştirin.

3. Proje penceresinde proje / çalışma kitabı adını sağ tıklatın.

4. Ekle → Modül'ü seçin.

Kodu yeni oluşturulan modüle yazın veya yapıştırın.