Programación VB para escribir datos en EXCEL

Atenuar ExlApp como objeto

Atenuar ExlBook como objeto

Atenuar ExlSheet como objeto

Subcomando privado1_Click()

Si no es numérico (Text1.Text) entonces

MsgBox "Ingrese un número".

Text1.SetFocus

Salir del sub

Finalizar si

Atenuar fila mientras sea larga

Fila = 1

Hacer hasta ExlSheet.Cells(Fila, 1).Text = ""

Fila = Fila + 1

Bucle

ExlSheet. Celdas (fila, 1). Valor = Val (Texto1.

MsgBox "Guardar correctamente"

End Sub

Sub privado Form_Load()

Establecer ExlApp = CreateObject("Excel.Application")

Establecer ExlBook = ExlApp.WorkBooks.Open("C:\DATA.xls")

Establecer ExlSheet = ExlBook .Save

ExlApp.Quit

Establecer ExlSheet = Nada

Establecer ExlBook = Nada

Establecer ExlApp = Nada

End Sub

End Sub

Espero que esto resuelva tu problema