Visual Basic'ten Excel nesneleri başvurularda nasıl kullanılır

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

Bu Sayfada

Özet

Bu makalede, gezinmek ve Microsoft Excel uygulama nesnelerine erişmek için kullanabileceğiniz üç yöntem açıklanmaktadır:

  • Uzun ve varsayılan özelliklerini kullanma
  • Diğer ad kullanma
  • Herhangi bir Microsoft Excel nesnesi erişmek için Microsoft Excel sürüm 5.0 nesneleri üst ve uygulama yöntemlerini kullanma

Daha fazla bilgi

Microsoft Excel sürüm 5.0 içindeki her nesne, uygulama nesneleri hiyerarşisinde yerde bulunmaktadır. Bu nesneler arasında uygulamanın sıradüzeni gezinme olarak seçin. Bu hiyerarşinin en üstünde, uygulama nesnesi var. Hangi olaylar veya eylemler için <a2>Uygulama</a2> nesnesinin atamak, tüm uygulama etkiler. Örneğin:
   ' Close the application
   [Object].Application.Quit
				
[nesne] metinle, tüm geçerli Microsoft Excel uygulama aşağıdaki örnek oluşturan nesnesi, işaret eden herhangi bir değişken:
   ' MyObject represents [Object] and OLE1 represents an OLE control
   ' that contains an Microsoft Excel Worksheet object.
   MyObject = OLE1.Object
   Set MyObject = CreateObject("Excel.Sheet")
   Set MyObject = GetObject("C:\EXCEL\EXAMPLES\SAMPLES.XLS")
				
uygulama nesnesi, diğer büyük nesneleri içerir. Örneğin, Microsoft Excel'in yüklü olan çalışma kitaplarını topluluğu başvurmak için aşağıdaki kodu kullanabilirsiniz:
   [Object].Application.Workbooks
				
tek bir çalışma kitabını topluluktan almak istiyorsanız, ıtem yöntemini kullanın. Örneğin, ilk çalışma kitabına başvurun:
    [Object].Application.Workbooks.Item(1)
				
ilk çalışma kitabı'nı kapatmak için:
   [Object].Application.Workbooks.Item(1).Close
				

Nesneleri bitişik bir başvuru ya da varsayılan özellikleri kullanarak erişme

Çalışma sayfalarının her çalışma kitabını içeren, her çalışma sayfası hücreleri vb. topluluğu içerir. (Menü belirli hakkında ayrıntılı bilgi için Microsoft Excel'in nesne s?radüzeni Yardım ve Microsoft Excel'in belgelerine bakın.) Kodu, belirli bir hücre için başvuruları şöyle:
   ' Following refers to cell A1 on Sheet1 in the first workbook.
   ' Enter the following two lines as one, single line:
   [Object].Application.Workbooks.Item(1).
      WorkSheets.Item("Sheet1").Cells.Item(1,1)
				
Bu başvuru, uzun ve karmaşık olabilir; ancak, kısayol tuşları kullanılabilir. Gezinti işleci (.) anlama başarılı nesne programlama için temel olur.

Kısa keser

Tüm nesneler için varsayılan özellik ve yöntem vardır. Koleksiyonları için ıtem yöntemini varsayılan yöntemdir. Çoğu nesneler için varsayılan özellik adı özelliğidir. Bu kuralı, programlama basitleştirmek için kullanılmıştır. Örneğin, önceki örnek için Basitleştirilmiş:
   [Object].Application.Workbooks(1).WorkSheets("Sheet1").Cells(1,1)
				

Nesneleri diğer ad nesneleri taraf?ndan erişme

Diğer ad, nesne programlama kolaylaştırmak için kullanabilirsiniz. Örneğin, Sayfa1 işleme kod çok yazma, sözdizimi uzun duruma gelebilir. Bunu önlemek için <a0></a0>, en küçük ortak nesneye işaret eden bir nesne oluşturun. Bu diğer ad bilinir. Bir diğer ad oluşturmak için Set</a1> deyimini kullanın:
   Dim Sheet1 as Object
   ' Alias Sheet1 to represent [Object]...WorkSheets("Sheet1")
   Set Sheet1 = [Object].Application.Workbooks(1).WorkSheets("Sheet1")
   ' Now just use the variable Sheet1 to refer to Sheet1.
   Sheet1.Cells(1,1).Value = "Title"
   Sheet1.Cells(1,2).Value = "ID"
   Sheet1.Cells(1,3).Value = "Cost"
   Sheet1.Cells(2,1).Value = "Phone"
   Sheet1.Cells(2,2).Value = 123413423
   Sheet1.Cells(2,3).Value = 89.95
				

Nesneleri üst ve uygulama yöntemleri kullanarak erişme

Üst ve uygulama yöntemleri nesne sıradüzeni oluşturan giderek olanak verir. Uygulama yöntemini uygulama nesnesine gider ve üst yöntemi, nesne s?radüzeni bir düzey yukarı gider. Bu makaledeki tüm örneklerde [nesnesi] ile başlatıldı. [Nesne] geçerli bir Microsoft Excel nesnesi olduğu sürece, tüm bu ifadeleri da geçerlidir. [Nesne] içeriği ne olursa olsun.

Bu Visual Basic sürüm 4. 0'dan Microsoft Excel nesnesini programlama çok yararlıdır. Microsoft Excel, yalnızca Microsoft Excel, giriş noktaları olarak kullanılan üç nesneleri gösterir. Bunlar:

  • Excel.Application
  • Excel.Sheet
  • Excel.Chart
Tarafından Excel.Application.5 karışmış yoktur. Excel.Application.8 her zaman Microsoft Excel'in en son sürümüne işaret edecektir. Excel.Application.5, yalnızca Microsoft Excel sürüm 5.0 için işaret edecektir.

Çalışma kitabı nesnesi doğrudan erişmek için bir yol biçimde açık hiçbir çalışma kitabı nesnesi yok. Bir çalışma sayfası veya grafik nesnesinin ana yöntem, çalışma kitabı nesnesi döndürür, çünkü ancak, bu sorun değildir. Aşağıdaki kod örneği, bu noktayı gösterir.

Not: Excel.Sheet nesnesi içeren bir OLE denetimi oleExcel var.
   ' Declare object references:
   Dim Xlapp As object
   Dim XLWkb As object
   Dim XLWks As object
   Dim XLWksNew As object

   oleExcel.Action = 7   ' Activate OLE Object

   Set XLWks = oleExcel.Object   ' Alias Worksheet object
   Set XLWkb = XLWks.Parent      ' Alias WorkBook object
   Set Xlapp = XLWks.Application ' Alias Application object

   ' Add a new worksheet to the Workbook and name it:
   Set XLWksNew = XLWkb.Worksheets.add  ' Assign alias to new Worksheet
   XLWksNew.Name = "VB4 OLE Automation" & XLWkb.Worksheets.count

   ' Make the 3rd Worksheet of the Workbook active:
   XLWkb.Worksheets(3).Activate

   ' Display the dialog for InsertPicture:
   Xlapp.dialogs(342).[Show]  ' xlDialogInsertPicture = 342
				

Referanslar

Tümleşik çözümler programı, office Geliştirme Seti

Özellikler

Makale numarası: 147650 - Last Review: 11 Ekim 2006 Çarşamba - Gözden geçirme: 2.3
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 16-bit Enterprise Edition
  • Microsoft Excel 5.0 Standard Edition
Anahtar Kelimeler: 
kbmt kb16bitonly kbhowto kbprogramming KB147650 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:147650
Kullanım Dışı Bilgi Bankası İçeriği Yasal Uyarı
Bu makale, Microsoft'un artık destek sağlamadığı ürünler ile ilgili olarak yazılmıştır. Bu nedenle, bu makale "olduğu gibi" sağlanmıştır ve bundan sonra güncelleştirilmeyecektir.

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