Çalışma Kitabı Bilgileri

Bu konumuzda Çalışma Kitabı İsim Kayıt Bilgileri ve okunma bilgieri özerinde VBA üzerinde çalışma konusunda bilgiler paylaşacağızö daha doğrusu Çalışma Kitabı bilgilerini nasıl alabilirsiniz bunlara bakacağız. Biz Debug.Print kullanarak bi bilgileri immidiate penceresine yazdırdık, bu bilgileri siz kullanacağınız duruma göre düzenlemelisiniz.

Çalışma Kitabı çalısmamızın Kapsamında olanlar;

Calisma_kitabi.Name

Name kodu çalışmamızın sadece ismini ve uzantısını verecektir.

Calisma_kitabi.FullName

FullName kodu çalışmamızın C:Documents and SettingsuserDesktopdeneme.xls seklinde tüm adını verecektir.

Calisma_kitabi.CodeName

CodeName kodu ThisWorkbook şeklinde kod içerisinde çalışmayı bildiren bir kod sonucu verecektir.

Calisma_kitabi.Path

Path Kodu C:Documents and SettingsUserDesktop şeklinde çalışmamızın yolunu verecektir.

Calisma_kitabi.ReadOnly

Readonly kodu çalışmamızın yazılabilir olup olmadığının denetimini yapar.

Calisma_kitabi.Saved

Saved kodu çalışmamızın kayıtlı olup olmadığının denetimini yapar.

 

Çalışma Kitabı çalısmamızın örnek kodları;

Sub Kitap_Bilgileri()
    Dim Calisma_kitabi As Workbook
    Set Calisma_kitabi = ActiveWorkbook

    Debug.Print "Ad: " & Calisma_kitabi.Name
    Debug.Print "Tam Ad: " & Calisma_kitabi.FullName
    Debug.Print "Code Adi: " & Calisma_kitabi.CodeName
    Debug.Print "Yol: " & Calisma_kitabi.Path
    If Calisma_kitabi.ReadOnly Then
        Debug.Print "Calisma Kitabi Salt Okunur Acilmistir."
    Else
        Debug.Print "Bu Calisma Kitabi Yazilabilir."
    End If
    If Calisma_kitabi.Saved Then
        Debug.Print "Calisma Kitabi Kaydedilmis Durumdadir."
    Else
        Debug.Print "Calisma Kitabinin Kaydedilmesi Gerekiyor."
    End If
End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Çalışma Kitabı Bilgileri” için 3 yorum

  1. tşkler 🙂 bu aralar çok yoğunum ilk fırsatta daha sık takip ediyor ve inceliyor olacağım sitenizi…
    iyi çalışmalar dilerim

  2. Ya ben çok büyük bir excel meraklısı olarak daha yeni yeni makroyu çözmeye başlamaya başladım diyebilirimm ben diğer şekilde ömrümü yedim…

    örneğin hücreye popup resim ekleme ile hücre değerine göre klasörden rasim çağırmayı daha bugün öğrendim 🙁

    önceden mi arşivim için her görsele ekleme yapıyor yani dolgu efektlerinden resim ekleme yoluyla inanmazsınız emme ben yinede söyleyeyimmm tam tamına 7000 civarında görseli bu şekilde eklemeye çalışdım ekledimmde makrodan önce tabisi 🙁

    sonramı sonra excel 100 MB geçip açılmadı tüm emekler çöpe sonra kurtardım bir kısmını

    fln fln bende ilk yorumumla başınızı şişirdim hemde bu konuya fakat bilemedim nereye yazacağımı site yönetimi olarak çalışmalarınızın devamını ve hayırlı günler dilerimm…

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


9 + 4 =