✔ Access2000 & VBA, Zugriff auf Excel Tabelle und seine Felder

[_Bjoern_]

Hallo zusammen,

ich beschäftige mich gerade mit der Programmiersprache VBA. Ich habe folgendes Problem. Ich suche ein Befehl, welches ich eine Excel-Tabelle auslesen kann. Aus jener Tabelle benötige ich einige Zelleninformationen. Ich hoffe, ihr könnt mir hierbei weiterhelfen.

Danke

 

[Julian Maicher]

Nicht getestet, dürfte aber gehen.

Dim xlApp As Excel.Application, xlBook As Excel.Workbook, xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = Excel.Workbooks.Open("c:\sheet.xls")
Set xlSheet = xlBook.Worksheets(1)
msgbox(xlSheet.Cells(1,1).Value)

 

[_Bjoern_]

Cool, danke für die schnelle Antwort. Nur habe ich jetzt ein Problem was ich nicht verstehe.

Und zwar, möchte ich ja mit Access dieses Modul erstellen. Leider kennt der Compiler Excel nicht. Unter Excel funktioniert dieser VBA Code. Das ist mehr als ärgerlich.

Vielleicht hast Du ja hierbei auch eine Lösung für mich parat. Ich hoffe sehr.

Gruß

Edit:

Ich habe es mal so gemacht. Jedoch ist in der letzten Zeile irgendwo noch ein Fehler.

Dim objexcel As Object


Set objexcel = CreateObject("Excel.Application")
objexcel.Visible = False
objexcel.Workbooks.Open("o:\privat\cd\testdoku.xls")

MsgBox objexcel.Workbooks("o:\privat\cd\testdoku.xls").Worksheets(1).Cells(1, 2)

Beim Ausführen des Moduls erhalte ich folgende Fehlermeldung:

Laufzeitfehler '9': Index außerhalb des gültigen Bereichs

Das ist die Zeile mit der MsgBox.

 

[Julian Maicher]

Ups, habe ich vergessen zu erwähnen.
Du musst noch einen Verweis auf die Excel Object Libary setzen.
Das machst du im Code-Fenster unter Extras -> Verweise -> Microsoft Excel (Version) Object Libary
Danach wird es funktionieren.

Und nicht vergessen, wenn du die Excel Datei abgearbeitet hast: xlbook.close

 

[_Bjoern_]

Oder so! ;-) Das ist natürlich viel besser und übersichtlicher.

Ich danke Dir.