PDA

Vollständige Version anzeigen : Zellenweise Improtieren


Clonkey
16.01.2003, 10:09
Guten Tag :rolleyes: ,
Ich benötige eine Funktion/einen Befehl der es mir ermöglicht die Werte von bestimmten Exel-Zellen auszulesen und an VBA oder direkt an Accestabellen zu übergeben, wenn man ihr/ihm die x und y Positionen gibt.

Vielen Dank

StehtimSchilf
16.01.2003, 21:59
Hi Clonkey!

Von wo nach wo?
in Ac Func aufrufen und wieder nach Ac holen,
oder von Xl Func aufrufen und nach A schreiben?

Hier einige Anhaltspunkte, nen Code hab ich nicht...
Aber den kriegst Du schon hin:

func holeWertAusExcelMappe (xlDateiname, xlMappe, x, y)

set xlAppl = New Excel.Application
set xlWorkBook = xlAppl.Workbooks.Open(path + file)
set xlSheet = xlWorkBook.Sheets("DeineArbeitsmappe")

holeWertAusExcelMappe = xlSheet.cells(x, y).value

'Zuweisen von Nothing ist WICHTIG!
xlWorkBook.Close
xlAppl.Quit
Set xlSheet = Nothing
Set xlWorkBook = Nothing
Set xlAppl = Nothing

end func

evtl. kannst auch direkter, ohne über xlsheet was mit:
Worksheets("Mappe1").Cells(x, y).value
pröbeln

cheerioh