SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: acanalis en Lunes 1 de Septiembre de 2003, 19:07
-
Necesito saber como puedo renombrar las hojas de los libros del excel desde vb y también como puedo cambiar de hojas ya que solo puedo escribir en la primera y no tengo ni idea como pasar a la siguiente.
Gracias:question:
-
Fíjate en las líneas siguientes:
Dim objApp As Object ' Aplicación
Set objApp = GetObject(, "Excel.Application")
Dim objWb As Object ' WorkBook
Set objWb = objApp.WorkBooks(1)
'Aquí viene la parte que más te interesa
Dim objSh As Object ' WorkSheet
' Para añadir una hoja y ponerle un nombre:
Set objSh = objWb.Worksheets.Add()
objSh.Name = "Mi nueva hoja"
'Para obtener la referencia a la última hoja, saber cómo se llama y cambiarle el nombre
Set objSh = objWb.Sheets(objWb.Worksheets.Count)
MsgBox objSh.Name
objSh.Name = "Nuevo nombre"
'Para obtener la referencia a la primera hoja
Set objSh = objWb.Sheets(1)
'Para obtener la referencia a una hoja por su nombre
Set objSh = objWb.Sheets("Hoja x")
A partir de aquí, ya sabes como va el resto...
Suerte.