ich frage mittels sql Daten aus einer anderen Excel-Datei ab (Siehe VBA-Code unten).
Das klappt wunderbar solange die andere Datei geschlossen ist.
Wenn beide Dateien offen sind, stüzt Excel ab, weil der Speicher voll ist (Meldung "Nicht genügend Speicher").
Hat jemand eine Idee?
Danke für Hilfe
Ralf
_________________________________________________________________
Public Const StellenTab = "Stellenbewertung.xls"
Public Const BeurtTab = "Beurteilung.xls"
Public Pfad
Public Const Bereich = "MADaten" 'Bereichsname in BeurtTab
_________________________________________________________________
Sub DatenImport
Pfad = ActiveWorkbook.Path & "\" & BeurtTab 'Pfad BeurtTab
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = OpenDatabase(Pfad, True, True, "Excel 8.0;")
DoEvents
For i = 1 To 20
StellenNr = "12345"
Set rs = db.OpenRecordset("Select * FROM `" & Bereich & "`" & " WHERE Stelle = '" & StellenNr & "'")
With Workbooks(StellenTab).Sheets("Personaldaten")
.Cells(i + 1, 1) = rs.Fields(0) 'Index
.Cells(i + 1, 2) = rs.Fields(1) 'Name
.Cells(i + 1, 3) = rs.Fields(2) 'Vorname
.Cells(i + 1, 4) = rs.Fields(3) 'Geb-Dat
.Cells(i + 1, 8) = rs.Fields(4) 'Bes-Gruppe
End With
Set rs = Nothing
Next i
Set db = Nothing
End Sub