Ayuda sobre guardar datos de un formulario a Excel

vlady
18 de Septiembre del 2003
Saludos de antemano. Me gustaria saber si alguien me puede dar una mano, necesito guardar los datos de un formulario en Excel. Por ejemplo: nombre de una casilla de texto, opciones de un checkbox, etc.
Por su atencion gracias.

sdemingo
18 de Septiembre del 2003
Ejemplillo básico

Sub generaHoja()
Dim e As Object
Dim ruta As String

On Error GoTo error1

Set e = CreateObject("Excel.Application")
ruta = "c:documento.xls"
e.Workbooks.Open ruta
e.Visible = True

e.ActiveSheet.Range("A1:B1").Select
e.ActiveCell.FormulaR1C1 = "Hola Caracola"
' Para un textBox
' e.ActiveCell.FormulaR1C1 = Text1.text
' etc....

e.ActiveWorkbook.Save
e.Application.Quit
Set e = Nothing

Exit Sub

'ERROR
error1:
MsgBox Err.Description
e.Application.Quit
Set e = Nothing

End Sub


Un saludo

sdemingo

sdemingo
18 de Septiembre del 2003
Es más, no hace falta que pongas FormulaR1C1, bastaría con algo así:

e.ActiveCell = "Hola Caracola"

saludos

sdemingo