• Viernes 8 de Noviembre de 2024, 00:28
« anterior próximo »
Páginas: [1]

Autor Tema:  Ordenar Hojas Excel  (Leído 2699 veces)

pcisl

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Ordenar Hojas Excel
« en: Viernes 6 de Julio de 2007, 10:18 »
0
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.

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Ordenar Hojas Excel
« Respuesta #1 en: Viernes 6 de Julio de 2007, 12:01 »
0
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
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

pcisl

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Ordenar Hojas Excel
« Respuesta #2 en: Viernes 6 de Julio de 2007, 13:10 »
0
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
Páginas: [1]
« anterior próximo »