Agregar más de tres hojas a Excel con visual basic .net?

[totiwuo]

Hola mi pregunta es la siguiente estoy tratando de hacer archivo de excel con visual basic
el codigo es el siguiente:
Dim ExcelApp As Excel.Application
Dim mylibro As Excel.Workbook
Dim myhoja As Excel.Worksheet
Dim myhoja2 As Excel.Worksheet
Dim myhoja3 As Excel.Worksheet
Dim myhoja4 As Excel.Worksheet

oConexion = New SqlConnection
oConexion.ConnectionString = Strconect

Dim csql As String


ExcelApp = New Excel.Application
csql="la consulta"

Dim cmd As SqlCommand
cmd = New SqlCommand(csql, oConexion)

oConexion.Open()
result = cmd.ExecuteScalar
oConexion.Close()

ExcelApp.Visible = True
mylibro = ExcelApp.Workbooks.Add()
myhoja = mylibro.Worksheets(1)
myhoja.Name = "PREPAID"
myhoja.Visible = XlSheetVisibility.xlSheetVisible

para no hacercelos muy largo

agrego tres hojas asi

myhoja= mylibro.Worksheets(1)
myhoja2= mylibro.Worksheets(2)
myhoja3= mylibro.Worksheets(3)

hasta ahi todo bien pero cuando quiero agregar una cuarta hoja me da un error, y no entiendo porque no me deja agregar más de 3 hojas

myhoja4= mylibro.Worksheets(4) Aqui me dice que se pierde el indice.

Alguien sabe como agragar más de tres hojas en excel con visual basic .net?

[David]

Es que la plantilla de Excel solo tiene tres hojas, y con el código sólo estás haciendo referencia a esas hojas, no creándolas. Prueba así para la cuarta hoja y sucesivas:

Código PHP:

  Set myhoja4 = mylibro.Worksheets.Add(After:=mylibro.Worksheets(mylibro.Worksheets.Count))  
   

[totiwuo]

Iniciado por David el Grande

Es que la plantilla de Excel solo tiene tres hojas, y con el código sólo estás haciendo referencia a esas hojas, no creándolas. Prueba así para la cuarta hoja y sucesivas:

Código PHP:

  Set myhoja4 = mylibro.Worksheets.Add(After:=mylibro.Worksheets(mylibro.Worksheets.Count))  
   

HEY ME FUNCIONO DE MARAVILLA MUCHAS GRACIAS!
SI ANDUVE BUSCANDO POR TODOS LADOS Y NO HABIA ENCONTRADO LA SOLUCION.