[vb] sluit excel niet af

[Verwijderd]

Hallo Tweakers,
Ik heb het volgende probleem
Vanuit een vb6 applicatie laat ik een excel sheet vullen met data uit een database. Dit werkt uistekend en Excel lijkt ook te sluiten maar hij blijft bij processen staan. Ik heb al aardig gegoogled en op got gekeken maar nergens een oplossing kunnen vinden

code:

Private Sub maak_excel_sheet()

'globale declaraties
Dim moExcel As Excel.Application
Dim moReportFile As Excel.Workbook
Dim moSheet As Excel.Worksheet

Set moExcel = New Excel.Application
'Set moExcel = CreateObject("Excel.Application")
moExcel.Visible = False
moExcel.DisplayAlerts = False
moExcel.ScreenUpdating = False

'template openen: empty.xls
Set moReportFile = moExcel.Workbooks.Open(path_kopiedocumenten_templates & "leveranciers.xls")
Set moSheet = moReportFile.Worksheets("blad1")

txt = rsleveranciers!lev_naam
moReportFile.Sheets("blad1").Cells.Find(What:="lev_naam", After:=ActiveCell).Value = (Trim(txt))


moReportFile.SaveAs ("c:\bestand.xls")

moReportFile.Saved = True
moReportFile.Close

moExcel.Quit
Set moExcel = Nothing

Unload Me
End Sub

Het probleem zit in de volgende regel code want als ik deze regel weglaat werkt het wel. Van deze regel zijn er ongeveer 20

code:

moReportFile.Sheets("blad1").Cells.Find(What:="lev_naam", After:=ActiveCell).Value = (Trim(txt))

Wie o wie weet de oplossing ?

[ Voor 70% gewijzigd door Verwijderd op 20-01-2004 23:00 . Reden: op versturen gedrukt ipv bekijken ]

[Verwijderd]

Dit al geprobeerd ?
[rml]Remark in "[ vb6 sp5 & excel 2000] Excel proces slui..."[/rml]

[robjanssen]

Je destroyed ook niet alle objecten

Visual Basic:

Set moSheet  = Nothing
Set moReportFile = Nothing

En je kunt ipv

Visual Basic:

moReportFile.Sheets("blad1").Cells.Find(What:="lev_naam", After:=ActiveCell).Value = (Trim(txt))

toch ook

Visual Basic:

moSheet.Cells.Find(What:="lev_naam", After:=ActiveCell).Value = (Trim(txt))

gebruiken?

[Verwijderd]

Dit was de oplossing

code:

moSheet.Cells.Find("lev_naam").Value = (Trim(txt))

Hij moest helemaal gestript worden. Ik had eerst

code:

Set moSheet  = Nothing
Set moReportFile = Nothing

toegevoegd maar dat hielp niet.
bedankt robjanssen

[Verwijderd]

Ik gebruik nu onderstaand stukje code om in een excel sheet een waarde te zoeken en als hij gevonden is te vervangen voor gegevens uit de database.
Dit werkt uitstekend maar als er een waarde niet word gevonden dan krijg ik een foutmelding.

Weet iemand hoe je kan zorgen dat je een nette melding krijgt dat een waarde niet is gevonden ?
Of weet iemand een knappe site waar dit soort dingen worden uitgelegd ?

Ik kan namelijk heel weinig vinden over het excel component in visualbasic.
Niet op got niet op Google en niet op Msdn

code:

moSheet.Cells.Find("lev_naam").Value = (Trim(txt))

[Verwijderd]

hij kan dicht

[jvaneijk]

Foutenafhandeling met TRY and Catch?