Agregar hoja excel ¡¡¡¡URGENTE!!!!!!

Tigreras
26 de Noviembre del 2003
Hola a todos, quisiera saber si alguien sabe como agregar una hoja excel aun libro una vez q ya lo tienes abierto, no doy con ello y lo necesito urgentemente.

Por favor si alguien sabe , q me diga como se hace.
Muchisimas gracias
David

matamala
26 de Noviembre del 2003
Hola Tigraras.
mira con este codigo creas un nuevo libro y le añade el texto que tengas en un texbox, tambien añade el titulo.
Private Sub Command1_Click()
' recuerda que debes de hacer referencia a excel con el excel objet library
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Visualizar Excel
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
'Asignar Titulos
ApExcel.Cells(1, 1).Formula = "Titulo de la Hoja"
ApExcel.Cells(1, 1).Font.Size = 14
ApExcel.Cells(2, 1).Formula = "Texto:"
ApExcel.Cells(2, 2).Formula = Text1.SelText
' Seleccionar celdas y aplicar Color de bordes
ApExcel.Range("B2:F2").Borders.Color = vbRed
'ApExcel.Quit
Set ApExcel = Nothing ' No olvidar, libera la memoria
End Sub.
modificalo si es necesario a tus necesidades.
espero que te sirva.
un saludo.