ExcelCreatorでシートを追加するには、AddSheetメソッドを使います。

    ''' 

    ''' シートの追加
    ''' 
    ''' 対象のExcelファイル名
    ''' 追加するシート数
    ''' 
    Private Sub xlsSheetAdd(ByVal FileName As String, ByVal addSheetCount As Integer)
        Dim xlsCr As New ExcelCreator.XlsCreator

        Try

            'ファイルの存在チェック
            If Not System.IO.File.Exists(FileName) Then
                MessageBox.Show("指定のファイルがありません..", "ファイルを確認して下さい", _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
                Exit Try
            End If


            'ExcelFileを開く
            If xlsCr.OpenBook(FileName, "") > -1 Then

                '指定数のシートを追加します
                xlsCr.AddSheet(addSheetCount)

                'ファイルを保存して閉じます
                xlsCr.CloseBook(True)
            Else
                MessageBox.Show("指定のExcelファイルが読めません..", "ファイルを確認して下さい", _
                                MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

        Catch ex As Exception
            Throw ex
        Finally
            xlsCr.Dispose()
        End Try
    End Sub