Excel fernsteuern
30.04.2008 11:42:00
gröbi
ich arbeite in einem Cobol-Programm, das in eine Applikation namens Reflection eingebettet ist. In Reflection ist VBA integriert. Aus Reflection heraus öffne ich mit VBA Excel und exportiere Daten in ein Excel-Woorkbook.
Der Export funktioniert aber nur für einen Datensatz.
Jedesmal, wenn ich einen Datensatz nach Excel exportiere, wird eine neue Instanz von Excel geöffnet. Dies kann ich im Task-Manager nachvollziehen. Wie kann ich das verhindern?
Ich habe einen Verweis auf Excel eingebunden.
Hier der Code:
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
Dim wbNewRow As Long
xlApp.Workbooks.Open "\\Roko\xfer\buch\Kreditlimits.xls"
wbNewRow = Sheets("Limits").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Limits").Cells(wbNewRow, 1).Value = Me.tbKunde.Value
Sheets("Limits").Cells(wbNewRow, 2).Value = Me.tbBelegart.Value
Sheets("Limits").Cells(wbNewRow, 3).Value = Me.tbBelegnummer.Value
Sheets("Limits").Cells(wbNewRow, 4).Value = Me.tbBetrag.Value
Sheets("Limits").Cells(wbNewRow, 5).Value = Me.tbStatus.Value
Sheets("Limits").Cells(wbNewRow, 6).Value = Me.tbDatum.Value
Sheets("Limits").Cells(wbNewRow, 7).Value = Me.tbNotiz.Value
ActiveWorkbook.Close True
xlApp.Quit
Set xlApp = Nothing
Wenn mehr als eine Instanz von Excel geöffnet ist funzt der Datenexport nicht mehr.
Danke für Hinweise.
Gruß, gröbi