Excel-objecten vanuit Visual Basic navigeren

BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.

De Engelstalige versie van dit artikel is de volgende: 147650
Dit artikel is gearchiveerd. Het wordt aangeboden in de huidige vorm en wordt niet meer bijgewerkt.
Samenvatting
In dit artikel wordt uitgelegd drie methoden om te navigeren en toegangObjecten van Microsoft Excel-toepassing:

  • Lange en standaard-eigenschappen
  • Aliasing gebruiken
  • Met de hoofd- en methoden van Microsoft Excel versie 5.0 objecten voor toegang tot Microsoft Excel-object
Meer informatie
Elk object in Microsoft Excel versie 5.0 al ergens detoepassing van de hiërarchie van objecten. U kunt kiezen tussen deze objecten doornavigeren door de hiërarchie van de toepassing. Boven deze hiërarchiehet Application-object is. Welke gebeurtenissen of acties die u aan deApplication-object van invloed op de hele toepassing. Bijvoorbeeld:
   ' Close the application   [Object].Application.Quit				
[Object] vervangen door een variabele die naar een geldige Microsoft Excel verwijstApplication-Object dat kan worden gemaakt in het volgende voorbeeld:
   ' 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")				
Het object Application bevat andere grote objecten. U kunt bijvoorbeeldde volgende code gebruiken om te verwijzen naar de collectie werkmappen momenteelin Microsoft Excel wordt geladen:
   [Object].Application.Workbooks				
Als u één werkmap ophalen uit de collectie wilt, gebruikt u het Itemmethode. Als u bijvoorbeeld wilt verwijzen naar de eerste werkmap:
    [Object].Application.Workbooks.Item(1)				
De eerste werkmap sluiten:
   [Object].Application.Workbooks.Item(1).Close				

Toegang tot objecten met lange verwijzing of standaardeigenschappen

Elke werkmap bevat een verzameling werkbladen, elk werkblad bevateen verzameling cellen, enzovoort. (Raadpleeg de documentatie van Microsoft Excelen in het menu Help voor meer informatie over Microsoft Excel-objecthiërarchie). Verwijzingen naar een bepaalde cel kunnen in code als volgt uitzien:
   ' 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)				
Deze verwijzing kan lange en complexe; snelkoppelingen zijn echterbeschikbaar. Wat de navigatie-operator (.) is fundamenteel voorobject geslaagde programmering.

Snelkoppelingen

Alle objecten hebben een standaardeigenschap en methode. Voor de collecties, deStandaard is de methode Item. Voor de meeste objecten is de eigenschap naamde standaardeigenschap. Dit Verdrag is geïmplementeerd om te vereenvoudigenprogrammeren. Het vorige voorbeeld kan bijvoorbeeld worden vereenvoudigd om:
   [Object].Application.Workbooks(1).WorkSheets("Sheet1").Cells(1,1)				

Toegang tot objecten door Aliasing objecten

U kunt aliasing Vereenvoudig het programmeren van het object. Als u schrijft eenveel code die werd manipuleren van Sheet1 bijvoorbeeld de syntaxis kanworden lange. Om dit te voorkomen, maakt een object dat verwijst naar de laagstealgemene object. Dit is de aliasing genoemd. Gebruik de instructie Set makenalias:
   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				

Objecten openen met bovenliggende en toepassingsmethoden van de

De hoofd- en methoden kunt u back-up van het object gaanhiërarchie. De methode van de toepassing gaat terug naar het application-objecten de bovenliggende methode gaat u één niveau van de objecthiërarchie. Allede voorbeelden in dit artikel wordt gestart met [Object]. Als [object]een geldige Microsoft Excel-object alle instructies ook geldig zijn.Ongeacht de context van [Object].

Dit is erg handig bij het programmeren van de Microsoft Excel-objectVisual Basic versie 4.0. Microsoft Excel bevat alleen de drie objectendat kan worden gebruikt als ingang naar Microsoft Excel. Dit zijn:

  • Excel.Application
  • Excel.Sheet
  • Excel.Chart
Niet worden verward met Excel.Application.5. Wordt altijd Excel.ApplicationWijs de meest recente versie van Microsoft Excel. Excel.Application.5 wordtWijs alleen Microsoft Excel versie 5.0.

Er is geen blootgestelde Workbook-object zodat er geen manier toegang tot deWerkmapobject rechtstreeks. Dit is echter geen probleem omdat het bovenliggendemethode van een werkblad of grafiek object retourneert Workbook-object. Devolgende voorbeeldcode illustreert dit punt.

Opmerking: oleExcel is een OLE-besturingselement dat een object Excel.Sheet bevat.
   ' 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				
Referenties
Office Development Kit, geïntegreerde oplossingen voor programmeren
officeinterop w_VBApp W_Excel WM_OLE OA OLE-automatisering

Waarschuwing: dit artikel is automatisch vertaald

Eigenschappen

Artikel-id: 147650 - Laatst bijgewerkt: 12/04/2015 14:15:27 - Revisie: 4.0

Microsoft Visual Basic 4.0 Professional Edition, Microsoft Excel 5.0 Standard Edition

  • kbnosurvey kbarchive kb16bitonly kbhowto kbprogramming kbmt KB147650 KbMtnl
Feedback