Informatik :: VBA :: Zugriff auf Excelobjekte
[Objektbezeichnungen] | [Eigenschaften und Methoden] | [Objektvariablen] | [Aufgaben] |
Objektklasse | Bezeichnung in VBA |
---|---|
Excel-Programm | Application |
Arbeitsmappe (Exceldatei) | Application.Workbooks |
geöffnete Arbeitsmappe | AktiveWorkbook |
Tabelle einer geöffneten Arbeitsmappe | AktiveWorkbook.Worksheets(Nr.) |
einzelne Zelle | AktiveWorkbook.Worksheets(Nr).Range("Adresse") oder AktiveWorkbook.Worksheets(Nr).Cells(Zeilennr.,Spaltennr.) |
Beachte:
Beispiel (Wert ändern):
Worksheets(1).Range("A2").Value = 4.5
Beispiel (Wert speichern):
x = Worksheets(1).Range("C4").Value
Beispiel:
ActiveWorkbook.Worksheets(1).Cells(2,1).Formula = "=B3+D1"
Beispiel:
Worksheets(1).Cells(5,7).Interior.Color = RGB(255,0,0)
Die Funktion RGB(Rotanteil,Grünanteil,Blauanteil) liefert einen bestimmten Farbwert.
Beispiel:
Range("A2").Font.Color = RGB(0,0,255)
Der Pfad zur Datei muss immer absolut und in Windows-Notation (also mit \ ) angegeben werden.
Leerzeichen und deutsche Sonderzeichen im Pfad sind verboten!!!
Beispiel:
Applikation.Workbooks.Open("C:\Uebung\Test.xls")
Wie jede andere Variable muss sie zunächst deklariert werden.
Beispiele:
Dim objWB As Workbook 'Dekl. der Variablen objWB vom Typ Workbook
Dim objWS As Worksheet 'Dekl. der Variablen objWS vom Typ Worksheeet
Die Wertzuweisung erfolgt durch die Set-Anweisung.
Beispiele:
Set objWB = Applikation.Workbooks.Open("Datei2.xls")
'Eigenschaften und Methoden der Datei werden der Variablen objWB zugewiesen
Set objWS = objWB.Worksheets(2)'Eigenschaften und Methoden der 2. Tab. werden der Variablen objWB zugewiesen
Jetzt kann die Objektvariable wie die entsprechende Objektklasse verwendet werden
Beispiele:
objWS.Range("A2").Value = "Hallo!" 'Der Zelle A2 wird der Wert "Hallo!" zugewiesen
objWS.Range("A2").Font.Color = RGB(255,255,255) 'Schriftfarbe der Zelle A2 wird weiß
objWS.Range("A2").Interior.Color = RGB(0,0,255) 'Füllfarbe der Zelle A2 wird blau
objWB.Save 'Datei speicheren
objWB.Close 'Datei schließen