Mandar texto de un control textbox a excel...

Miguel
22 de Mayo del 2004
Como se puede mandar texto de un textbox a una celda especìfica de excel..

Saludos...

en?
22 de Mayo del 2004
'primero creas una variable objeto y la conviertes a tipo Aplicación de Excel
Dim LibroXLS

Set LibroXLS = CreateObjet("Excel.Application")
'abres el fichero
LibroXLS.Workbooks.Open "RUTA_FICHERO"
'haces referencia a la celda y la hoja en la que deseas escribir los datos
LibroXLS.Sheets("Hoja1").Range("A1") = Text1.Text

'Para que no lance avisos
LibroXLS.DisplayAlerts = False
'Guardas y cierras
LibroXLS.Save
LibroXLS.Workbooks.Close
'destruyes el objeto si no lo vas a seguir necesitando
Set LibroXLS = Nothing