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