¡HELP!

alfonso
25 de Febrero del 2004
Hola a [email protected]
Tengo el siguiente código que funciona correctamente, ahora vienen los problemas:
Este código me almacena los datos en línea y lo que quiero hacer es que esos datos se me abrán en una tabla de excel cuando hagamos click en un botón desde vb.
Gracias

Private Sub Command1_Click()
dia = Day(Date)
mes = Month(Date)
anyo = Year(Date)
If mes < 9 Then
meses = "0" & mes
Else
meses = mes
End If
enter = Chr$(13)
spacio = Chr$(10)
nueva_linea = enter & spacio
nombre_fichero = meses & anyo
Set fs = CreateObject("scripting.filesystemobject")
Set a = fs.opentextfile("C:Documents and SettingsTEMPEscritoriocaudales" & nombre_fichero & "QT.txt", 8, 1, 0)
a.write (dia & "," & Text1 & "," & Text2 & "," & Text3 & "," & Text4 & nueva_linea)
a.Close



End Sub