Hola,

Estoy realizando un limpiador de Excel, y tengo un problema de índices y desbordamientos.

Lo que quiero hacer es eliminar las hojas de un excel, dejando la primer hoja con sus datos, resulta que sólo puedo hacerlo individualmente de esta manera:

 CType(xlWorkBook.Sheets(i), Excel.Worksheet).Delete()

Pero cuando intento hacerlo con un ciclo salta esta excepción:

Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))

Estoy utilizando VS 2010, Excel 2007, y este es el código que utilizo para eliminar las hojas. He realizado gran cantidad de intentos. Sinceramente no comprendo el porque del error.

 
Dim contador As Integer = 0
 
        'Obtiene la cantidad de hojas a borrar
        For Each sheet As Excel.Worksheet In xlWorkBook.Worksheets
 
            contador = contador + 1
        Next
 
        'Contador
        MsgBox(contador)
 
 
 
        For k = 0 To contador Step 1
 
            ' CType(xlApp.ActiveWorkbook.Sheets(i), Excel.Worksheet).Delete()
            'xlWorkBook.Sheets(i).delete()
 
            If k = 0 Then
 
                ' k = k + 1
            Else
 
                CType(xlWorkBook.Sheets(k), Excel.Worksheet).Delete()
 
                'xlWorkBook.Sheets(k).delete()
                'k = k + 1
                MsgBox(k)
            End If
        Next
 
 

No se si es porque se manejen los índices diferente en EXCEL y en VS, agradecería sus consejos.

Con respecto al for he probado varias formas de incrementos y nada tampoco, lo curioso es que se empieza a desbordar después de una cierta cantidad, con cantidades pequeñas funciona bien.

Agradezco de antemano la ayuda.

Hola,

Agradezco que te hayas tomado el tiempo para leerme y responderme

Esta es la declaración de la variable

 
  Dim contador As Integer = 0
 

Acá dónde se "cae" el código

 CType(xlWorkBook.Sheets(k), Excel.Worksheet).Delete()
 

¿Para qué dos bucles? Bien, los utilizo para dos cosas:

1- Sacar la cantidad de hojas del libro(Bucle 1 o el primero que miras)
2- Realizar el delete.


El índice lo utilizo para que elimine todas las hojas a partir de la hoja 1, es por eso que necesito ponerle un índice.

Disculpa por la falta de esos detalles.

Intentaré lo que me dices, y te daré detalles!.

GRACIAS

Gracias al fragmento que me pusiste ya logré como descifrarlo y pude resolverlo

Adjunto el código por si acaso alguien lo ocupa

GRACIAS!!

 
Dim i As Integer = 0
 
        For Each sheet As Excel.Worksheet In xlWorkBook.Worksheets
            Try
 
                'Verifica si está en la primera hoja para no borrarla.!
                If i = 0 Or i = 1 Then
 
                    i = i + 1
 
                Else
 
                    'Sino simplemente la elimina.
                    sheet.Delete()
                    i = i + 1
 
                End If
 
            Catch ex As Exception
                MsgBox(ex.Message & ex.StackTrace)
            End Try
        Next sheet
 
        'Elimina hoja sobrante
        xlWorkBook.Sheets(2).delete()
 
 

Genial!, gracias por el dato!.

Disculpas por lo del triple post, saludos.