Anasayfa | Akademik Forum | Sizden Gelenler | Sipariş
Menü Açıklamaları
Sorular - Cevaplar
Makaleler
Makrolar
Yerleşik İşlevler
Animasyonlar
Yumurtalar
Fonksiyonlar
MTK Programlar
ExcelCE
Dosya İndir
Neler Yaptık?
İletişim
Sorular - Cevaplar
Soru-Cevap 59 - Tuncay Şanlı

Bilgisayarımda bulunan eklentilerin tamamını kontrol etmek istiyorum.
Sub Eklenti()
  Dim i As Integer
  Dim Eklenti

  Cells(1, 1).Value = "Eklenti Adı"
  Cells(1, 2).Value = "Eklenti Yolu"
  Cells(1, 3).Value = "Eklenti Boyutu"
  Cells(1, 4).Value = "Eklentiyi Oluşturma Tarihi"
  Cells(1, 5).Value = "Dosya Tipi"

  Set Eklenti = CreateObject("Scripting.FileSystemObject")

  For i = 1 To Application.AddIns.Count
    Cells(i + 1, 1).Value = Application.AddIns(i).Name 'adı
    Cells(i + 1, 2).Value = Application.AddIns(i).Path 'Dosya Yolu
    Cells(i + 1, 3).Value = Int(Eklenti.GetFile(Application.AddIns(i).FullName).Size / 1024) & " Kb"
    Cells(i + 1, 4).Value =   Eklenti.GetFile(Application.AddIns(i).FullName).DateCreated
    Cells(i + 1, 5).Value = Eklenti.GetFile(Application.AddIns(i).FullName).Type
    If Application.AddIns(i).Installed = False Then
      Cells(i + 1, 6).Value = "Aktif Değil"
    Else
      Cells(i + 1, 6).Value = "Aktif"
    End If
  Next i
  Columns("A:F").EntireColumn.AutoFit
End Sub
Destek
M.ÖZTÜRK - Y.KARAMAN
Bu siteyi, "Hayatını çocuklarının Ahlâklı ve Dürüst yetişmesi için harcamış olan Cefakar ve Fedakar, Canım ANNEM'e adadım."
Copyright © 1998-2011 M. Temel Korkmaz - Tüm hakları saklıdır.