18/06/2007, 11:21
|
| | | Fecha de Ingreso: abril-2007
Mensajes: 88
Antigüedad: 18 años Puntos: 0 | |
 Re: exportar a excel
Gracias hermano si me funciona perfecto ahora yo lo cuadro de verdad gracias...
anexo codigos para los que lo deseen
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
'Poner Titulos
ApExcel.cells(1, 1).formula = Text1.Text
ApExcel.cells(1, 2).formula = Text2.Text
Set ApExcel = Nothing |