Guardar datos de VB para sobresalir

'Menú "Proyecto/Referencia", verifique la biblioteca de Microsoft Excel 11, requerido

Private Sub Timer1_Timer()

Atenuar xlApp como Excel.Application

Atenuar xlBook como Excel.Workbook

Atenuar xlSheet como Excel.Worksheet

En caso de error, reanudar siguiente

Establecer xlApp = GetObject(, " Excel. Aplicación")

Si Err.Number <> 0, entonces establezca xlApp = CreateObject("Excel.Application")

En caso de error, vaya a prcERR

Establezca xlBook = xlApp.Workbooks.Open("c:\1.xls") 'Abre tu archivo EXCEL

Set xlSheet = xlBook.Worksheets(1) 'La primera hoja

xlSheet.Application .Visible = True 'Establecer Excel para que sea visible

xlSheet.Cells(2, 1) = Text1.Text 'Fila 2, primera columna

xlBook.Save

xlApp.Quit

Establecer xlSheet = Nada

Establecer xlBook = Nada

Establecer xlApp = Nada

Salir de Sub

prcERR:

Debug.Print Err.Number & ":" & Err.Description

End Sub

Sub privado Form_Load( )

Timer1.Interval = 60000 'Un minuto

Fin Sub