InsertarTextoEn Celdas de Excel desde VB.5

Nacho
02 de Abril del 2004
Hola amigos.

Espero que puedan ayudarme en resolver el siguiente problema:

Deseo colocar el texto de un TextBox (Ej. Text1.text) en una determinada celda (Ej. C2) de un archivo Excel (Ej. Archi1.xls) y luego imprimir dicho archivo .xls.
Todo esto sin mostrar el archivo
¿Como debo llamar y/o abrir al archivo.xls desde VB?

Mi VB es el 5.0

Mil y una Gracias a quien pueda darme una mano.

Nacho

lore
02 de Abril del 2004
Archivo1 = "C:archi1.xls"
Set xls 1= CreateObject("Excel.Application")
xls.1Workbooks.Open Archivo
xls1.Visible = False
xls1.Worksheets(1).Activate
Archivo1 = "C:archi1.xls"
Set xls1 = CreateObject("Excel.Application")
xls1.Workbooks.Open Archivo1
xls1.Visible = False
xls1.Worksheets(1).Activate
xls1.Worksheets(1).Range("c2").Value =text1.text
xls1.DisplayAlerts = False
xls1.Workbooks(1).SaveAs "C:Archi1.xls"
xls1.Workbooks.Close
xls1.Quit
Set xls1 = Nothing