Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Excel richtig schliessen
Autor: Dany
Datum: 10.04.02 10:42
Hallo Kan mir da jemand helfen ? Und zwar habe ich ein Modul gemacht wo ausgewählte daten von eine Access Db ins Excel schreiben soll ! Also das tool funktioniert so weit eigendlich ! Jedoch wird der speicher oder so was vom excel nicht mehr freigegeben ! wenn ich die Excell liste öffnen will nach dem erstellen kommt sie nicht sonder ich muss zuerst die ganze applikation schlissen damit das excel sheet wieder auf geht ! Kann mir jemand sagen was das sein kann ? besten Dank dani Private Sub Excel() On Error GoTo Fehler Dim Zahler, i As Integer Set objXL = CreateObject("Excel.Application") objXL.Visible = True objXL.Workbooks.Open (App.Path & "ProgrammeRMAKHKOffenRMA.xls") Zahler = 1 With RSOpenRMA .MoveFirst Do Until .EOF = True objXL.Range("A" & Zahler).Select objXL.Range("A" & Zahler).Value = .Fields("n1") objXL.Range("B" & Zahler).Value = .Fields("n17") objXL.Range("C" & Zahler).Value = .Fields("n14") objXL.Range("D" & Zahler).Value = .Fields("n3") .MoveNext Zahler = Zahler + 1 Loop .MoveFirst End With Dim Linie As String Linie = "A" & Zahler & "20000" Range(Linie).Select Selection.ClearContents objXL.ActiveWorkbook.Save objXL.Workbooks.Close objXL.Quit 'Excel beenden ende: On Error Resume Next Set objXL = Nothing 'Speicher freigeben Set wbXL = Nothing Exit Sub Fehler: MsgBox prompt:="Fehler beim Aufbereiten des Excel Tabelle:" & vbCrLf & vbCrLf & _ Err.Number & " - " & Err.Description, _ Buttons:=vbCritical Set objXL = Nothing 'Speicher freigeben Set wbXL = Nothing Resume ende End Sub

Excel richtig schliessen	55	Dany	10.04.02 10:42
Habs selber gefunden	46	Dany	10.04.02 11:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen