mazou26
12 de Septiembre del 2003

Necesito que alguien me explique como se hace lo siguiente:
Al dar en Command1,el texto q hay en Text1 se te guarde en la celda B4, de la hoja 1, de un archivo de excel (que ya existe y esta abierto en ese momento).

sdemingo
12 de Septiembre del 2003

¿No conoces el truco de Grabar Macro en Excel?

Tu grabas una macro, haces a mano lo que quieras. Cuando acabes lo paras y te vas al editor de VBA de Excel y ves lo que has hecho en Código VBA que es lo que tu necesitas. Te lo comento para futuras necesidades.

Sub Command1_Click()

Dim objExcel as Object

Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open "C:documento.xls"

objExcel.ActiveSheet.Range("B4").Select
objExcel.ActiveSheet.FormulaR1C1 = Text1.Text

objExcel.activeworkbook.Save
objExcel.Quit
Set objExcel = Nothing

End Sub
Supongo que eso es todo

sdemingo
12 de Septiembre del 2003

Escribí mal una cosa. Es así:

Sub Command1_Click()

Dim objExcel As Object

Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open "C:documento.xls"

objExcel.ActiveSheet.Range("B4").Select
objExcel.ActiveCell = Text1.Text

objExcel.activeworkbook.Save
objExcel.Quit
Set objExcel = Nothing

End Sub

Al escribir es la ActiveCell, no en la ActiveSheet (I'm sorry)

Si el libro ya está abierto, no hace falta que hagas el open.

sdemingo