Unidad 5. Programación usando objetos del Excel (X)

Ejemplo 08

El Siguiente ejemplo añade una nueva hoja y luego muestra una lista de los nombres de las hojas, en el orden en el que se encuentran,  contenidas en el  libro activo.

Sub ListaHojas()

Dim Cadena As Variant

Cadena = ""

Set NuevaHoja = Sheets.Add(Type:=xlWorksheet)

For i = 1 To Sheets.Count

    Cadena = Cadena + Sheets(i).Name + Chr(10) + Chr(13)

Next i

    MsgBox Cadena

End Sub

Comentarios:

Primero hemos definido a la variable cadena como de tipo variant

La instrucción Set permite definir a NuevaHoja como un objeto WorkSheet.

Ejemplo 09

El siguiente ejemplo, además de hacer lo mismo que el ejemplo 8, activa la hoja 2 (que es la segunda en secuencia), deposita un texto en B2 y activa el objeto NuevaHoja que es una hoja.

Sub Lista()

Dim Cadena As Variant

Cadena = ""

Set NuevaHoja = Sheets.Add(Type:=xlWorksheet)

For i = 1 To Sheets.Count

    Cadena = Cadena + Sheets(i).Name + Chr(10) + Chr(13)

Next i

    MsgBox Cadena

Sheets(2).Activate

Range("B2") = "Hola estamos cenando"

NuevaHoja.Activate

Range("B3").Select

End Sub

Ejemplos sueltos:

La siguiente declaración mueve todas las hojas a la derecha de la última hoja.

Worksheets.Move After:=Sheets(Sheets.Count)

La siguiente declaración permite inserter tres nuevas hojas antes de la primera hoja.

WorkSheets.Add Count := 2, Before := Sheets(1)

 Cursos Informática Gratuitos