Şu anda çevrimdışısınız; İnternet'in yeniden bağlanması bekleniyor

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

Ö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
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Ö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
officeinterop w_VBApp W_Excel WM_OLE OA OLE Otomasyonu

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 147650 - Son İnceleme: 12/04/2015 14:15:31 - Düzeltme: 2.3

Microsoft Visual Basic 4.0 Professional Edition, Microsoft Visual Basic 4.0 16-bit Enterprise Edition, Microsoft Excel 5.0 Standard Edition

  • kbnosurvey kbarchive kbmt kb16bitonly kbhowto kbprogramming KB147650 KbMttr
Geri bildirim