VBからExcelを起動しています。

ファイルが存在しない場合は、新規作成し、既存のファイルが存在する場合は、
既存のファイルを開き、シートを新しく追加して設定します。

新規作成した場合、シートがデフォルトで３つ作成されています。
VBで、シートの作成を制御し、１つだけ作成するようにしたいのですが、
どのよにすればよいか教えてください。

    strToday = Format(Date, "yyyymmdd")

    strExcelFile = FileDir & "\" & "file_" & strToday & ".xls"

    'Set xlApp = CreateObject("Excel.Application")
    Set xlApp = New Excel.Application
    If Fso.FileExists(strExcelFile) = True Then
        Set xlBook = xlApp.Workbooks.Open(strExcelFile)
        Set xlSheet = xlBook.Worksheets.Add(after:=xlBook.Worksheets(xlBook.Worksheets.Count))
    Else
        Set xlBook = xlApp.Workbooks.Add
        Set xlSheet = xlBook.Worksheets(1)
    End If

> VBで、シートの作成を制御し、１つだけ作成するようにしたいのですが、
> どのよにすればよいか教えてください。

要らないシートを削除しましょう。
サンプル投稿用掲示板参照。

こんにちは。

> VBで、シートの作成を制御し、１つだけ作成するようにしたいのですが、
> どのよにすればよいか教えてください。
>     Set xlApp = New Excel.Application
　　　xlApp.SheetsInNewWorkbook = 1       <- を追加

花ちゃんさん、YKさん
ありがとうございます。
期待する動きとなりました。

> こんにちは。
>
> > VBで、シートの作成を制御し、１つだけ作成するようにしたいのですが、
> > どのよにすればよいか教えてください。
> >     Set xlApp = New Excel.Application
> 　　　xlApp.SheetsInNewWorkbook = 1       <- を追加