title image


Smiley Das sind doch nur eine Handvoll Zeilen...


Public Function HoleZelle(ByVal ExcFile As String, ByVal CellX As Long, ByVal CellY As Long, _

Optional ByVal Blattname As String = "")

Dim oExc As New Excel.Application

oExc.Workbooks.Open FileName:=ExcFile, ReadOnly:=True

If Blattname = "" Then

HoleZelle = oExc.ActiveWorkbook.Sheets(1).Cells(CellX, CellY)

Else

HoleZelle = oExc.ActiveWorkbook.Sheets(Blattname).Cells(CellX, CellY)

End If

oExc.Quit

Set oExc = Nothing

End Function



Soviel sollte man eigentlich schon aus Beispielen abstrahieren können (bzw. in der Doku nachlesen können!)



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: