Excel document aanmaken

[gbvdh]

Goedendag,

Ik heb een vraagje over het openen van een Excel bestand, ik gebruik daarvoor nu

NewFN = Application.GetSaveAsFilename("C:\TestFile", "Excel file (*.xls), *.xls")
    sFile = NewFN

If NewFN = False Then
Exit Sub
Else

    'open bestand
    Workbooks.Open (sFile)
    
    'selecteer sheet "Blad1"
   ActiveWorkbook.Sheets("Sheet1").Select
    
    'Schrijf de standaard in kolom a
    Range("A1") = "Datum"
    Range("B1") = "Totaal"

Dit werkt allemaal prima zolang het Excel bestand al bestaat, als deze nog niet bestaat krijg ik een error bij "Workbooks.Open (sFile)". Om vanuit VBA een Excel document aan te maken vond ik dit

    Set xlsApp = Excel.Application
    With xlsApp
        'Show Excel
        .Visible = True
        'Create a new workbook
        .Workbooks.Add
    End With

Ook dit werkt prima maar ik zit met 2 vragen: 1 Hoe kan ik ervoor zorgen dat er gecontroleerd wordt op het bestand (uit de eerste code) al bestaat zodat ik als dat niet het geval is een nieuwe aan kan maken. En 2 hoe sla ik het nieuw aangemaakte bestand op op de plek en met de naam zoals dit gekozen in

NewFN = Application.GetSaveAsFilename("[U]C:\TestFile[/U]", "Excel file (*.xls), *.xls")

Vriendelijk dank,

Barry

 

[WinteE]

    sDir = ActiveWorkbook.Path
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
 
    If objFSO.FileExists(sDir & "\Bestand.xls") = True Then

Wel even je eigen bestandsnamen inbouwen