Makale numarası: 213489 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Belirtiler

CreateObject komutunu kullanarak Microsoft Excel'e bir OLE Otomasyonu nesnesi olarak eriştiğinizde eklentiler, XLStart dizininde bulunan dosyalar ve varsayılan yeni çalışma kitabı yüklenmez.

Neden

Eklentileri ve dosyaları yüklemeye çalıştığınızda, Excel çağrıyı yapan uygulamaya (örneğin, Visual Basic) bir ileti göndererek, isteği yanıtlamaya hazır olmadığını ve daha sonra yeniden denemesini bildirir. Çağrıyı yapan uygulama bu isteği işleyemeyebilir ve komutların geri kalanına devam edebilir.

Pratik Çözüm

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir. Ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Excel'i bir OLE Otomasyonu nesnesi olarak çalıştırdığınızda bir eklenti dosyasını yüklemek için eklentiyi el ile yükleyin. Bu yöntemin örnekleri aşağıdaki gibidir.

Microsoft Office Excel 2007

Sub LoadAddin()

   ' xl değişkenini nesne türü olarak boyutlandırın.
   Dim xl As Object

   ' Microsoft Excel'i etkinleştirin ve xl değişkenine atayın.
   Set XL = CreateObject("Excel.Application")

   ' İstediğiniz eklenti dosyasını açın; bu örnekte XLQUERY.XLAM.
   XL.Workbooks.Open (XL.librarypath & "\MSQUERY\XLQUERY.XLAM")

   ' Bir kaynağın (XLL) içerdiği işlevleri ve komutları
   ' kaydettirmeniz gerekiyorsa RegisterXLL yöntemini kullanın.
   ' Aşağıdaki örnekte, Analys32.xll dosyasının tüm işlevleri
   ' kaydettirilmiş durumdadır.
   ' XL.RegisterXLL "Analys32.xll"

   ' Eklenti dosyasının içerdiği tüm otomatik makroları çalıştırın
   ' Otomatik makrolar, bir dosyayı Open yöntemiyle
   ' açtığınızda çalıştırılmazlar.
   XL.Workbooks("xlquery.xlam").RunAutoMacros 1

   Set XL = Nothing
 End Sub
				

Microsoft Office Excel 2003 ve Excel'in önceki sürümleri

Sub LoadAddin()

   ' xl değişkenini nesne türü olarak boyutlandırın.
   Dim xl As Object

   ' Microsoft Excel'i etkinleştirin ve xl değişkenine atayın.
   Set XL = CreateObject("Excel.Application")

   ' İstediğiniz eklenti dosyasını açın; bu örnekte XLQUERY.XLA.
   XL.Workbooks.Open (XL.librarypath & "\MSQUERY\XLQUERY.XLA")

   ' Bir kaynağın (XLL) içerdiği işlevleri ve komutları
   ' kaydettirmeniz gerekiyorsa RegisterXLL yöntemini kullanın.
   ' Aşağıdaki örnekte, Analys32.xll dosyasının tüm işlevleri
   ' kaydettirilmiş durumdadır.
   ' XL.RegisterXLL "Analys32.xll"

   ' Eklenti dosyasının içerdiği tüm otomatik makroları çalıştırın
   ' Otomatik makrolar, bir dosyayı Open yöntemiyle
   ' açtığınızda çalıştırılmazlar.
   XL.Workbooks("xlquery.xla").RunAutoMacros 1

   Set XL = Nothing
 End Sub
				

Daha fazla bilgi

Excel'i bir OLE Otomasyonu nesnesi olarak çağırdığınızda XLStart dizinindeki eklentiler veya dosyalar yüklenmediği için, yükleme işlemi üzerinde tam denetime sahip olursunuz. Bir eklentinin yüklenmesini istiyorsanız eklentiyi el ile yükleyebilirsiniz.

Bu davranış ayrıca CreateObject komutuyla çağrıldığında Excel'in yüklenmesini hiçbir makro hatasının, kilitli dosya uyarısının veya salt okunur dosya uyarılarının engellemediği anlamına gelir. Bu davranışın bir başka faydası da Excel'in yüklenmesinin eklentiler ya da dosyalar yüklenirken olduğundan daha az zaman almasıdır.

Referanslar

Visual Basic for Applications ile ilgili yardım alma hakkında daha fazla bilgi için, Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
226118 Visual Basic for Applications ile programlamayı öğrenmenize yardımcı olacak kaynakların listesi

Özellikler

Makale numarası: 213489 - Last Review: 18 Eylül 2011 Pazar - Gözden geçirme: 2.0
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office Excel 2007
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
Anahtar Kelimeler: 
kbautomation kbvba kbexpertiseinter kbdtacode kbprb kbprogramming KB213489

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com