Excel aanmaken met VBA

[ManuNeko]

Eigenlijk heb ik 2 vragen.
1) Ik open een document op basis van een template. Ik voer gegevens ik save alles en dan sluit ik alles. Als ik dan manueel het excel document open, dan wordt ook het template geopend. Ik vermoed dus dat dat template is blijven openstaan. Wat doe ik fout en hoe los ik dit op?

2) Bij SaveAs krijg ik altijd de vraag of ik het bestaande document wil vervangen. Ik wil dat dit altijd, zonder vraag, gebeurd. Ik vind overal dat ik "Application.ScreenUpdating = False" moet gebruiken. Maar bij werkt dat echter niet; ik krijg een foutmelding op die instructie. Hoe doe ik dat?

    Set oEdenRed = New Excel.Application
    oEdenRed.Workbooks.Add CurrentProject.Path & cTemplateName
    nLineNr = 2
    Set rsMCH = qdef.OpenRecordset(dbOpenDynaset)
    
    Do While Not rsMCH.EOF
        With oEdenRed.Workbooks(1).Sheets(1)
            .Range("A" & nLineNr) = cControle
            ' Invullen velden...
        End With
        rsMCH.MoveNext
        nLineNr = nLineNr + 1
    Loop
    
    'Application.ScreenUpdating = False
    oEdenRed.Workbooks(1).SaveAs sSavePath, xlExcel8
    'Application.ScreenUpdating = True
    oEdenRed.Quit
    Set oEdenRed = Nothing
    rsMCH.Close
    Set rsMCH = Nothing

 

[Guus2005]

je vraag is blijkbaar opgelost, hoe?
wil je het antwoord erbij posten?

dat is makkelijk voor de andere lezers met hetzelfde probleem.

 

[ManuNeko]

Het eerste puntje was eigenlijk vanzelf opgelost. Ik vermoed dat er ergens iets was blijven hangen door testen en/of fouten tijdens het testen.

Het tweede heb ik opgelost door: oApp.DisplayAlerts = False.