SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: pcisl en Viernes 6 de Julio de 2007, 10:18

Título: Ordenar Hojas Excel
Publicado por: pcisl en Viernes 6 de Julio de 2007, 10:18
Buenos días,
Tengo una aplicación hecha con VB que crea un libro Excel de varias hojas.
No consigo llevar la última hoja creada al principio del libro.
Saludos y muchas grácias de antemano.
Título: Re: Ordenar Hojas Excel
Publicado por: F_Tanori en Viernes 6 de Julio de 2007, 12:01
Puedes mover las hojas asi


Código: Text
  1. Function MoverHoja(NombreHoja As String, Posicion) As Boolean
  2. On Error Resume Next
  3.     Excel.Sheets(NombreHoja).Select
  4.     MoverHoja = Excel.Sheets(NombreHoja).Move(Before:=Sheets(Posicion))
  5. End Function
  6.  

Ejemplo:

Cambiar la hoja3 a la posicion 1 devuelve TRUE si se mueve la hoja

Código: Text
  1.  
  2. if (MoverHoja("Hoja3",1)) then
  3.    Msgbox "Hoja Movida con exito"
  4. end if
  5.  


Saludos
Título: Re: Ordenar Hojas Excel
Publicado por: pcisl en Viernes 6 de Julio de 2007, 13:10
Muchas grácias F_Tanori,
Tu código no acaba de funcionarme peró me has dado la idea.
He incluido el siguiente código
Código: Text
  1. ApExcel.WorkSheets("RESUMEN").Move Before:=ApExcel.WorkSheets(1)
  2.  
Y he conseguido lo que queria.
Repito, muchas grácias :D