<\/p>\n
Es kommt immer wieder vor, dass Sie als Access-Entwickler Daten aus Excel-Dateien lesen oder auch in Excel-Tabellen schreiben müssen. Excel lässt sich genau wie die übrigen Office-Anwendungen per VBA steuern, sodass Sie Excel für den Zugriff auf die Daten in einer Excel-Datei nicht manuell öffnen müssen. Wie dies funktioniert und was Sie alles anstellen können, erfahren Sie in diesem Grundlagenbeitrag.<\/b><\/p>\n
Für die Automatisierung von Excel von Access aus kann es verschiedene Gründe geben. Im Wesentlichen teilen sich diese auf die folgenden beiden Gruppen auf:<\/p>\n
Zugriff auf Excel<\/b><\/p>\n
In beiden Fällen greifen Sie auf eine Excel-Instanz und die damit geöffnete Excel-Datei zu. Dies können Sie, wie bei Automation üblich, auf zwei Arten tun: Sie setzen einen Verweis auf die Bibliothek Microsoft Excel x.0 Object Library <\/b>und greifen danach bequem per IntelliSense auf die VBA-Objekte der Excel-Bibliothek zu (Early Binding) oder Sie deklarieren die verwendeten Variablen mit dem Datentyp Object<\/b>, anstatt die in der Excel-Bibliothek enthaltenen Objekte zu verwenden (Late Binding). Für unsere Zwecke soll Early Binding zum Einsatz kommen.<\/p>\n
Daher stellen Sie im Verweise<\/b>-Dialog einen entsprechenden Verweis wie in Bild 1 ein. Öffnen Sie dazu den VBA-Editor (Alt + F11<\/b>) und wählen Sie den Menüeintrag Extras|Verweise <\/b>aus.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2009_06\/ExcelAbfragen-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Verweis auf die Excel-Bibliothek im Verweise-Dialog des VBA-Editors<\/span><\/b><\/p>\n Manchmal kann es sinnvoll sein, später auf Late Binding umzustellen, der besseren Lesbarkeit des Codes halber verzichten wir an dieser Stelle aber darauf.<\/p>\n Excel-Instanz erzeugen<\/b><\/p>\n Bevor Sie eine Excel-Instanz erzeugen können, brauchen Sie eine Variable, in der Sie diese speichern können:<\/p>\n Danach können Sie mit der folgenden Anweisung eine neue Instanz erzeugen:<\/p>\n Das Setzen der Instanzvariablen auf Nothing schließt gleichzeitig eine so erzeugte Excel-Instanz:<\/p>\n Vielleicht möchten Sie auch auf eine bestehende Excel-Instanz zugreifen, um beispielsweise ein durch den Benutzer geöffnetes Excel-Fenster fernzusteuern. Dies erledigen Sie mit dieser Anweisung:<\/p>\n Das funktioniert aber nur, wenn auch eine Excel-Instanz vorliegt. Wenn nicht, erhalten Sie eine Fehlermeldung mit der Nummer 429 <\/b>und dem Text Objekterstellung durch ActiveX-Komponente nicht möglich <\/b>(siehe Bild 2). Diesen Fehler können Sie im Code beispielsweise so abfangen:<\/p>\n Bild 2: Diese Fehlermeldung erscheint beim Versuch, eine nicht vorhandene Excel-Instanz zu referenzieren.<\/span><\/b><\/p>\n Wenn bei nicht vorhandener Excel-Instanz eine neue geöffnet werden soll, erweitern Sie den Code wie folgt:<\/p>\n objExcel <\/b>enthält dann auf jeden Fall einen Verweis auf eine Excel-Instanz – vorausgesetzt, dass Excel überhaupt auf dem Rechner installiert ist. Nun haben Sie allerdings zwei verschiedene Methoden gesehen, um eine frische Excel-Instanz zu erzeugen:<\/p>\n und<\/p>\n Wo ist hier der Unterschied Beide Anweisungen erledigen die gleiche Aufgabe, allerdings funktioniert die erste nur, wenn Sie mit Early Binding arbeiten, also ein Verweis auf die Excel-Bibliothek vorhanden ist.<\/p>\n An dieser Stelle sei auch auch noch etwas zum Übernehmen einer bestehenden Excel-Instanz angemerkt: Sie sollten dies nur tun, wenn es die Situation unbedingt erfordert, wofür es kaum Beispiele gibt. Gegebenenfalls könnte man es mit Performance-Gründen rechtfertigen, aber bei der heutigen Rechenleistung sollte ein Rechner zwei oder mehr parallel geöffnete Excel-Instanzen verkraften können.<\/p>\n Wenn Sie für Ihre Aufgabe eine eigene Excel-Instanz öffnen und diese nicht sichtbar machen, können Sie davon ausgehen, dass der Benutzer nicht anderweitig auf diese zugreift. Daher können Sie diese Instanz auch ohne Gewissensbisse wieder schließen – Sie nehmen sie niemandem weg.<\/p>\n Und wenn Sie sich davon überzeugen möchten, dass Windows tatsächlich eine neue Excel-Instanz erzeugt und keine vorhandene Instanz verwendet, wenn Sie per Code eine neue Instanz erzeugen, können Sie das Experiment aus Bild 3 ausführen und sich im Task-Manager davon überzeugen, dass mehrere Excel-Instanzen existieren.<\/p>\n Bild 3: Öffnen mehrere Excel-Instanzen per Code und ihre Pendants im Task-Manager<\/span><\/b><\/p>\n Hier brauchen Sie im Übrigen nur die Excel-Objektvariablen durch Setzen auf Nothing<\/b> zu leeren, um die Excel-Instanzen zu beenden – später erfahren Sie, dass dies nicht immer ausreicht.<\/p>\n Funktion zum Erzeugen einer Excel-Instanz<\/b><\/p>\n Manchmal brauchen Sie eine Excel-Instanz nur ganz kurz, um etwa ein Excel-Workbook zu öffnen, manchmal arbeiten Sie auch länger mit dieser Instanz.<\/p>\n In beiden Fällen kann es nicht schaden, den Code zum Erzeugen der Excel-Instanz in eine kleine Funktion auszulagern. Die Excel-Instanz selbst speichern wir in einer Objektvariablen in einem Standardmodul, dass beispielsweise mdlExcel <\/b>heißen könnte:<\/p>\n Dazu bauen wir uns eine kleine Funktion, die schaut, ob bereits eine Excel-Instanz in mExcel <\/b>gespeichert wurde und dies gegebenenfalls nachholt. Der in mExcel <\/b>gespeicherte Verweis wir in jedem Fall als Übergabewert der Funktion GetExcel <\/b>zurückgeliefert:<\/p>\n Excel-Datei erzeugen<\/b><\/p>\n Wenn Sie in objExcel <\/b>eine Referenz auf eine Excel-Instanz gespeichert haben, können Sie damit ein neues Dokument erzeugen. Dafür deklarieren Sie zunächst eine entsprechende Variable:<\/p>\n Danach können Sie diese Variable durch Verwenden der Add<\/b>-Anweisung der Workbooks<\/b>-Auflistung des Application<\/b>-Objekts erstellen:<\/p>\n Nun können Sie die Excel-Datei mit den weiter unten beschriebenen Methoden bearbeiten und diese dann schließen:<\/p>\n Das ist unbedingt erforderlich, denn sonst reicht die folgende Anweisung nicht aus, um die Excel-Instanz zu beenden:<\/p>\n Alternativ können Sie Excel vor dem Leeren der Variablen auch explizit per Code schließen:<\/p>\n Es gibt aber auch noch eine wesentlich direktere Methode, die Sie vor allem dann nutzen sollten, wenn Sie nur auf das Workbook und nicht direkt auf die Excel-Instanz zugreifen möchten:<\/p>\n Excel sichtbar machen<\/b><\/p>\n Alles, was wir in den bisherigen Beispielen mit Excel erledigt haben (was ja nicht viel war), geschah im Hintergrund, also ohne Anzeigen des Excel-Fensters.<\/p>\n Bevor wir gleich in den Zugriff auf Excel-Dateien einsteigen, erfahren Sie noch, wie Sie die Excel-Instanz sichtbar machen. Dies erledigt die folgende Anweisung:<\/p>\n Excel-Datei öffnen<\/b><\/p>\n Für den Zugriff auf eine bestehende Excel-Datei verwenden Sie die folgende Anweisung, die auf der oben genannten Vorgehensweise zum Erzeugen oder Holen einer Excel-Instanz basiert.<\/p>\n Mit dieser Instanz können Sie dann Folgendes tun:<\/p>\n Auch hier gibt es eine zweite Variante. Dabei übergeben Sie einfach den Dateinamen an die CreateObject<\/b>-Methode:<\/p>\n <\/p>\n Funktion zum einfachen Öffnen einer Excel-Datei<\/b><\/p>\n Genau wie für das Erzeugen einer Excel-Instanz wollen wir auch eine einfache Funktion zum Öffnen eines Excel-Workbooks programmieren.<\/p>\n Diese setzt auf der oben bereits vorgestellten Funktion GetExcel <\/b>auf und und öffnet die als Parameter angegebene Datei in der damit verfügbar gemachten Excel-Instanz:<\/p>\n Wenn Sie ein Workbook öffnen und in einer Prozedur damit arbeiten möchten, brauchen Sie also nur eine entsprechende Objektvariable zu deklarieren und diese mit Hilfe der Funktion GetWorkbook <\/b>zu füllen:<\/p>\n Um die nachfolgenden Beispiele kurz zu halten, greifen wir immer wieder auf diese beiden Zeilen zurück.<\/p>\n Ein oder mehrere Workbooks<\/b><\/p>\n Eine Excel-Instanz kann ein oder mehrere Workbooks enthalten. Diese lassen sich mit der Workbooks<\/b>-Auflistung des Application<\/b>-Objekts referenzieren.<\/p>\n In den folgenden Beispielen gehen wir jedoch davon aus, dass wir immer nur ein Workbook in einer frischen Excel-Instanz öffnen und lesend oder schreibend darauf zugreifen.<\/p>\n Zugriff auf Tabellenblätter<\/p>\n Ein Verweis auf die Excel-Datei, in diesem Fall repräsentiert durch einen Objektverweis des Typs Excel.Workbook<\/b>, reicht noch nicht aus, um auf die Inhalte der Zellen zuzugreifen.<\/p>\n Jedes Workbook enthält nämlich verschiedene Worksheet-Objekte – das sind die einzelnen Tabellenblätter, die Sie über die Registerkartenreiter unter der Tabelle auswählen können (siehe Bild 4).<\/p>\n Bild 4: Excel-Datei mit den drei standardmäßig vorhandenen Sheets<\/span><\/b><\/p>\n Mit den folgenden Zeilen öffnen Sie eine Excel-Datei und durchlaufen alle enthaltenen Sheets, wobei Sie deren Namen im Direktfenster ausgeben:<\/p>\n Der direkte Zugriff auf eines der Worksheets erfolgt entweder über den Index oder die Bezeichnung. Bei Verwendung des Index ist zu beachten, dass dieser immer bei 1 <\/b>beginnt und nicht bei 0<\/b>:<\/p>\n Das Gleiche funktioniert auch direkt über den Namen:<\/p>\n Wenn Sie Operationen in einem einzigen Worksheet ausführen möchten, speichern Sie einen Verweis darauf in einer Variablen des Typs Excel.Worksheet<\/b> und greifen dann auf dieses zu.<\/p>\n Zellen lesen und beschreiben<\/b><\/p>\n Egal, ob Sie lesend oder schreibend auf die Zellen eines Tabellenblatts unter Excel zugreifen möchten: Die Vorgehensweise ist fast identisch. Zur Veranschaulichung der folgenden Beispiele verwenden wir die Excel-Tabelle mit den Daten aus Bild 5 (alle Zellen sind als Text <\/b>formatiert).<\/p>\n Bild 5: Beispielfüllungen in einer Excel-Tabelle<\/span><\/b><\/p>\n Wenn Sie etwa den Inhalt der ersten Zelle in eine Variable einlesen möchten, verwenden Sie die folgende Anweisung (wir gehen davon aus, dass Sie die Objektvariable objSheet <\/b>zuvor mit einer der oben genannten Methoden mit einem Verweis auf das betreffende Tabellenblatt gefüllt haben):<\/p>\n Der erste Parameter der Cells<\/b>-Funktion erwartet die Angabe des Spaltenindex, der zweite den Zeilenindex.<\/p>\n Die Cells<\/b>-Funktion liefert immer eine einzige Zelle zurück. Die Range<\/b>-Funktion kann noch mehr, aber zunächst schauen wir uns an, wie Sie mit ihr auf den Inhalt einer Zelle zugreifen:<\/p>\n Was kann Range <\/b>nun mehr als Cells<\/b> Auch wenn die Bezeichnung Cells <\/b>suggeriert, dass man damit auch mehrere Zellen referenzieren könne, ist dies nicht der Fall – die Funktion liefert immer eine Zelle zurück, genau genommen ein Range<\/b>-Objekt, das genau diese Zelle enthält.<\/p>\n Und da die Eigenschaft Value <\/b>die Standardeigenschaft des Range<\/b>-Objekts ist, liefern sowohl Cells(1,1) <\/b>als auch Range("A1") <\/b>den Inhalt der angegebenen Zelle.<\/p>\n Nun kann Range <\/b>aber auch mehr als eine Zelle enthalten. Wenn Sie etwa mit der folgenden Anweisung alle gefüllten Zellen unserer Beispieltabelle referenzieren, können Sie das Ergebnis nicht mehr mit der Debug.Print<\/b>-Methode ausgeben – dies würde einen Fehler erzeugen.<\/p>\n Die folgenden Anweisungen definieren das gewünschte Range<\/b>-Objekt und geben die Anzahl der Spalten, Zeilen und Zellen dieses Objekts aus:<\/p>\n Range-Bereich ausgeben<\/b><\/p>\n Beim Experimentieren mit dem Range<\/b>-Bereich kann es manchmal interessant sein, wie der aktuell verwendete Range<\/b> definiert ist. Hierüber gibt die Address-Funktion Auskunft.<\/p>\n Angenommen, Sie definieren dieses Range<\/b>-Objekt:<\/p>\n Dann gibt die Adress<\/b>-Methode Folgendes aus<\/p>\n Range durchlaufen<\/b><\/p>\n Wenn Sie alle Zellen dieses Range<\/b>-Objekts durchlaufen möchten, brauchen Sie nur zwei Laufvariablen und die folgenden For…Next<\/b>-Schleifen:<\/p>\n Dies durchläuft alle Elemente des Range<\/b>-Objekts, wobei intColumn <\/b>und intRow <\/b>die Koordinaten relativ zur linken oberen Ecke des Range<\/b>-Objekts darstellen.<\/p>\n Wenn Sie dies relativ zur linken oberen Zelle der kompletten Tabellenblatts durchführen möchten, verwenden Sie eine etwas andere Herangehensweise. Sie definieren dann kein Range<\/b>-Objekt, sondern greifen direkt auf die Cells<\/b>-Auflistung des Worksheet<\/b>-Objekts zu:<\/p>\n Zeilen und Spalten im Range-Objekt<\/b><\/p>\n Mit einem Range<\/b>-Objekt können Sie nicht nur durch zwei Zellen markierte Bereiche, sondern auch komplette Zeilen oder Spalten erfassen.<\/p>\n Wenn Sie sich auf die Zeilen- beziehungsweise Spaltenköpfe von Excel beziehen wollen, verwenden Sie die Range<\/b>-Methode, um eine Spalte oder Zeile zu referenzieren.<\/p>\n Die folgende Anweisung bezieht sich auf die komplette erste Spalte:<\/p>\n Und dies ermittelt alle Zellen der ersten Zeile:<\/p>\n Dies geht auch noch ein wenig intuitiver. Die folgenden beiden Anweisungen verwenden die Rows<\/b>– beziehungsweise Columns<\/b>-Auflistungen, um einen Verweis auf die erste Zeile beziehungsweise Spalte des Excel-Blatts zu liefern:<\/p>\n Range numerisch aufziehen<\/b><\/p>\n Wenn Sie einen Range allein auf Basis numerischer Koordinaten aufziehen möchten, so geht dies ganz einfach mit der Resize<\/b>-Methode auf Basis eines durch die Cells<\/b>-Funktion gelieferten Range<\/b>-Objekts.<\/p>\n Der folgende Aufruf beispielsweise liefert einen Range über die ersten drei mal drei Zellen einer Tabelle:<\/p>\n Wenn Sie andere Bereiche markieren möchten, ersetzen Sie einfach die Werte durch die gewünschten Koordinaten.<\/p>\n Eine Zelle mit einem Wert füllen<\/b><\/p>\n Beim Füllen einer Zelle müssen Sie verschiedene Dinge beachten. So stellt Excel beispielsweise nicht automatisch die Formatierung der Zelle ein, wenn Sie beispielsweise ein Datum übertragen.<\/p>\n Dies erledigen Sie mit der Eigenschaft NumberFormat<\/b>. Welche Werte Excel für NumberFormat <\/b>verwendet, um die verschiedenen Datentypen zu formatieren, erfahren Sie ganz einfach mit den in diesem Beitrag vorgestellten Mitteln. In diesem Fall formatieren Sie einfach eine Zelle mit dem entsprechenden Dialog direkt in Excel (siehe Bild 6) und lesen die Formatierung dann mit der folgenden Anweisung ein:<\/p>\n Bild 6: Einstellen einer Zellenformatierung in Excel<\/span><\/b><\/p>\n Eine Zelle mit einer Formel füllen<\/b><\/p>\n Wenn Sie beispielsweise auf die Idee kommen, eine Rechnung statt in einen Bericht in eine Excel-Tabelle zu schreiben, können Sie dies leicht tun.<\/p>\n Natürlich sollten Sie dann auch gewährleisten, dass die Rechnung beim ändern einzelner Rechnungspositionen noch den korrekten Rechnungsbetrag anzeigt.<\/p>\n Dies ist in der Regel der Fall, wenn dieser durch eine entsprechende Formel berechnet wird. Ein vereinfachtes Beispiel sieht so aus:<\/p>\n Das Ergebnis finden Sie in Bild 7. Die Excel-Tabelle zeigt die formatierten Zellen mit den gewünschten Inhalten an. Die Formel wird wie erwartet interpretiert. Der Clou hierbei ist, dass Sie der eigentlichen Formel wie bei der direkten Eingabe in Excel ein Gleichheitszeichen voranstellen.<\/p>\n Bild 7: Die Formel und ihr Ergebnis.<\/span><\/b><\/p>\n Formeln mit Funktionen<\/b><\/p>\n Excel hält eine ganze Schar von Funktionen bereit, zum Beispiel die WENN<\/b>-Funktion. Diese gibt man, wenn man von der Eingabehilfe profitieren möchte, unter Excel in der Sprache der jeweiligen Excel-Version ein (siehe Bild 8).<\/p>\n Bild 8: Wenn man Funktionsnamen in der deutschen Version auf deutsch eingibt, erscheint eine Eingabehilfe.<\/span><\/b><\/p>\n Was in der Benutzeroberfläche von Excel funktioniert, muss dies unter Verwendung von VBA noch lange nicht tun. So führt die folgende Zeile dann auch zu einem Fehler:<\/p>\n Kein Wunder. Wir sollten vielleicht die Formula-Funktion verwenden, weil Excel die Formel möglicherweise nicht als solche erkennt:<\/p>\n Auch dies funktioniert nicht! Ein Blick in den Objektkatalog zeigt jedoch, dass eine ganze Reihe Formula…<\/b>-Eigenschaften gibt (siehe Bild 9).<\/p>\n Bild 9: Die verschiedenen Formula…-Eigenschaften im Objektkatalog<\/span><\/b><\/p>\n Und kaum nimmt man die richtige, klappt es auch schon. Wegen des deutschen Funktionsnamens brauchen wir nämlich die Funktion FormulaLocal<\/b>:<\/p>\n Bezüge in Formeln<\/b><\/p>\n Da dies oft nicht bekannt ist, ein kleiner Hinweis auf absolute und relative Bezüge in Formeln. Wenn Sie den Inhalt einer Zelle mit einer Formel verschieben, ändert Excel normalerweise automatisch den Bezug relativ zu den Verschiebungskoordinaten der Formel.<\/p>\n Wenn Sie also eine Zelle mit dem Inhalt =A1 <\/b>um eine Spalte nach rechts und eine Zeile nach unten verschieben, passt Excel die Formel automatisch an, sodass diese nun =B2 <\/b>lautet. Manchmal möchten Sie aber, dass der absolute Bezug zum referenzierten Feld auch nach dem Verschieben der Formel erhalten bleibt.<\/p>\n Dann brauchen Sie einfach nur ein Dollar-Zeichen ($) vor die Angabe des Spaltenbuchstabens und der Zeilenzahl einzufügen. Wenn die Formel =$A$1 <\/b>lautet, dann ändert Excel ihren Wert auch nach dem Verschieben der Formel nicht. Wenn Sie nur die Zeile oder die Spalte erhalten möchten, schreiben Sie das Dollar-Zeichen nur vor die jeweils betroffene Koordinate.<\/p>\n Nummern statt Buchstaben<\/b><\/p>\n Weiter oben haben wir erwähnt, dass Sie ein Range<\/b>-Objekt über einzelne Zellen mit der Cells<\/b>-Methode erhalten und diese mit der Resize<\/b>-Methode in beiden Dimensionen erweitern können. Dies hat den Vorteil, dass Sie nicht auf die Range-Methode zugreifen müssen, um Zellen zu referenzieren. Der Nachteil der Range<\/b>-Methode hierbei ist, dass die Koordinaten nicht ausschließlich mit Zahlen, sondern auch mit den Buchstaben aus den Spaltenüberschriften angegeben werden müssen.<\/p>\n Natürlich gibt es auch hier die Möglichkeit, die Angabe von Buchstaben zu umgehen – dabei referenzieren Sie einfach die linke obere und die rechte untere Zelle des per Range <\/b>zu erfassenden Bereichs über entsprechende Cells<\/b>-Funktionen.<\/p>\n Diese werden dabei durch ein Komma voneinander getrennt. Für einen Range <\/b>über die Zellen von A1 <\/b>bis C3 <\/b>sieht dies so aus:<\/p>\n Und auch für die in Formeln verwendeten Bezüge gibt es eine Notation, die komplett auf Zahlen setzt – die sogenannte R1C1<\/b>-Notation. Wenn Sie sich ein Bild davon machen wollen, wie diese funtioniert, stellen Sie am einfachsten die passende Option im Optionen-Dialog von Excel wie in Bild 10 ein.<\/p>\n Bild 10: Aktivieren der R1C1-Notation unter Excel<\/span><\/b><\/p>\n Wenn Sie dann wie in Bild 11 ein Gleichheitszeichen in ein Feld setzen, um mit dem Anlegen einer Formel zu beginnen, und dann mit den Cursor-Tasten die umliegenden Zellen ablaufen, erkennen Sie die Systematik hinter dieser Notation.<\/p>\nDim objExcel As Excel.Application<\/pre>\n
Set objExcel = New Excel.Application<\/pre>\n
Set objExcel = New Excel.Application<\/pre>\n
Set objExcel = GetObject(, "Excel.Application")<\/pre>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2009_06\/ExcelAbfragen-web-images\/pic003_opt.jpeg\")
<\/p>\nOn Error Resume Next\r\nSet objExcel = GetObject(, "Excel.Application")\r\nIf Err.Number = 429 Then\r\n MsgBox "Excel ist nicht geöffnet."\r\nEnd If<\/pre>\n
On Error Resume Next\r\nSet objExcel = GetObject(, "Excel.Application")\r\nIf Err.Number = 429 Then\r\n Set objExcel = _\r\n CreateObject("Excel.Application")\r\nEnd If\r\nOn Error GoTo 0<\/pre>\nSet objExcel = New Excel.Application<\/pre>\n
Set objExcel = CreateObject("Excel.Application")<\/pre>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2009_06\/ExcelAbfragen-web-images\/pic002_opt.jpeg\")
<\/p>\nDim mExcel As Excel.Application<\/pre>\n
Public Function GetExcel() As _\r\n Excel.Application\r\n If mExcel Is Nothing Then\r\n Set mExcel = _\r\n New Excel.Application\r\n End If\r\n Set GetExcel = mExcel\r\nEnd Function<\/pre>\n
Dim objWorkbook As Excel.Workbook<\/pre>\n
Set objWorkbook = objExcel.Workbooks.Add<\/pre>\n
objWorkbook.Close<\/pre>\n
Set objExcel = Nothing<\/pre>\n
objExcel.Quit<\/pre>\n
Set objWorkbook = CreateObject("Excel.Sheet")<\/pre>\nobjExcel.Visible = True<\/pre>\n
Set objWorkbook = objExcel.Workbooks.Open("c:\\Beispiel.xls")<\/pre>\nSet objWorkbook = CreateObject("c:\\Beispiel.xls")<\/pre>\nPublic Function GetWorkbook(strPath As String) _\r\n As Excel.Workbook\r\n Dim objWorkbook As Excel.Workbook\r\n Set objWorkbook = _\r\n GetExcel.Workbooks.Open(strPath)\r\n Set GetWorkbook = objWorkbook\r\nEnd Function<\/pre>\n
Dim objWorkbook As Excel.Workbook\r\nSet objWorkbook = GetWorkbook("c:\\Beispiel.xls")<\/pre>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2009_06\/ExcelAbfragen-web-images\/pic004_opt.jpeg\")
<\/p>\nDim objWorkbook As Excel.Workbook\r\nDim objSheet As Excel.Worksheet\r\nSet objWorkbook = GetWorkbook("c:\\Beispiel.xls")\r\nFor Each objSheet In objWorkbook.Worksheets\r\n Debug.Print objSheet.Name\r\nNext objSheet<\/pre>\nDebug.Print objWorkbook.Worksheets(1).Name<\/pre>\n
Debug.Print objWorkbook.Worksheets("Tabelle1").Name<\/pre>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2009_06\/ExcelAbfragen-web-images\/pic005_opt.jpeg\")
<\/p>\nDebug.Print objSheet.Cells(1, 1)\r\n1,1\/A1<\/pre>\n
Debug.Print objSheet.Range("A1")\r\n1,1\/A1<\/pre>\nDim objRange As Excel.Range\r\nSet objRange = objSheet.Range("A1:C3")\r\nDebug.Print "Zeilen: " & objRange.Rows.Count\r\nDebug.Print "Spalten: " & objRange.Columns.Count\r\nDebug.Print "Zellen: " & objRange.Cells.Count<\/pre>\nSet objRange = objSheet.Range("A1:C3")<\/pre>\nDebug.Print objRange.Address\r\n$B$2:$D$4<\/pre>\n
Dim objRange As Excel.Range\r\nDim intRow As Integer\r\nDim intColumn As Integer\r\nSet objRange = objSheet.Range("A1:C3")\r\nFor intColumn = 1 To objRange.Columns.Count\r\n For intRow = 1 To objRange.Rows.Count\r\n Debug.Print _\r\n objRange.Cells(intColumn, intRow)\r\n Next intRow\r\nNext intColumn<\/pre>\nDim intRow As Integer\r\nDim intColumn As Integer\r\nFor intColumn = 1 To 3\r\n For intRow = 1 To 3\r\n Debug.Print _\r\n objSheet.Cells(intColumn, intRow)\r\n Next intRow\r\nNext intColumn<\/pre>\n
Set objRange = objSheet.Range("A:A")<\/pre>\nSet objRange = objSheet.Range("1:1")<\/pre>\nSet objRange = objSheet.Columns(1)\r\nSet objRange = objSheet.Rows(1)<\/pre>\n
Set objRange = objSheet.Cells(1, 1).Resize(3, 3)<\/pre>\n
![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2009_06\/ExcelAbfragen-web-images\/pic006_opt.jpeg\")
<\/p>\nDebug.Print _\r\nobjRange.NumberFormat<\/pre>\n
With objWorksheet\r\n.Cells(1, 1) = 100\r\n.Cells(1, 1).NumberFormat = "#,##0.00 $"\r\n.Cells(1, 2) = 0.19\r\n.Cells(1, 2).NumberFormat = "0.00%"\r\n.Cells(1, 3) = "=A1*(1+B1)"\r\n.Cells(1, 3).NumberFormat = "#,##0.00 $"\r\nEnd With<\/pre>\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2009_06\/ExcelAbfragen-web-images\/pic007_opt.jpeg\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2009_06\/ExcelAbfragen-web-images\/pic008_opt.jpeg\")
<\/p>\n.Cells(1, 2) = "=WENN(A1>0;""Positiv"";""Negativ"")"<\/pre>\n
.Cells(1, 2).Formula = "=WENN(A1>0;""Positiv"";""Negativ"")"<\/pre>\n
![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2009_06\/ExcelAbfragen-web-images\/pic009_opt.jpeg\")
<\/p>\n.Cells(1, 2).FormulaLocal = "=WENN(A1>0;""Positiv"";""Negativ"")"<\/pre>\n
Set objRange = objSheet.Range(objSheet.Cells(1, 1), objSheet.Cells(3, 3))<\/pre>\n
![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2009_06\/ExcelAbfragen-web-images\/pic010_opt.jpeg\")
<\/p>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2009_06\/ExcelAbfragen-web-images\/pic011_opt.jpeg\")
<\/p>\n